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")&""">"
%>
