高端响应式模板免费下载

响应式网页设计、开放源代码、永久使用、不限域名、不限使用次数

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

猜你喜欢