softcount.asp

blue space 蓝色空间下载系统精简版---大家分享

<!--#include file="../inc/HeadDH.asp" -->
<!--#include file="../inc/oConn.asp" -->
<%
Dim SoftID
SoftID = Request.QueryString("SoftID")
Call UpdateCount(SoftID)
Call SoftCount(SoftID)

Sub SoftCount(SoftID)
	On Error Resume Next
	Dim DownCount
	DownCount = oConn.Execute("Select SoftCount From SoftInfo Where SoftID="&SoftID&"")(0)
	Response.Write "document.write('"&DownCount&" 次');"
	If Err Then
		Err.Clear
	End If
End Sub

Sub UpdateCount(SoftID)
	On Error Resume Next
	oConn.Execute("Update SoftInfo Set SoftCount=SoftCount+1 Where SoftID="&SoftID&"")
	If Err Then
		Err.Clear
	End If
End Sub
%>