大众信息网

4399游戏采集代码问题,很多小游戏可以采集到,但是有个别的采集不到,不知道啥原因

答案:6  mip版
解决时间 2021-01-16 22:17
  • 提问者网友：空气里的回忆
  • 2021-01-16 03:32
4399游戏采集代码问题,很多小游戏可以采集到,但是有个别的采集不到,不知道啥原因,贴上采集的源码!
'--------获取单个flash函数----------
'远程flash地址
'网站名称
function get_single_flash(byval remote_url,byval website,byval classid,byval flash_pic,byval subjectid)
'on error resume next
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/"&trim(website)&".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","",""))
fauthor_reg=xml_back(xmlobj.getnodevalue("/root/fauthor_reg","",""))
add_url_reg=xml_back(xmlobj.getnodevalue("/root/add_url_reg","",""))
set xmlobj=nothing

'远程获取图片程序
Function SaveRemoteFile(s_RemoteFileUrl,sUploadDir)
Dim Ads, Retrieval, GetRemoteData,s_LocalFileName,SaveFileType

Dim bError
bError = False
SaveRemoteFile = False
'On Error Resume Next
' response.Write("s_RemoteFileUrl1"&s_RemoteFileUrl&"
")
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", s_RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
response.Write("GetRemoteData"&Len(GetRemoteData)&"
")
'If Len(GetRemoteData) <= 100*1024 Then
' bError = True
' Else

SaveFileType = Mid(s_RemoteFileUrl, InstrRev(s_RemoteFileUrl, ".") + 1)
response.Write("s_RemoteFileUrl2"&s_RemoteFileUrl&"
")
s_LocalFileName= GetRndFileName(SaveFileType)
response.Write("s_LocalFileName:"&s_LocalFileName&"
")

Set Ads = Server.CreateObject(DEF_StreamWH)
With Ads
.mode = 3
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(sUploadDir&"/"& s_LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
' End If
If Err.Number = 0 And bError = False Then
SaveRemoteFile = s_LocalFileName
Else
Err.Clear
SaveRemoteFile = false
End If

End Function
最佳答案
  • 二级知识专家网友：单剑走天涯
  • 2021-01-16 03:49
'--------获取单个flash函数----------
'远程flash地址
'网站名称
function get_single_flash(byval remote_url,byval website,byval classid,byval flash_pic,byval subjectid)
'on error resume next
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/"&trim(website)&".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","",""))
fauthor_reg=xml_back(xmlobj.getnodevalue("/root/fauthor_reg","",""))
add_url_reg=xml_back(xmlobj.getnodevalue("/root/add_url_reg","",""))
set xmlobj=nothing

'远程获取图片程序
Function SaveRemoteFile(s_RemoteFileUrl,sUploadDir)
Dim Ads, Retrieval, GetRemoteData,s_LocalFileName,SaveFileType

Dim bError
bError = False
SaveRemoteFile = False
'On Error Resume Next
' response.Write("s_RemoteFileUrl1"&s_RemoteFileUrl&"
")
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", s_RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
response.Write("GetRemoteData"&Len(GetRemoteData)&"
")
'If Len(GetRemoteData) <= 100*1024 Then
' bError = True
' Else

SaveFileType = Mid(s_RemoteFileUrl, InstrRev(s_RemoteFileUrl, ".") + 1)
response.Write("s_RemoteFileUrl2"&s_RemoteFileUrl&"
")
s_LocalFileName= GetRndFileName(SaveFileType)
response.Write("s_LocalFileName:"&s_LocalFileName&"
")

Set Ads = Server.CreateObject(DEF_StreamWH)
With Ads
.mode = 3
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(sUploadDir&"/"& s_LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
' End If
If Err.Number = 0 And bError = False Then
SaveRemoteFile = s_LocalFileName
Else
Err.Clear
SaveRemoteFile = false
End If

End Function
全部回答
  • 1楼网友：甜心萌物酱
  • 2021-01-16 08:58
贱死了
  • 2楼网友：戒烟戒酒戒粗口
  • 2021-01-16 07:27
火龙珠是瑞琪的宝贝，他在大战火龙中使用过，火龙珠可以瞬间移动，可惜黑森林已经关闭，不能再获得火龙珠。
  • 3楼网友：回憶沒有意義
  • 2021-01-16 07:22
我悄悄的来，又带着2分悄悄地闪。
  • 4楼网友：淡似春风
  • 2021-01-16 05:52
真的
  • 5楼网友：那年仲夏
  • 2021-01-16 05:01
'--------获取单个flash函数---------- '远程flash地址 '网站名称 function get_single_flash(byval remote_url,byval website,byval classid,byval flash_pic,byval subjectid) 'on error resume next 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/"&trim(website)&".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","","")) fauthor_reg=xml_back(xmlobj.getnodevalue("/root/fauthor_reg","","")) add_url_reg=xml_back(xmlobj.getnodevalue("/root/add_url_reg","","")) set xmlobj=nothing '远程获取图片程序 Function SaveRemoteFile(s_RemoteFileUrl,sUploadDir) Dim Ads, Retrieval, GetRemoteData,s_LocalFileName,SaveFileType Dim bError bError = False SaveRemoteFile = False 'On Error Resume Next ' response.Write("s_RemoteFileUrl1"&s_RemoteFileUrl&" ") Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", s_RemoteFileUrl, False, "", "" .Send GetRemoteData = .ResponseBody End With Set Retrieval = Nothing response.Write("GetRemoteData"&Len(GetRemoteData)&" ") 'If Len(GetRemoteData) <= 100*1024 Then ' bError = True ' Else SaveFileType = Mid(s_RemoteFileUrl, InstrRev(s_RemoteFileUrl, ".") + 1) response.Write("s_RemoteFileUrl2"&s_RemoteFileUrl&" ") s_LocalFileName= GetRndFileName(SaveFileType) response.Write("s_LocalFileName:"&s_LocalFileName&" ") Set Ads = Server.CreateObject(DEF_StreamWH) With Ads .mode = 3 .Type = 1 .Open .Write GetRemoteData .SaveToFile Server.MapPath(sUploadDir&"/"& s_LocalFileName), 2 .Cancel() .Close() End With Set Ads=nothing ' End If If Err.Number = 0 And bError = False Then SaveRemoteFile = s_LocalFileName Else Err.Clear SaveRemoteFile = false End If End Function
我要举报
如以上问答内容为低俗/色情/暴力/不良/侵权的信息，可以点下面链接进行举报，我们会做出相应处理，感谢你的支持！
点此我要举报以上问答信息
推荐资讯
• 我要去八达岭长城.，从‘北京南站地铁站’如
• 电动车经常被淋雨会怎样有什么危害
• 别人在微信支付上填写了我的银行卡信息，怎么
• 【真正的猛男敢于直面惨淡的人生 】这是出自
• 关与春的色彩和春的声音的诗句，要有出处或作
• 宁夏中医研究院护士的工资是多少
• 我现在有一个目标就是想要考一C照 可自己又有
• 在一个减法算式里，被减数减数和差的和是840,
• 用溥铁皮能做养殖小龙虾防逃设施材料吗
• 由于自身原因，档案里的派遣证丢失，能补办么
• 以前我错了，知在乎我在乎的人，现在我懂了，
• 模拟量互相干扰怎么解决？
• 遂宁哪里有好吃的？
• 100瓦的灯泡几个小时用一度电 怎么算的
• 日本的春季指几月至几月？？

网站首页 | 关于我们 | 网站留言
联系大众信息网
Copyright © 2026 大众信息网 All Rights Reserved