📄 down_makesoft.asp
字号:
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量生成HTML - MyFlash管理中心</title>
<style>
body{font-size:9pt;line-height:140%}
</style>
</head>
<body>
<%
set rs=server.createobject("adodb.recordset")
rs.open ("select down_show from mb"),conn,1,1
pencat=rs("down_show")
rs.close
rs.open ("select * from down where id="&request("id")&""),conn,1,1
if not rs.eof then
ttid=rs("tid")
id=rs("id")
cxn=rs("cxn")
cxv=rs("cxv")
pwd=rs("pwd")
yy=rs("yy")
cd=rs("cd")
sq=rs("sq")
size=rs("size")&"<img border=""0"" src=""../work_hits.asp?id="&id&""" width=""1"" height=""1"">"
hot=rs("hot")
system=rs("system")
reg=rs("reg")
ln=rs("ln")
lu=rs("lu")
pic=rs("pic")
body=rs("body")
datetime=rs("date")
hits=rs("hits")
show=rs("show")
user=rs("user")
gs=rs("gs")
end if
rs.close
rs.open "select * from down where id="&request("id")-1,conn,1,1
if not rs.eof then
xg="<li><font class=""text"">上一篇：<a href=""../flash/"&rs("id")&".htm""><font color=""#FF5B02"">"&rs("cxn")&"</font></a></font>"
end if
rs.close
rs.open "select * from down where id="&request("id")+1,conn,1,1
if not rs.eof then
xht="<li><font class=""text"">下一篇：<a href=""../flash/"&rs("id")&".htm""><font color=""#FF5B02"">"&rs("cxn")&"</font></a></font>"
end if
rs.close
user="<a href='javascript:' onclick='window.open(""../admin/user.asp?user="&user&""","""",""width=400,height=150,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'>"&user&"</a>"
'################ 读取标题 等.. 开始 ################
rs.open "select * from downtype where id="&ttid,conn,1,1
ts=rs("ts")
TN=split(rs("tname"),"|")
TI=split(rs("ts"), ",")
for i = 0 to ubound(TN)-1
if i=ubound(TN)-2 and ubound(TN)>1 then
TTY_id=TI(i)
TTY_name=TN(i)
end if
all_type_top_id=TI(i)
all_type_name=TN(i)
thistype=thistype & " <img src=""../images/j1.gif"" border=""0"" width=""8"" height=""11""><a href=""../flash_fl/"&TI(i)&"_1.htm"">"&TN(i)&"</a>"
thistitle=thistitle & " - "&TN(i)&""
ttype=TN(i)
next
rs.close
''########读取本类top10
sql="select * from down where tid="&ttid&" order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
txtop="·还没有连接"
else
do while not rs.eof
h=h+1
txtop=TXtop&"<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0""><tr><td style=""line-height: 28px; font-size: 12px"" align=""middle""><a href=""../flash/"&rs("id")&".htm""><img src="""&rs("pic")&""" width=""100"" height=""75"" border=""1"" class=""border2""></a><br>"&rs("cxn")&"</td></tr>"
if h>=3 then exit do
rs.movenext
loop
h=0
end if
rs.close
txtop=TXtop&"</table>"
'########读取连接连接
sql="select * from downfile where downid="&id&" order by downno"
rs.open sql,conn,1,1
if not rs.eof then
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<img src=../images/play_"&gs&".gif width=16 height=16> "
else
dlist=dlist&"<script language=""javascript"">function JyDownH(htmlurl){var newwin=window.open(htmlurl,'','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no');return false;}</script>"
end if
do while not rs.eof
pi=pi+1
if gs=1 or gs=2 or gs=3 then
dlist=dlist&"<a target=""_self"" href=""javascript:"" onClick=""window.open('../play.asp?id="&id&"&no="&rs("downno")&"','','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=368,height=285,status=no,resizable=no')"">["&pi&"]</a>"
else
dlist=dlist&"<a href=""../down.asp?id="&id&"&no="&rs("downno")&""" onclick=""return JyDownH(this.href);""><img border=0 src=../images/d_download.gif width=14 height=14>点这里连接-> "
dlist=dlist&"<img border=""0"" src=""../down.asp?id="&id&" width=1 height=1>"
if rs("filename")<>"" then
dlist=dlist&""&rs("filename")&""
else
dlist=dlist&""&cxn&" "&cxv&""
end if
dlist=dlist&"</a><br>"
end if
rs.movenext
loop
end if
rs.close
'#######读取相关FLASH
sql="select top 4 id,cxn,cxv,ln from down where cxn like '%"&pwd&"%' and id<>"&id&" order by date desc"
rs.open sql,conn,1,1
if rs.eof then
xlist="暂无相关作 品：（"
else
do while not rs.eof
xlist=xlist&"<font color=""#33CCFF"">·</font><a title="&rs("cxn")&" href="""&rs("id")&".htm"">"&left(rs("cxn"),7)&""
if rs("ln")<>"" then
xlist=xlist&"("&rs("ln")&")"
end if
xlist=xlist&"</a><br>"
h=h+1
if h>=4 then exit do
rs.movenext
loop
h=0
xlist=xlist&"<font color=""#33CCFF"">·</font>更多相关 <a target=""_blank"" href=""http://flash.baidu.com/wstsearch?tn=decadance&ct=33554432&word="&pwd&"&lm=-1"">GO!-></a>"
end if
rs.close
conn.close
set conn=nothing
%><!--#include file="mdb_path_info.asp"--><%
'#######读取相关笑话
sql="select top 4 id,title,form_user from info where title like '%"&pwd&"%' or se='"&cxn&"' order by date desc"
rs.open sql,conn,1,1
if rs.eof then
xinfo="暂无相关笑话：（"
else
do while not rs.eof
xinfo=xinfo&"<font color=""#33CCFF"">·</font><a title="&rs("title")&" href=""../joke/"&rs("id")&".htm"">"&left(rs("title"),7)&"("&rs("form_user")&")</a><br>"
h=h+1
if h>=4 then exit do
rs.movenext
loop
h=0
xinfo=xinfo&"<font color=""#33CCFF"">·</font>更多相关 <a href=""../search.asp?type=info&k="&pwd&""">GO!-></a>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
pencat=replace(pencat,"S_CXN",cxn)
pencat=replace(pencat,"S_CXV",cxv)
pencat=replace(pencat,"S_ID",id)
if yy<>"" then
else
yy="未知"
end if
pencat=replace(pencat,"S_YY",yy)
if cd<>"" then
else
cd="未知"
end if
pencat=replace(pencat,"S_CD",cd)
pencat=replace(pencat,"S_dowm1",down)
if sq<>"" then
sq=sq&"版"
else
sq="授权未知"
end if
pencat=replace(pencat,"S_SQ",sq)
if size<>"" then
else
size="未知"
end if
pencat=replace(pencat,"S_SIZE",size)
for i=1 to hot
hotstar=hotstar&"<font color=""#fd9720"">★</font>"
next
'''###############注册页面
if reg<>"" then
hotstar=hotstar
end if
'''###############
pencat=replace(pencat,"S_HOT",hotstar)
if system<>"" then
else
system="未知"
end if
pencat=replace(pencat,"S_SYSTEM",system)
if ln<>"" then
ln=""&ln&""
else
ln="未知"
end if
pencat=replace(pencat,"S_EMAIL",ln)
if lu<>"" then
lu="<a href="""&lu&""" target=""_blank"">"&ln&"</a>"
else
lu="未知"
end if
pencat=replace(pencat,"S_URL",lu)
if pic<>"" then
pic="<br><a href='javascript:' onclick='window.open(""about:<body topmargin=0 leftmargin=0 oncontextmenu=self.event.returnValue=false><img%20alt="&webname&"["&weburl&"]%20-%20共享作 品发布-连接-学习-研究-交流-破解-注册-汉化-尽在"&webname&"-ASP江湖-注册版-破解版-汉化版-作 品制作:百万网址.MyFlash--%20src="&pic&">"","""",""width=600,height=400,resizable=yes,scrollbars=yes,status=yes,toolbar=no,menubar=no,location=no"")'><img border=""0"" alt=""点击查看图片"" src="""&pic&""" width=""95"" height=""75""></a>"
else
pic=""
end if
pencat=replace(pencat,"S_PIC",pic)
pencat=replace(pencat,"S_TXT",body)
pencat=replace(pencat,"S_DATE",datetime)
if datetime>Now() then
mtime=datetime
else
mtime=Now()
end if
pencat=replace(pencat,"S_TIME",mtime)
pencat=replace(pencat,"S_HITS",hits)
if pwd<>"" then
pwd=""
else
pwd=""
end if
pencat=replace(pencat,"S_PWD",pwd)
pencat=replace(pencat,"T_TYPE",thistype)
pencat=replace(pencat,"T_NAME",ttype)
pencat=replace(pencat,"T_TITLE",thistitle)
pencat=replace(pencat,"TXtop",txtop)
pencat=replace(pencat,"DOWN_LIST",dlist)
pencat=replace(pencat,"XG_LIST",xlist)
pencat=replace(pencat,"XG_INFO",xinfo)
pencat=replace(pencat,"T_USER",user)
pencat=replace(pencat,"S_XG",xg)
pencat=replace(pencat,"S_XHT",xht)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../flash/"&id&".htm"))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
if request("type")="page" then%><font color="#4D9CC8">生成连接页完成</font><script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
<%end if%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -