downhits.asp

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

<!--#include file="conn.asp" -->
<%
Dim softid,AllHits,DayHits,WeekHits,MonthHits
Dim Rs,SQL
If Not IsNumeric(Request.querystring("ID")) And Request.querystring("ID") <> "" then
	Response.write"错误的系统参数!ID必须是数字"
	Response.end
Else
	softid = CLng(Request.querystring("ID"))
End If
set Rs=server.createobject("adodb.recordset")
SQL="select Hits,DayHits,WeekHits,MonthHits,HitsTime from NC_SoftInfo where softid = " & softid  
Rs.open SQL,conn,1,3
	AllHits = Rs("Hits")
	DayHits = Rs("DayHits")
	WeekHits = Rs("WeekHits")
	MonthHits = Rs("MonthHits")
Rs.close
set Rs=nothing
Response.Write "document.write (" & Chr(34) & " 本日下载：" & DayHits & "&nbsp;&nbsp;本周下载：" & WeekHits & "&nbsp;&nbsp;本月下载：" & MonthHits & "&nbsp;&nbsp;总共下载：" & AllHits & " " & Chr(34) & ");"
%>