'--------获取单个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