4399游戏收集代码问题，很多小游戏可以收集，但是有些不能收集，不知道为什么。

& ltpram remote _ url & gt远程闪存地址

& ltpram网站& gt网站名称

函数get _ single _ flash(byval remote _ URL，byval网站，byval classid，byval flash_pic，byval subjectid)

出错时继续下一步

dim xmlobj，single_body，fname_reg，fpic_reg，furl_reg，fdetail_reg，fsize_reg，fauthor_reg，add_url_reg

set xmlobj=new xml_class

xmlobj . filename = " rule/" & amp；trim(网站)和".xml "

xmlobj.loadfile()

fpage _ left = XML _ back(xmlobj . getnodevalue("/root/fpage _ left "，""，""))

fpage _ right = XML _ back(xmlobj . getnodevalue("/root/fpage _ right "，""，""))

fname _ reg = XML _ back(xmlobj . getnodevalue("/root/fname _ reg "，""，""))

fpic _ reg = XML _ back(xmlobj . getnodevalue("/root/fpic _ reg "，""，""))

furl _ reg = XML _ back(xmlobj . getnodevalue("/root/furl _ reg "，""，""))

fdetail _ reg = XML _ back(xmlobj . getnodevalue("/root/fdetail _ reg "，""，""))

fsize _ reg = XML _ back(xmlobj . getnodevalue("/root/fsize _ reg "，""，""))

fau thor _ reg = XML _ back(xmlobj . getnodevalue("/root/fau thor _ reg "，""，""))

add _ URL _ reg = XML _ back(xmlobj . getnodevalue("/root/add _ URL _ reg "，""，""))

设置xmlobj=nothing

远程图像采集程序

函数SaveRemoteFile(s_RemoteFileUrl，sUploadDir)

模糊广告，检索，获取远程数据，本地文件名，保存文件类型

暗淡的误差

bError = False

SaveRemoteFile = False

出错时继续下一步

回应。write(" s _ remote file URL 1 " & amp；s _ RemoteFileUrl & amp“& lt/br >；)

设置检索=服务器。CreateObject("微软。XMLHTTP”)

带检索

。Open "Get "，s_RemoteFileUrl，False，""，"

。发送

GetRemoteData =。响应主体

以…结尾

设置检索=无

回应。write(" GetRemoteData " & amp；Len(GetRemoteData)和amp“& lt/br >；)

if Len(GetRemoteData)& lt；= 100*1024然后

bError = True

其他

save filetype = Mid(s _ remote file URL，InstrRev(s_RemoteFileUrl，" ") + 1)

回应。write(" s _ remote file URL 2 " & amp；s _ RemoteFileUrl & amp“& lt/br >；)

s _ local filename = GetRndFileName(save filetype)

回应。write(" s _ local filename:" & amp；本地文件名& amp“& lt/br >；)

设置Ads =服务器。创建对象(DEF_StreamWH)

带广告

。模式= 3

。Type = 1

。打开

。写入GetRemoteData

。SaveToFile服务器。MapPath(sUploadDir & amp；“/”& amp；s_LocalFileName)，2

。取消()

。关闭()

以…结尾

设置广告=无

如果…就会结束

如果错误。Number = 0，bError = False

SaveRemoteFile = s_LocalFileName

其他

呃。清楚的

SaveRemoteFile = false

如果…就会结束

结束功能