非常不错的flash采集程序测试通过(3)

            .Write GetRemoteData
            .SaveToFile Server.MapPath(s_LocalFileName), 2
            .Cancel()
            .Close()
        End With
        Set Ads=nothing
    End If

    If Err.Number = 0 And Not bError Then
        SaveRemoteFile = True
    Else
        Err.Clear
    End If
End Function

%>



<%
flashId=Request("Id")

Url="http://www.gameyes.com/swf/"&flashid&".htm" 

Html = GetURL(Url) 

num=len(html)

if num<600 then

response.write "此页不存在，跳转下一个........<meta http-equiv=""refresh"" content=""0;URL=getid.asp?id="&gourl1&"&overid="&request("overid")&"&download="&request("download")&""">"

response.end

end if

nclassid1=GetKey(Html,"FLASH游戏 >> <a class=a href=../list/a_",".htm>")

nclass=GetKey(Html,"<a class=a href=../list/a_"&nclassid1&".htm>","</a>")

nclass=nclass&"类"

classid1=GetKey(Html,"class=a href='../list/",".htm'>")

classname=GetKey(Html,"class=a href='../list/"&classid1&".htm'>","</a>")

body=GetKey(Html,"<div id=""view_intro"">","</div>")

body=replace(body,"<tr>","")

body=replace(body,"<td>","")

pic1=GetKey(Html,"#secrt{background:url(../smallpic",") 2 2 no-repeat;border:1px")

pic1=replace(pic1,"_b.gif",".gif")

pic1=replace(pic1,"_b.jpg",".jpg")

pic="http://www.gameyes.com/smallpic"&pic1

pictype=right(pic,4)

flashurl=GetKey(Html,"download.asp?id="&flashid&"&swf=","""><img src=")

flashurl=replace(flashurl,"http://old.gameyes.com/flash","http://60.191.9.222/flash")

flashurl="http://old.gameyes.com/flash"&flashurl

flashname=GetKey(Html,"<title>","小游戏 休闲小游戏网 gameyes.com</title>")

%>
<%
response.write "<font color=red>FLASH名称:</font>  "&flashname
response.write "<br>"
response.write "<font color=red>所属大类:</font>  "&nclass
response.write "<br>"
response.write "<font color=red>所属二类:</font>  "&classname
response.write "<br>"
response.write "<font color=red>游戏介绍:</font>  "&body