download.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 54 行

<!--#include file="conn.asp" -->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/Create_SoftInfoCls1.Asp" -->
<!--#include file="base64.asp"-->

<script src="http://pstatic.xunlei.com/js/webThunderDetect.js"></script>
<%
Dim Rs, SQL
Dim ID, DownID,start,over,mbb,mbp,mbbb
Dim ServerID, SoftID, DownLoadUrl, DownPath
Dim isMember, MoneyNum, UserGroupName
Set Rs = server.CreateObject("adodb.recordset")
ID = CLng(Request.Querystring("ID"))
If ID = "" And DownID = "" Then Response.Write ("<script>alert('您执行了非法操作！');history.go(-1)</script>")


SQL = "select Hits,DayHits,WeekHits,MonthHits,HitsTime from NC_SoftInfo where softid = "& ID
Rs.Open SQL, conn, 1, 3
Rs("Hits") = Rs("Hits") + 1
If DateDiff("Ww", Rs("HitsTime"), Now) <= 0 Then
	Rs("WeekHits") = Rs("WeekHits") + 1
Else
	Rs("WeekHits") = 1
End If
If DateDiff("M", Rs("HitsTime"), Now) <= 0 Then
	Rs("MonthHits") = Rs("MonthHits") + 1
Else
	Rs("MonthHits") = 1
End If
If DateDiff("D", Rs("HitsTime"), Now) <= 0 Then
	Rs("DayHits") = Rs("DayHits") + 1
Else
	Rs("DayHits") = 1
	Rs("HitsTime") = Now
End If
Rs.Update
Rs.Close
Set Rs = Nothing
'Response.Redirect DownLoadUrl
'conn.Close
'Set conn = Nothing
%>
<%
'********************************************************************************
'*          'NewCloud DownLoad System Version 6.0.1 
'*          'Date: 2004年6月11日
'*          'File: Software.Asp
'********************************************************************************
Dim NewCloud
Set NewCloud = New Create_SoftInfo_Cls
NewCloud.GetSoftInfo
Set NewCloud = Nothing
'********************************************************************************
%>