down.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="下载中心"
%>
<!--#include file="ms_start.asp"-->
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call publiclogonModule()%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">下载统计</span></td><td class="ltr"></td></tr></table>
		<div class="lmc" style="line-height:18px; padding-left:8px;"><%Call downCount("down.asp")%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内搜索</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call searchInput("down")%></div>
		</div>
<%		 catID=Request.QueryString("catID")
		 classID=Request.QueryString("classID")
		 If (catID<>"" and isNumeric(catID)) AND (classID<>"" and isNumeric(classID)) Then
			 downOrderTitle="本类排行"
			 sql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and classID="&classID&" and down_dcount>1 and pass=true order by down_dcount desc"
			 Call downOrder()
			 downOrderTitle="本类推荐"
			 sql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and classID="&classID&" and down_good=true and pass=true order by down_date desc"
			 Call downOrder()
			 newsql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and classID="&classID&" and datedIff('d',down_date,#"&now()&"#)<=1 and pass=true order by down_date desc"
			 Call newdown()
		 ElseIf (catID<>"" and isNumeric(catID)) AND classID="" Then
			 downOrderTitle="本类排行"
			 sql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and down_dcount>1 and pass=true order by down_dcount desc"
			  Call downOrder()
			 downOrderTitle="本类推荐"
			 sql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and down_good=true and pass=true order by down_date desc"
			 Call downOrder()
			 newsql="select top "&downOrderNum&" * from ms_down where catID="&catID&" and datedIff('d',down_date,#"&now()&"#)<=1 and pass=true order by down_date desc"
			 Call newdown()
		 Else
			 downOrderTitle="总下载排行"
			 sql="select top "&downOrderNum&" * from ms_down where down_dcount>1 and pass=true order by down_dcount desc"
			 Call downOrder()
			 downOrderTitle="本站推荐"
			 sql="select top "&downOrderNum&" * from ms_down where down_good=true and pass=true order by down_date desc"
			 downOrder()
			 newsql="select top "&downOrderNum&" * from ms_down where datedIff('d',down_date,#"&now()&"#)<=1 and pass=true order by down_date desc"
			 Call newdown()
		 End If%>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<%
dim idnumeric,iderror,iserror,errormsg
	catID=Request.QueryString("catID")
	classID=Request.QueryString("classID")
	If clss_id="" and catID="" Then
		idnumeric=true
		sql="select * from ms_down_class as c,ms_down as d,ms_down_cat as cat where c.classID=d.classID and d.catID=cat.catID and pass=true order by down_istop=true,d.down_date desc"
		Set rs=Server.CreateObject("ADODB.RecordSet")
		rs.Open sql,connstr,1,1
	   If not rs.eof and not rs.bof Then
				n=downPage'每页显示记录数
				url="down.asp?"
				nextpage=pagetitle(rs,n,url,"个软件")'分页显示
				titleclass="全部下载 "
				iserror=true
	   Else
			 iserror=false
			 errormsg="<li>您要查找的 ID 分类不存在或者已经被删除了</li>"
	   End If		
	ElseIf	catID<>"" and classID="" Then
		If isNumeric(catID) Then
			idnumeric=true
			sql="select * from ms_down as d,ms_down_class as c,ms_down_cat as cat where c.classID=d.classID and d.catID=cat.catID and d.catID="&catID&" and pass=true order by down_istop=true,d.down_date desc"
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,connstr,1,1
			If not rs.eof and not rs.bof Then
				n=downPage'每页显示记录数
				url="down.asp?"
				nextpage=pagetitle(rs,n,url,"个软件")
				titleclass=rs("catName")&" "
				iserror=true
			 Else
				iserror=false 
				errormsg="<li>您要查找的 ID 分类不存在或者已经被删除了</li>"
			 End If		
		Else
			iderror="<li>参数不是数字型参数</li><li>请输入一个数字型参数</li>"
			idnumeric=false
		End If
	Else
		If isNumeric(catID) and isNumeric(classID) Then
			idnumeric=true
			sql="select * from ms_down as d,ms_down_class as c,ms_down_cat as cat where d.classID=c.classID and d.catID=cat.catID and d.classID="&classID&" and d.catID="&catID&" and pass=true order by down_istop=true,d.down_date desc"
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open sql,connstr,1,1
			If not rs.eof and not rs.bof Then
				n=downPage'每页显示记录数
				url="down.asp?"
				nextpage=pagetitle(rs,n,url,"个软件")
				titleclass=rs("catName")&" <font color='#ff4444'>"&rs("class")&"</font>"
				iserror=true
			 Else
				iserror=false
				errormsg="<li>您要查找的 ID 分类不存在或者已经被删除了</li>"
			 End If
		Else
			iderror="<li>参数不是数字型参数</li><li>请输入一个数字型参数</li>"
			idnumeric=false
		End If		
	End If
		%>
		<div class="groupblock">
		<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="down.asp">下载中心</a></span></td><td class="naviR"></td></tr></table>
		<div class="rmc"><%Call parentClass("select * from ms_down_cat","down.asp","catID","catName","ms_down_class","classID","class")%></div>
		</div>
<%
If idnumeric Then
	If iserror Then
		Call showSoftList()
	Else
		showmsg errormsg,"系统返回信息"
	End If
Else
	showmsg iderror,"参数出错"
End If
%>
</td></tr></table>
<!--#include file="ms_End.asp"-->
<%
Sub downOrder()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt"><%=downOrderTitle%></span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
	Set rs=conn.execute(sql)
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="showdown.asp?id=<%=rs("id")%>" target="_blank" title="下载标题：<%=rs("down_title")%>&#10;发布时间：<%=rs("down_date")%>&#10;下载次数：<%=rs("down_dcount")%>"><%=cutStr(rs("down_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无下载排行！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
'最新更新
Sub newdown()%>
<div class="groupblock">
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">最新下载</span></td><td class="ltr"></td></tr></table>
<div class="lmc">
<%
	Set rs=conn.execute(sql)
	If Not rs.Eof and not rs.Bof Then
	Do While Not rs.Eof%>
		<div class="rlineX">☉<a href="showdown.asp?id=<%=rs("id")%>" target="_blank" title="下载标题：<%=rs("down_title")%>&#10;发布时间：<%=rs("down_date")%>&#10;浏览次数：<%=rs("down_clicks")%>"><%=cutStr(rs("down_title"),14)%></a></div>
<%
		rs.MoveNext
	Loop
	Else
		Response.Write("暂无最新下载！")
	End If
rs.Close
Set rs=Nothing
%>
</div>
</div>
<%
End Sub
'====================================
'功  能：软件下载显示全部列表列表
'函数名：showSoftList()
'=====================================
Sub showSoftlist()%>
<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="down_tl"></td><td class="down_tc"><span class="down_tt"><%=titleclass%> 共有<font color="#ff0000"><%=rs.RecordCount%></font>个软件</span></td><td class="down_tr"></td></tr></table>
<div class="rmc">
<%
If Not rs.Eof And Not rs.Bof Then
	line=0
		DO while Not rs.Eof and line<rs.PageSize%>
		<table width="100%" border="0" cellpadding="0" cellspacing="0" class="down_listTable">
		<tr><td width="320" height="22" valign="middle" class="down_list"><img src="images/down_t.gIf" align="absmiddle"> <a href=showdown.asp?id=<%=rs("id")%> title="查看详细介绍" target="_blank"><font class="t_font"><%=cutStr(rs("down_title"),18)%></font></a></td><td valign="middle" align="right" class="down_list">大小：<font color="#3366CC"><%=rs("down_size")%></font> &nbsp;<font color="#333333"><%=FormatDateTime(rs("down_date"),vbShortDate)%></font></td><td valign="middle" class="down_list"> 下载：<font color='#ff0000'><%=rs("down_dcount")%></font></td></tr>
		<tr><td colspan="3" height='30' valign="top" class="down_sum"><%=cutStr(rs("down_content"),100)%></td></tr>
		<tr><td width="*" colspan="2" height="22" valign="middle" class="down_list"> 语言：<font color="#3366CC"><%=rs("language")%></font> | 授权方式：<font color="#3366CC"><%=rs("down_mode")%></font> 运行平台：<font color="#3366CC"><%=rs("down_roof")%></font></td><td width="75" align="center" class="down_list"><img src="images/star<%=rs("down_commend")%>.gIf"></td></tr>
		</table>
	<%
	line=line+1
	rs.MoveNext
		Loop
Else
	Response.write("该分类暂时没有软件下载！")
End If%>
</div>
<%if rs.recordcount>n then%>
<div class="page"><%=nextpage%></div>
<%end if%>
<%
End Sub
Sub downCount(url)
if fabuPass=1 then
	cCount=application("count"&url)
end if
if isEmpty(cCount) then
	dim cCount(5),countrs
	countrs=conn.execute("select count(id) as downNum,sum(down_dcount) as readNum from ms_down")
	cCount(0)=countrs(0)
	cCount(1)=conn.execute("select count(id) from ms_down where pass=false")(0)
	cCount(2)=conn.execute("select count(id) from ms_down where datediff('d',down_date,#"&now()&"#)=0 and pass=true")(0)
	cCount(3)=conn.execute("select count(id) from ms_down where datediff('d',down_date,#"&now()&"#)=1 and pass=true")(0)
	cCount(4)=countrs(1)
	if fabuPass=1 then
		application("count"&url)=cCount
	end if
	set countrs=nothing
end if
%>
<li style="list-style-type: square;">软件总数：<%=cCount(0)%>个<br></li>
<li style="list-style-type: square;">待审软件：<%=cCount(1)%>个</li>
<li style="list-style-type: square;">今日更新：<%=cCount(2)%>个</li>
<li style="list-style-type: square;">昨日更新：<%=cCount(3)%>个</li>
<li style="list-style-type: square;">下载次数：<%=cCount(4)%>次</li>
<%
End Sub
'========================================================
'MaoSin CMS 1.1    Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com   http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>