⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 down_makesoft.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!
💻 ASP
字号:
🔍 
<%Admin="DownAdd"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<!--#include file="Downconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
<style>
body{font-size:9pt;line-height:140%} 
</style>
</head>
<body>
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 程序名称：晓宇听幽网站内容管理系统·软件下载管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 程序创建时间：2003-7-10
'# 程序完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
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
body=body&"<div align=right><a title=""Powered By:xoYu CMS"" href=http://www.xoyu.com/><span style=""background-color: #FFFFFF"">xoYu CMS 2.0</span></a></div>"
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=""../SoftWare/list"&TI(i)&"_1.html"">"&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=""../SoftWare/xoYuSoft_"&rs("id")&".html"">"&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 xoYuStudioH(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 xoYuStudioH(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=""xoYuSoft"&rs("id")&".html"">"&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 GO GO！</a><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=""../html/xoYuArticle"&rs("id")&".html"">"&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,"[Soft_CXN]",cxn)
	pencat=replace(pencat,"[Soft_CXV]",cxv)
	pencat=replace(pencat,"[Soft_ID]",id)
	
	  if yy<>"" then
	   else
	   yy="未知"
	  end if
	pencat=replace(pencat,"[Soft_YY]",yy)
	
	  if cd<>"" then
	  else
	  cd="未知"
	  end if
	pencat=replace(pencat,"[Soft_CD]",cd)
	
	  if sq<>"" then
	  sq=sq&"版"
	  else
	  sq="授权未知"
	  end if	
	pencat=replace(pencat,"[Soft_SQ]",sq)
	
	   if size<>"" then
	   else
	   size="未知"
	   end if
	pencat=replace(pencat,"[Soft_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
	reg="<a href="""&reg&""" target=""_blank""><b>请点击这里</b></a>"
	end if
	'''###############
	pencat=replace(pencat,"[Soft_HOT]",hotstar)
	if system<>"" then
	else
	system="未知"
	end if	
	pencat=replace(pencat,"[Soft_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,"[Soft_EMAIL]",ln)
	
	if lu<>"" then
	lu="<a href="""&lu&""" target=""_blank"">"&lu&"</a>"
	else
	lu="未知"
	end if
	pencat=replace(pencat,"[Soft_URL]",lu)
	if pic<>"" then
	pic="<a href="&pic&"><img border=""0"" width=""195"" height=""140"" alt=""点击查看图片 共享软件发布-下载-学习-研究-交流-破解-注册-汉化-尽在"&webname&"-ASP-注册版-破解版-汉化版-程序制作：晓宇听幽工作室。 网站：Www.xoYu.Com"" src="""&pic&"""></a>"
	else
	pic=""
	end if
	pencat=replace(pencat,"[Soft_PIC]",pic)
	pencat=replace(pencat,"[Soft_TXT]",body)
	pencat=replace(pencat,"[Soft_DATE]",datetime)
	if datetime>Now() then
	  mtime=datetime
	else
	  mtime=Now()
	end if
	pencat=replace(pencat,"[Soft_TIME]",mtime)	
	pencat=replace(pencat,"[Soft_HITS]",hits)
	
	if pwd<>"" then
	pwd="<font color=""#FF0000"">"&pwd&"</font>(红色部分)<br>"
	else
	pwd="没有密码"
	end if
	pencat=replace(pencat,"[Soft_PWD]",pwd)
pencat=replace(pencat,"[Soft_TYPE]",thistype)
pencat=replace(pencat,"[Soft_REG]",reg)
pencat=replace(pencat,"[Soft_NAME]",ttype)
pencat=replace(pencat,"[Soft_TITLE]",thistitle)
pencat=replace(pencat,"[Soft_TXtop]",txtop)
pencat=replace(pencat,"[Soft_DOWN_LIST]",dlist)
pencat=replace(pencat,"[Soft_XG_LIST]",xlist)
pencat=replace(pencat,"[Soft_XG_INFO]",xinfo)
pencat=replace(pencat,"[Soft_USER]",user)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../SoftWare/xoYuSoft_"&id&".html"))
fout.Write pencat
fout.Writeline("")
fout.Writeline("<center><div align=center><a title=""Powered By:xoYu CMS"" href=http://www.xoyu.com/><span style=""background-color: #FFFFFF"">xoYu CMS 2.0</span></a></div></center>") 
fout.Writeline("<!--Published Date:"&Now&"   Power by www.xoyu.com-->")
fout.Writeline("<!--2002～2003 Copyright by www.xoyu.com All Rights Reserved-->")
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 + -