华山资源网

非常不错的flash采集程序测试通过
网络编程 2024/12/24 佚名
3 1
复制代码 代码如下:

<%
'--------------------------------------------------------------
 Dbname = "../data/flash.mdb"          '更改数据库文件位置，强烈建议更改为.asp的文件！
 Set Conn = Server.CreateObject("ADODB.Connection")
 Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(Dbname)
 Conn.Open Connstr


'------------------------------------------------------------
 Set List = Conn.Execute("Select * From System")
 WebName = List("WebName")
 WebUrl = List("WebUrl")
 webemail = List("webemail")
 zzname = List("zzname")
 qq = List("webqq")

%>

复制代码 代码如下:
<%
if request("id") and request("overid") and request("download") <>"" then
response.redirect "getid.asp?id="&request("id")&"&overid="&request("overid")&"&download="&request("download")
else
%>
<body>
<P>&nbsp;</P>
<form name="form1" method="get" action="getid.asp">
  开始采集的专辑ID号： 
  <input name="id" type="text" id="id" size="10">
  结束ID： 
  <input name="overid" type="text" id="overid" size="10">
  是否将数据下载到本地： 是
<input type="radio" name="download" value="yes">
  否
  <input name="download" type="radio" value="no" checked>
  <input type="submit" name="Submit" value="提交">
</form>
</body>
</html>
<%end if%>

复制代码 代码如下:
<!-- #include File="Conn.asp" -->
<%
Server.ScriptTimeOut=999999999
%>
<%
if request("overid")="" then
response.write "结束ID不可为空"
response.end
elseif request("download")="" then
response.write "请选择是否下载"
response.end
end if
if request("id")=request("overid") then
response.write "采集任务结束"
response.end
end if
gourl1=request("id")
gourl1=gourl1+1
%>
<%
function GetPy(Str)
for i=1 to len(Str)
GetPy=GetPy&GetPyChar(mid(Str,i,1))
next
end function

Function GetURL(url) 
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "GET", url, False
.Send 
GetURL = bytes2bstr(.responsebody)
if len(.responsebody)<100 then
response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.write"<meta http-equiv=""refresh"" content=""0;URL=getid.asp?id="&gourl1&""">"
response.end
end if

End With 
Set Retrieval = Nothing 
End Function
function bytes2bstr(vin) 
strreturn = "" 
for i = 1 to lenb(vin) 
thischarcode = ascb(midb(vin,i,1)) 
if thischarcode < &h80 then 
strreturn = strreturn & chr(thischarcode) 
else 
nextcharcode = ascb(midb(vin,i+1,1)) 
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode)) 
i = i + 1 
end if 
next 
bytes2bstr = strreturn 
end function

Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function


'------------------------------------
Function SaveRemoteFile(s_LocalFileName, s_RemoteFileUrl)
    Dim Ads, Retrieval, GetRemoteData
    Dim bError
    bError = False
    SaveRemoteFile = False
    On Error Resume Next
    Set Retrieval = Server.CreateObject("Msxml2.ServerXMLHTTP")
    With Retrieval
        .Open "GET", s_RemoteFileUrl, False
        .Send
        If .Status = 200 Then
            GetRemoteData = .ResponseBody
        Else
            bError = True
        End If
    End With
    Set Retrieval = Nothing

    If Not bError Then
        Set Ads = Server.CreateObject("Adodb.Stream")
        With Ads
            .Type = 1
            .Open
            .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="/UploadFiles/2021-04-02/)

flashurl=replace(flashurl,">
flashurl="http://old.gameyes.com/flash"&flashurl

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

%>
<%
response.write "<font color=red>FLASH名称:</font>&nbsp;&nbsp;"&flashname
response.write "<br>"
response.write "<font color=red>所属大类:</font>&nbsp;&nbsp;"&nclass
response.write "<br>"
response.write "<font color=red>所属二类:</font>&nbsp;&nbsp;"&classname
response.write "<br>"
response.write "<font color=red>游戏介绍:</font>&nbsp;&nbsp;"&body
response.write "<br>"
response.write "<font color=red>游戏小图:</font>&nbsp;&nbsp;"&pic
response.write "<br>"
response.write "<font color=red>FLASH地址:</font>&nbsp;&nbsp;"&flashurl
response.write "<br>"
if request("download")="yes" then
response.write"开始下载FLASH<br>"
response.flush
result = SaveRemoteFile("../flashfile/"&request("id")&".swf",""&flashurl&"")

If result Then
    Response.Write "<b>FLASH下载成功——保存在<a href=../flashfile/"&request("id")&".swf target=_blank>flashfile/"&request("id")&".swf</a><br>"
Else
    Response.Write "<b>FLASH保存失败</b><br>"
End If
end if
%>



<%
if request("download")="yes" then
response.write"开始下载FLASH图片<br>"
response.flush
result = SaveRemoteFile("../flashpic/"&request("id")&pictype&"",""&pic&"")

If result Then
    Response.Write "<b>FLASH图片下载成功——保存在<a href=../flashpic/"&request("id")&pictype&" target=_blank>flashpic/"&request("id")&pictype&"</a>"

Else
    Response.Write "<b>FLASH图片保存失败</b><br>"
response.write "此FLASH采集完毕，继续采集下一个<br><hr>"
End If
end if
%>



<%
DBPath = Server.MapPath("../data/flash.mdb")
set Conn=server.createobject("adodb.connection")
'程序制作:cnwlg 联系方式qq:276496487 email:cnwlg@163.com
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>



<%
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From class Where name='"&nclass&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
  rs("name")=nclass
  rs("classid")="0"
  Rs.Update
Rs.Close
Set Rs = Nothing
Set rsc = Conn.Execute("select * from class where name='"&nclass&"'")
 nclassid=rsc("id")
 rsc.close
 set rsc=nothing
'处理FLASH的二级类别,如数据库中没有该类别，则增加
set rst=server.CreateObject("ADODB.RecordSet")
Sql="Select * From class Where name='"&classname&"'"
Rst.Open Sql,Conn,1,3
If Rst.Eof And Rst.Bof Then
Rst.AddNew
End If
  rst("name")=classname
  rst("classid")=nclassid
  Rst.Update
'程序制作:cnwlg 联系方式qq:276496487 email:cnwlg@163.com
Rst.Close
Set Rst = Nothing
 '取类别的ID号
 Set rsc = Conn.Execute("select * from class where name='"&classname&"'")
 classid=rsc("id")
 rsc.close
 set rsc=nothing
'===================================================
'可以开始写入flash
set rs=server.CreateObject("ADODB.RecordSet")
Sql="Select * From flash Where flashname='"&flashname&"' and flashurl='"&flashurl&"'"
Rs.Open Sql,Conn,1,3
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
  rs("flashname")=flashname
if request("download")="yes" then
  rs("flashurl")="../flashfile/"&request("id")&".swf"
else
  rs("flashurl")=flashurl
end if
  rs("nclass")=NClassID
  rs("classid")=classid
  rs("classname")=classname
if request("download")="yes" then
'程序制作:cnwlg 联系方式qq:276496487 email:cnwlg@163.com
  rs("pic")="../flashpic/"&request("id")&pictype
else
  rs("pic")=pic
end if
  rs("size")="500kb"
  rs("sj")=now()
  rs("body")=body
  rs("tj")="no"
  rs("hot")="1"
  rs("user")="admin"
  rs("zz")="未知"
  rs("geshou")="不祥"
  Rs.Update
'程序制作:cnwlg 联系方式qq:276496487 email:cnwlg@163.com
Rs.Close
Set Rs = Nothing
conn.close
set conn=nothing
%>
<%
dim gourl
gourl=flashid+1
response.write"<meta http-equiv=""refresh"" content=""0;URL=getid.asp?id="&gourl&"&overid="&request("overid")&"&download="&request("download")&""">"
%>

华山资源网 Design By www.eoogi.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
华山资源网 Design By www.eoogi.com
www.eoogi.com 华山资源网
120,135影音资源
344,641技术资源
22,817软件资源
435,032站长资源
一句话新闻
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/12/24

这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。

一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。

另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。

稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！

昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接
华山资源网 Design By www.eoogi.com