flash8_2.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

function swfhttp(swfurl)

dim returnvalue,swfst,swfet,httpf,classnum,classnum2,classnum3,classnum4,classn,classname,httpnum,httpnum2,httpn,httpnum3,httpnum4,httpnum5
returnvalue=lcase(geturl(swfurl))
if instr(returnvalue,lcase(".swf"))<>0 then
'有记录
'抓取地址
httpnum=instr(returnvalue,"贺卡")
httpnum2=instr(httpnum,returnvalue,"<object")
httpnum3=instr(httpnum2,returnvalue,"<param")
httpnum4=instr(httpnum3,returnvalue,"value")
httpnum5=instr(httpnum4,returnvalue,"swf")
httpn=httpnum5+3-httpnum4-7

'response.write "httpn:"&httpn&"<br>"
'response.write "httpnum:"&httpnum&"<br>"
'response.write "httpnum2:"&httpnum2&"<br>"
'response.write "httpnum3:"&httpnum3&"<br>"
'response.end

httpf=mid(returnvalue,httpnum4+7,httpn)
'httpf =  getstr(returnvalue,swfst,swfet)
'response.write httpf
'response.end
'抓取作品大类别

classnum=instr(returnvalue,"作品区首页")
classnum2=instr(classnum+5,returnvalue,"<a href=")
classnum3=instr(classnum2+8,returnvalue,">")
classnum4=instr(classnum3+1,returnvalue,"</a>")
classn=classnum4-classnum3-1
classname=mid(returnvalue,classnum3+1,classn)
response.write "作品大类别:"&classname&"<br>"

'抓取作品小类别
dim sallclassnum,sallclassnum2,sallclassnum3,sallclassn,sallclassname
sallclassnum=instr(classnum4,returnvalue,"<a href=")
sallclassnum2=instr(sallclassnum+8,returnvalue,">")
sallclassnum3=instr(sallclassnum2+1,returnvalue,"</a>")
sallclassn=sallclassnum3-sallclassnum2-1
sallclassname=mid(returnvalue,sallclassnum2+1,sallclassn)
response.write "作品小类别:"&sallclassname&"<br>"

'抓取作品名称
dim filest,fileet,filests,userst,useret,user
filest = "<div align=""left""><span class=""style8"">"
fileet = "</span><br>"
filests = getstr(returnvalue,filest,fileet)
response.write "作品名称:"&filests&"<br>"


'抓取作者
dim usernum,usernum2,usernum3,usernum4,usern
usernum=instr(returnvalue,"作者")
usernum2=instr(usernum,returnvalue,"<a href=")
usernum3=instr(usernum2+8,returnvalue,">")
usernum4=instr(usernum3,returnvalue,"</a>")
usern=usernum4-usernum3-1
user=mid(returnvalue,usernum3+1,usern)

'userst = "<span id=""name""><a href='user/flash.asp?username="
'useret = "'>"
'user = getstr(returnvalue,userst,useret)
response.write "地址："&httpf
'response.end

'插入数据库
conn.execute "insert into flash(bigclassid,smallclassid,flashname,star,username,url)values('"&trim(classname)&"','" &trim(sallclassname)&"','"&replace(filests,"'","`")&"','★★★★★','"&replace(user,"'","`")&"','" & httpf&"')"
dim fid
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 id from Flash order by id desc",conn,1,1
fid=rs(0)
rs.close
'conn.execute "insert into flash(url)values('../swf/"&fid&".swf')"
'下载Flash
call savefile(httpf,"../swf/"&fid&".swf")

end function

%>