flash8.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=1
if i-9900 > 0 then
response.end
end if

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

%>

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