flash8img4.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->

<%
server.scripttimeout=90000



function getstr(s,s1,s2)
dim a,b
a = instr(s,s1)
b = instr(a+len(s1),s,s2)
getstr = mid(s,a+len(s1),b-a-len(s1))
end function

Private Function bytes2BSTR(vIn)
  Dim i, ThischrCode, NextchrCode,strReturn
  strReturn = ""
For i = 1 To LenB(vIn)
   ThischrCode = AscB(MidB(vIn, i, 1))
  If ThischrCode < &H80 Then
     strReturn = strReturn & Chr(ThischrCode)
  Else
    NextchrCode = AscB(MidB(vIn, i + 1, 1))
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
     i = i + 1
  End If
Next
    bytes2BSTR = strReturn
End Function

Function GetURL(url)
    dim  Retrieval
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL = .ResponseText
		  
GetURL = bytes2BSTR(.Responsebody)
		
          End With
    Set Retrieval = Nothing
End Function


Function GetURL1(url)
 dim Retrieval
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
          With Retrieval
          .Open "GET", url, False, "", ""
          .Send
          GetURL1 = .ResponseBody
          End With
    Set Retrieval = Nothing
End Function


function savefile(http,localpath)
dim mstream
Set  mstream  =  Server.CreateObject("ADODB.Stream")  
mstream.Type  =  1  
mstream.Open 
'获取图片内容
mstream.Write  GetURL1(http)  
'保存文件
mstream.SaveToFile  server.mappath(localpath),2
Set  mstream=nothing
end function
dim i
i=request("i")
if i="" or i<1 then i=0
if i-1000 > 0 then
response.end
else
dim returnvalue
returnvalue=lcase(geturl("http://www.flash8.net/flash/search.aspx?type=1&pagesize=10&search=&page="&i))
dim picn
picn=1
dim picnum,picnum2,httpf,httpf2,n,fid,nn,swfhttpnum,swfhttpnum2,imgname,swfhttpn,swfhttp

for n=1 to 10
picnum=instr(picn,returnvalue,"http://canon.flash8.net/upload/")
picnum2=instr(picnum,returnvalue,">")
httpf=mid(returnvalue,picnum,picnum2-1-picnum)
httpf2=right(httpf,4)


swfhttpnum=instr(picnum2,returnvalue,"<a href=")
swfhttpnum2=instr(swfhttpnum+1,returnvalue,"onfocus=")
swfhttpn=swfhttpnum2-2-swfhttpnum-9
swfhttp=mid(returnvalue,swfhttpnum+9,swfhttpn)
swfhttp=replace(swfhttp,"../","http://www.flash8.net/")
picn=swfhttpnum2

nn=i*10+n
imgname="smallpic/"&nn&httpf2
response.write "imgname:"&imgname&"<br>"
'抓取图片
call savefile(httpf,"../smallpic/"&nn&httpf2)
response.write nn&httpf2&"<br>"
'抓取swf

dim returnvalue2,swfst,swfet,httpf3,classnum,classnum2,classnum3,classnum4,classn,classname,httpnum,httpnum2,httpn,httpnum3,httpnum4,httpnum5
returnvalue2=lcase(geturl(swfhttp))
if instr(returnvalue2,lcase(".swf"))<>0 then
'有记录
'抓取地址
httpnum=instr(returnvalue2,"贺卡")
httpnum2=instr(httpnum,returnvalue2,"<object")
httpnum3=instr(httpnum2,returnvalue2,"<param")
httpnum4=instr(httpnum3,returnvalue2,"value")
httpnum5=instr(httpnum4,returnvalue2,"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

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

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

'抓取作品小类别
dim sallclassnum,sallclassnum2,sallclassnum3,sallclassn,sallclassname
sallclassnum=instr(classnum4,returnvalue2,"<a href=")
sallclassnum2=instr(sallclassnum+8,returnvalue2,">")
sallclassnum3=instr(sallclassnum2+1,returnvalue2,"</a>")
sallclassn=sallclassnum3-sallclassnum2-1
sallclassname=mid(returnvalue2,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(returnvalue2,filest,fileet)
response.write "作品名称:"&filests&"<br>"


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

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

'插入数据库
conn.execute "insert into flash(bigclassid,smallclassid,flashname,star,username,url,picurl)values('"&trim(classname)&"','" &trim(sallclassname)&"','"&replace(filests,"'","`")&"','★★★★★','"&replace(user,"'","`")&"','" & httpf3&"','"&imgname&"')"

'下载Flash
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
call savefile(httpf3,"../swf/"&fid&".swf")
end if



next

end if%>

<script language=javascript>
location.href="?i=<%=i+1%>";
</script>