showdown.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="下载中心→软件下载"
dim idNumeric,idErrMsg,iderror
id=request.queryString("id")
If not isNumeric(id) or id="" Then
	idNumerric=false
	idErrMsg="<li>参数不是数字型参数</li><li>请输入一个数字型参数</li>"
Else
	idNumeric=true
	conn.execute("UPDATE ms_down SET down_clicks=down_clicks+1 WHERE id="&id)
	if request.querystring("action")="error" then
		conn.execute("update ms_down set down_error=down_error+1 where id="&id)
		response.write("<script>alert('感谢您发现了错误，并给我们报错！');</script>")
	end if
	sql="select * from ms_down as d,ms_down_class as c,ms_down_cat as cat where d.catID=cat.catID and d.classID=c.classID and id="&id
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,connstr,1,1
	If not rs.eof and not rs.bof Then
		dim keyword,popedom,jifen,monery
		keyword=rs("down_keyword")
		popedom=rs("popedom")
		jifen=rs("jifen")
		money=rs("money")
		buyuser=rs("buyuser")
		iderror=true
	Else
		iderror=false
		idErrMsg="<li>您要查找的 ID 编号软件不存在或者已经被删除了</li>"
	End If
End If
%>
<!--#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"><%Call searchInput("soft")%></div>
		</div>
<%If idNumeric and iderror Then
	downOrderTitle="总下载排行"
	ordersql="select top "&downOrderNum&" * from ms_down where catID="&rs("d.catID")&" and down_dcount>1 order by down_dcount desc"
	Call downOrder()
	downOrderTitle="本类下载排行"
	ordersql="select top "&downOrderNum&" * from ms_down where classID="&rs("d.classID")&" and down_dcount>1 order by down_dcount desc"
	Call 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">
<%If idNumeric Then
	If iderror Then
		pltype="down"
		Call showDownBody()
	Else
		showmsg idErrMsg,"系统返回信息"
	End If
Else
	showmsg idErrMsg,"参数出错"
End If%>
<!--中间部分结束-->
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
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 newrs=Server.CreateObject("ADODB.RecordSet")
	newrs.Open newsql,connstr,1,1
	If Not newrs.Eof and not newrs.Bof Then
	Do While Not newrs.Eof%>
		<div class="rlineX">☉<a href="showdown.asp?id=<%=newrs("id")%>" target="_blank" title="下载标题：<%=newrs("down_title")%>&#10;发布时间：<%=newrs("down_date")%>&#10;浏览次数：<%=newrs("down_clicks")%>"><%=cutStr(newrs("down_title"),14)%></a></div>
<%
		newrs.MoveNext
	Loop
	Else
		Response.Write("暂无最新下载！")
	End If
newrs.Close
Set newrs=Nothing
%>
</div></div>
<%
End Sub
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 orderrs=conn.execute(ordersql)
	If Not orderrs.Eof and not orderrs.Bof Then
	Do While Not orderrs.Eof%>
		<div class="rlineX">☉<a href="showdown.asp?id=<%=orderrs("id")%>" title="下载标题：<%=orderrs("down_title")%>&#10;发布时间：<%=orderrs("down_date")%>&#10;浏览次数：<%=orderrs("down_clicks")%>"><%=cutStr(orderrs("down_title"),14)%></a></div>
<%
		orderrs.MoveNext
	Loop
	Else
		Response.Write("暂无下载推行！")
	End If
orderrs.Close
Set orderrs=Nothing
%>
</div></div>
<%
End Sub
Sub showdownBody()%>
		<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>
		<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodyTable">
		  <tr> 
			<td height="40" colspan="2" valign="middle" class="bb" align="center" style="font-size:18px;font-weight:bold;"><font color="<%=rs("titlecolor")%>"><%=rs("down_title")%></font></td>
		  </tr>
		  <tbody>
		  <tr> 
			<td width="291" height="250" valign="top">
			<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
				<tr> 
				  <td width="70" valign="middle" align="center" class="br">语言界面：</td>
				  <td width="210" valign="middle" align="left" class="br">&nbsp;<%=rs("language")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">软件大小：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("down_size")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">软件类别：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("catName")&" | "&rs("class")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">运行环境：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("down_roof")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">授权方式：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("down_mode")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">加入时间：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("down_date")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">软件评级：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<img src="images/star<%=rs("down_commEnd")%>.gIf"></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">软件添加：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%=rs("post_member")%></td>
				</tr>
				<tr> 
				  <td valign="middle" align="center" class="bt br">下载权限：</td>
				  <td valign="middle" align="left" class="bt br">&nbsp;<%
				  if cstr(rs("popedom"))="0" then
				  response.write("普通下载") 
				  elseif cstr(rs("popedom"))="1" then
				  response.write("会员下载(需"&pointName&""&rs("jifen")&"以上)")
				  elseif cstr(rs("popedom"))="2" then
				  response.write("VIP会员下载(需消费"&rs("money")&moneyName&")")
				  end if%></td>
				</tr>
				<tr>