获取远程flash并保存到本地(3)

        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 "<font color=red>FLASH序号:</font>  "&gourl1
   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>  "&gourl1
  response.write "<br>"
  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
  response.write "<br>"
  response.write "<font color=red>游戏小图:</font>  "&pic
  response.write "<br>"
  response.write "<font color=red>FLASH地址:</font>  "&flashurl