downloadurl.asp

asp+sql软件系统

<!--#include file="conn.asp"-->
<!--#include file="Include/Client_Module.asp"-->

<%
Function Checknumber(numeral)
numeral=CStr(numeral)
If InStr(numeral,".")>0 Then
	Checknumber=True
Else
	Checknumber=False
End If
End Function

Dim Id,Sid,DUid,DRs
Id=CInt(Request.QueryString("Id"))
Sid=CInt(Request.QueryString("Sid"))
DUid=CInt(Request.QueryString("DUid"))

If Id="" Or Sid="" Or DUid="" Then
	ErrInfo = ErrInfo&"<li>ID不能为空。</li>"
	FoundErr=True
End If

If Request.Servervariables("HTTP_REFERER")="" Or InStr(Request.Servervariables("HTTP_REFERER"),Request.Servervariables("SERVER_NAME"))=0 Then
	ErrInfo = ErrInfo&"<li>请从本站下载软件。</li>"
	FoundErr=True
End If

Call OpenDatabase()
Set Rs=Conn.Execute("EXECUTE NetCom_DownloadUrl_Power "&DUid&"")
If Rs.Eof Then
	ErrInfo = ErrInfo&"<li>无法找到此下载或此下载已经被禁。</li>"
	FoundErr=True
	End If


If FoundErr Then
	Call ErrorMsg()
Else
	If Rs(1)>0 Then
	Set DRs=Conn.Execute("SELECT Dcount FROM [UserDownloadLog] WHERE Did="&Id&" AND Userid="&UserId&"")
		If DRs.Eof Then
			Conn.Execute("UPDATE [Users] SET Usercards=Usercards-"&Rs(1)&" WHERE Userid="&UserId&"")
			Conn.Execute("INSERT INTO [UserDownloadLog](Did,Dname,Userid,Username,Dcount,Dcard,Zcard,Dtime)VALUES("&Id&",'"&Rs(0)&"',"&UserId&",'"&UserName&"',0,"&Rs(1)&","&Rs(1)&",'"&Now()&"')")
		ElseIf DRs(0)=0 Then
			Conn.Execute("UPDATE [UserDownloadLog] SET Dcount=Dcount+1,Dtime='"&Now()&"' WHERE Did="&Id&" AND Userid="&UserId&"")
		ElseIf Checknumber(DRs(0)/Rs(3)) Then
			Conn.Execute("UPDATE [UserDownloadLog] SET Dcount=Dcount+1,Dtime='"&Now()&"' WHERE Did="&Id&" AND Userid="&UserId&"")
		ElseIf Not(Checknumber(DRs(0)/Rs(3))) Then
			Conn.Execute("UPDATE [Users] SET Usercards=Usercards-"&Rs(1)&" WHERE Userid="&UserId&"")
			Conn.Execute("UPDATE [UserDownloadLog] SET Dcount=Dcount+1,Zcard=Zcard+"&Rs(1)&",Dtime='"&Now()&"' WHERE Did="&Id&" AND Userid="&UserId&"")
		End If
	DRs.Close
	Set DRS=Nothing
	End If
	Conn.Execute("EXECUTE NetCom_DownloadUrl_Up "&Id&"")
	Set DRs=Conn.Execute("EXECUTE NetCom_DownloadUrl_Link "&DUid&","&Sid&"")
		Response.Redirect DRs(1)&DRs(0)
		Response.Flush
	DRs.Clsoe
	Set DRs=Nothing
End If
Rs.Close
Set Rs=Nothing
Call CloseDatabase()
%>