down_makesort.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<%Admin="DownMake"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_down.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(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_list from mb"),conn,1,1
pencat=rs("down_list")
rs.close

tid=request("tid")
currentPage=cint(request("page"))
MaxPerPage=cint(request("MaxPerPage"))

'################ 读取标题 等.. 开始 ################
  rs.open "select * from downtype where id="&tid,conn,1,1
  if not rs.eof then
    ts=rs("ts")    
    tstart=rs("tstart")      
   
        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)&""
          next
  end if
  rs.close

if tstart<>"" then '***自动转向
   pencat="<meta http-equiv=""Refresh"" content=""0; URL="&tstart&"""><a href="""&tstart&""">正在进入...</a>"
else '***自动转向

sqqq=sqqq&""&tid&", "
sql="select * from downtype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
   sqqq=sqqq&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close

''########读取下级分类
rs.open "select * from downtype where tn="&tid&" order by id",conn,1,1
if NOT rs.EOF then
TTY="NO"
Tname=all_type_name
i=0
do while NOT rs.EOF
TTNN=split(rs("tname"),"|")(rs("tj")-1)
  TXlist=TXlist&"<a href=""../SoftWare/List"&rs("id")&"_1.html""><font color=""#000000"">"&TTNN&"</font></a> | "
   i = i + 1
   if i mod 6 =0 then 
   TXlist=TXlist&"<br>"
   end if
rs.MoveNext
loop
end if
rs.close
if TTY_id<>"" and TTY<>"NO" then
rs.open "select * from downtype where tn="&TTY_id&" order by id",conn,1,1
if NOT rs.EOF then
Tname=TTY_name
i=0
do while NOT rs.EOF
TTNN=split(rs("tname"),"|")(rs("tj")-1)
  TXlist=TXlist&"<a href=""../SoftWare/List"&rs("id")&"_1.html""><font color=""#000000"">"&TTNN&"</font></a> | "
   i = i + 1
   if i mod 6 =0 then 
   TXlist=TXlist&"<br>"
   end if
rs.MoveNext
loop
end if
rs.close
end if
''########读取本类top10
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from down where tid in ("&sqqq&") 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 down where tid in ("&sqqq&") order by date desc"
rs.open sql,conn,1,1
if rs.eof then
 lb=lb&"对不起! 暂时没有相关软件 @_@"
mpage=1
allshu=0
else
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount     '得到总页数
rs.move  (currentPage-1)*MaxPerPage
allshu=rs.recordcount
h=0
do while not rs.eof
h=h+1
  lb=lb&"<tr><td width=""40%""><a href=""../SoftWare/xoYuSoft_"&rs("id")&".html"">█&nbsp;"&rs("cxn")&"&nbsp;"&rs("cxv")&"</a></td>"
  lb=lb&"<td width=""11%"" align=""center"">"&rs("date")&"</td>"
  lb=lb&"<td width=""10%"" align=""center"" nowrap>"&rs("hits")&"</td></tr><tr><td width=""100%"" colspan=""3"">·"
    if rs("body")<>"" then
tempstr=replace(rs("body"),"<br>","")
tempstr=replace(tempstr,"<p>","")
tempstr=replace(tempstr,"<b>","")
tempstr=replace(tempstr,"<","")
tempstr=replace(tempstr,"&nbsp;","")
tempstr=replace(tempstr,"　","")
tempstr=replace(tempstr," ","")
lb=lb&""&left(tempstr,44)&"..."
else
lb=lb&"-"
end if
lb=lb&"<br><FONT color=""#666666"">软件类别："
set rstype=server.CreateObject("ADODB.RecordSet")
  rstype.open "select * from downtype where id="&rs("tid"),conn,1,1
    if not rstype.EOF then
      TN=split(rstype("tname"),"|")
      lb=lb& "<a href=""../SoftWare/List"&rs("tid")&"_1.html""><FONT color=""#666666"">"&TN(ubound(TN)-1)&"</FONT></a>"
    else
      lb=lb& "类别错误"
    end if
  rstype.close
if rs("system")<>"" then
lb=lb&" 运行环境："&rs("system")&""
end if
if rs("sq")<>"" then
lb=lb&" 授权方式："&rs("sq")&"版 评价："

for i=1 to rs("hot")
      lb=lb&"★"
    next
end if
lb=lb&"</FONT></td></tr><tr><td width=""90%"" colspan=""3""><hr SIZE=""1""></td></tr>"

if h>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
h=0
'#########读取页次
lb=lb&"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr><td width=""15%"" nowrap>页次：<b>"&currentPage&"</b>/<b>"&mpage&"</b> 每页<b>"&MaxPerPage&"</b> 文章数<b>"&allshu&"</b></td><td width=""65%"" nowrap><p align=""center"">"
pageno=currentPage
if cint(pageno)>1 then
lb=lb&"<a href=../SoftWare/list"&tid&"_1.html title=""首页"">"
end if
lb=lb&"首页</a>&nbsp;"
if cint(pageno)>1 then
lb=lb&"<a href=../SoftWare/list"&tid&"_"&pageno-1&".html title=""上页"">"
end if
lb=lb&"上页</a>"
pp=cint(pageno)-2            
  if pp<1 then            
  pp=1            
  end if            




lb=lb&"&nbsp;"
if cint(pageno)< mpage then
lb=lb&"<a href=../SoftWare/list"&tid&"_"&pageno+1&".html title=""下页"">"
end if
lb=lb&"下页</a>&nbsp;"
if cint(pageno)< mpage then
lb=lb&"<a href=../SoftWare/list"&tid&"_"&mpage&".html title=""末页"">"
end if
lb=lb&"末页</a></p></td><td width=""18%"" nowrap><table cellpadding=""0"" cellspacing=""0"">"
lb=lb&"<form onsubmit=""window.location=this.KKK2.options[this.KKK2.selectedIndex].value; return false;"">"
lb=lb&"<tr><td nowrap>到<select name=""select"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"
   for i=1 to mpage
      selected=""
      if currentpage=i then
          selected=" selected"
      end if
    lb=lb&"<option value=../SoftWare/list"&tid&"_"&i&".html"&selected&">"&i&"</option>"
   next
lb=lb&"</select>页</td></td></tr></form></table>"
 '################ 读取完成 ################
 
pencat=replace(pencat,"[Soft_TITLE]",thistitle)
pencat=replace(pencat,"[Soft_NAME]",tname)
pencat=replace(pencat,"[Soft_TXlist]",txlist)
pencat=replace(pencat,"[Soft_TXtop]",txtop)

pencat=replace(pencat,"[Soft_LB]",lb)
pencat=replace(pencat,"[Soft_TXT]",typetxt)
pencat=replace(pencat,"[Soft_TYPE]",thistype)
end if '***自动转向
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../SoftWare/List"&tid&"_"&currentPage&".html"))
fout.Write pencat
fout.Writeline("")
fout.Writeline("<!--Published Date:"&Now&"   Power by www.xoyu.com-->")
fout.Writeline("<!--2002～2003 Copyright by www.xoyu.com All Rights Reserved-->")
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.close
'************** 生成HTML页 结束 ***************
%>