hits.asp

这些都是我以前学习是用到的源码

<!--#include file="config.asp" -->
<%
Dim softid,AllHits,DayHits,WeekHits,MonthHits,stype
Dim Rs,SQL
If Not IsNumeric(Request.QueryString("SoftID")) And Request.QueryString("SoftID") <> "" then
	Response.write"错误的系统参数!ID必须是数字"
	Response.End
Else
	softid = CLng(Request.QueryString("SoftID"))
End If
stype = CLng(Request.querystring("type"))
SQL="select AllHits,DayHits,WeekHits,MonthHits,HitsTime from NC_SoftList where softid = " & softid  
Set Rs = Newasp.Execute(SQL)
If Not (Rs.BOF And Rs.EOF) Then
	AllHits = Rs("AllHits")
	DayHits = Rs("DayHits")
	WeekHits = Rs("WeekHits")
	MonthHits = Rs("MonthHits")
End If
Rs.Close
Set Rs = Nothing
CloseConn
If stype = 1 Then
	Response.Write "var oHits=document.getElementById(""downhits"");" & vbNewLine
	Response.Write "if (oHits!=null) {" & vbNewLine
	Response.Write "oHits.innerHTML="& Chr(34) & " 本日下载：" & DayHits & "&nbsp;&nbsp;本周下载：" & WeekHits & "&nbsp;&nbsp;本月下载：" & MonthHits & "&nbsp;&nbsp;总共下载：" & AllHits & " " & Chr(34) &";" & vbNewLine
	Response.Write "}" & vbNewLine
Else
	Response.Write "document.write (" & Chr(34) & " 本日下载：" & DayHits & "&nbsp;&nbsp;本周下载：" & WeekHits & "&nbsp;&nbsp;本月下载：" & MonthHits & "&nbsp;&nbsp;总共下载：" & AllHits & " " & Chr(34) & ");"
End If
%>