📄 down_makesoft.asp

📁 京云下载系统
💻 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</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")
	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

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 & "-> <a href=""../sort/"&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&"·<a href=""../soft/"&rs("id")&".htm"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
if h>=10 then exit do
rs.movenext
loop
h=0
end if
rs.close
'########读取下载连接
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>&nbsp;"
 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>点这里下载-> "
 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
'#######读取相关软件
sql="select top 10 id,cxn,cxv from down where cxn like '%"&cxn&"%' and id<>"&id&" order by date desc"
  rs.open sql,conn,1,1
  if not rs.eof then
  do while not rs.eof
xlist=xlist&"·<a href="""&rs("id")&".htm"">"&rs("cxn")&""
if rs("cxv")<>"" then
xlist=xlist&"&nbsp;"&rs("cxv")&""
end if
xlist=xlist&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
xlist=xlist&"·更多相关 <a href=""../search.asp?k="&cxn&""">GO!-></a><br><br>"
end if
rs.close
conn.close
set conn=nothing
%><!--#include file="mdb_path_info.asp"--><%
'#######读取相关文章
sql="select top 10 id,title from info where title like '%"&left(cxn,5)&"%' or se='"&cxn&"' order by date desc"
  rs.open sql,conn,1,1
  if not rs.eof then
  do while not rs.eof
xinfo=xinfo&"·<a target=""_blank"" href=""../info/"&rs("id")&".htm"">"&rs("title")&"</a><br>"
h=h+1
if h>=10 then exit do
rs.movenext
loop
h=0
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)
	
	  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&"<img src=""../images/d_star.gif"" width=""13"" height=""12"" border=""0"">"
	next
	'''###############注册页面
	if reg<>"" then
	hotstar=hotstar&"<br><b>在线注册：</b><a href="""&reg&""" target=""_blank""><font color=""red"">点击这里成为正版用户</font>==&gt;</a>"
	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="<a href=""mailto:"&ln&"?subject=Come from "&weburl&",About yours ["&cxn&"]"">"&ln&"</a>"
	else
	ln="未知"
	end if
	pencat=replace(pencat,"S_EMAIL",ln)
	
	if lu<>"" then
	lu="<a href="""&lu&""" target=""_blank"">"&lu&"</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江湖-注册版-破解版-汉化版-程序制作:百万网址.惊云--%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="<b>解压密码：</b>[<font color=""#FF0000"">"&pwd&"</font>](红色部分)<br>"
	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)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../soft/"&id&".htm"))
fout.Write pencat
fout.close
'************** 生成HTML页 结束 ***************
if request("type")="page" then%><font color="#FF0000">生成下载页完成</font><script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>
<%end if%>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -