有意者帮小弟一把，太难了，有附件，还有这段怎么改呢牛人写的asp程序，小弟看了太难了，没有法子puojie，有意者来参观参观，有附件。但这段程序是怎么写的呢.<%
namearrayd=split(request.form("cbf001"),",")
cbf001=ubound(namearrayd)
if cbf001=>1 then
for counter1=0 to cbf001-1

Url=vod2008url&"?id="&Request.ServerVariables("server_name")&"/"&namearrayd(counter1)
vod2008s = getHTTPPage(Url)
Set oHttp = nothing
namearray=split(vod2008s,"电影名称:")
max=ubound(namearray)
if max < 1 then
response.write "跳过采集，只限VIP商业用户才可使用!<br>"
else
ww=namearray(1)
names=split(ww,"<br>")
name=names(0)
namearray=split(vod2008s,"演员:")
ww=namearray(1)
names=split(ww,"<br>")
yan=names(0)
namearray=split(vod2008s,"图片地址:")
ww=namearray(1)
names=split(ww,"<br>")
imgurl=names(0)
namearray=split(vod2008s,"内容:")
ww=namearray(1)
names=split(ww,"<br>")
content=names(0)
namearray=split(vod2008s,"片源地址:")
ww=namearray(1)
names=split(ww,"<br>")
movieurl=names(0)
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open "select * from movie where name='"&name&"'",conn,1,1
if not(rs.eof and rs.bof) then
youcid=rs("cid")
response.write"已经有"&newname&"电影-系统自动更新片源地址 ID:"&youcid&">><br>"
if session("后台权限管理103")="1" then
'更新电影
conn.execute"delete from movieurl where nameid="&youcid
set rsb=server.createobject("adodb.recordset")
sql="select * from movie where cid="&youcid
rsb.open sql,conn,1,3
rsb("cbftype")=request("itype")
rsb("play")=request("iplay")&","
rsb("stanrting")=yan
rsb("exhibition")=now()
rsb("gud")=1
rsb("content")=content
rsb("server1")=1
rsb("server2")=1
rsb("caiji")=1
rsb.update
rsb.close
end if
else
response.write"无"&name&",开始采集<br>"
if session("后台权限管理103")="1" then

namearray=split(imgurl,"http://")
max=ubound(namearray)
if max < 1 then
imgurls="http://cbf001.com/"&imgurl
saveimg="../film-img/"&imgurl
saveimg=Replace(saveimg,".com", "-cbf001")
saveimg=Replace(saveimg,".cn", "-cbf001")
saveimg=Replace(saveimg,".net", "-cbf001")
saveimg=Replace(saveimg,".org", "-cbf001")
saveimg=Replace(saveimg,".com.cn", "-cbf001")
saveimg=Replace(saveimg,"%", "")
saveimg=Replace(saveimg,"&", "")
saveimg=Replace(saveimg,"*", "")
else
imgurls="http://"&namearray(1)
saveimg="../film-img/"&namearray(1)
saveimg=Replace(saveimg,".com", "-cbf001")
saveimg=Replace(saveimg,".cn", "-cbf001")
saveimg=Replace(saveimg,".net", "-cbf001")
saveimg=Replace(saveimg,".org", "-cbf001")
saveimg=Replace(saveimg,".com.cn", "-cbf001")
saveimg=Replace(saveimg,"%", "")
saveimg=Replace(saveimg,"&", "")
saveimg=Replace(saveimg,"*", "")
end if
saveimg=Replace(saveimg,"\", "/")
saveimg=Replace(saveimg,"//", "/")
if imgurl<>"" then
call CreateHtml(saveimg,"cbf001")
end if
if SaveFile(saveimg,imgurls) then 
response.write "恭喜，成功下载海报！地址为：<a href="""&saveimg&""" target=_blank>"&saveimg&"</a><br>"
movieimgs=movieimgs+1
else 
Response.write "没有保存电影海报到你的网站里!<br>"
end if 
set rsb=server.createobject("adodb.recordset")
sql="select * from movie"
rsb.open sql,conn,1,3
rsb.addnew
rsb("name")=name
rsb("keywords")=name
rsb("list")=1
rsb("cbftype")=request("itype")
rsb("ress")="大陆"
rsb("play")=request("iplay")&","
rsb("hits")=1
rsb("stanrting")=yan
rsb("exhibition")=now()
rsb("gud")=1
rsb("server1")=1
rsb("server2")=1
rsb("userid")=","
rsb("content")=content
rsb("vip")=0
rsb("caiji")=1
rsb("playsok")=0
rsb("imgurl")=saveimg
rsb.update
youcid=rsb("cid")
rsb.close
end if
end if
if session("后台权限管理103")="1" then
Set rss= Server.CreateObject("ADODB.Recordset")
sql1="select * from movieurl where (cid is null)"
rss.open sql1,conn,1,3
rss.addnew
rss("nameid")=youcid
rss("url")=movieurl
rss.update
rss.close
end if
end if
response.flush

next
end if
%><%if request("cjall")="1" then%>
<%if request("p") + 1 < request("movie") + 0 then%>
等待2秒后采集剩下电影。。。<meta http-equiv="Refresh" content="1;URL=?p=<%=request("p")+20%>&cjtype=<%=request("cjtype")%>&cjall=<%=request("cjall")%>&play=<%=request("play")%>&iplay=<%=request("iplay")%>&itype=<%=request("itype")%>">
<%else%>
<script>alert('此分类采集结束！');</Script>
<%end if%>
<%else%><script>alert('此分类采集结束！');</Script><%end if%>