judge.asp

5237 论坛.rar

<!--#include file="Connections/connY.asp" -->
<%
S=Request.QueryString("S")
I=Request.QueryString("I")

Set rsArticle = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tArticleManage Where rID="&I
rsArticle.Open Sql,ConnY,3,3
If rsArticle.Eof And rsArticle.Bof Then Response.Redirect "Error.asp?Error=3"
HowMuch=Cint(rsArticle("rPayHowMuch"))
UserGet=rsArticle("rPoster")

If rsArticle("rIsNeedPay") Then
'游客
If Cint(Session("SLevel"))=0 Then Response.Redirect "Error.asp?Error=5"
'普通用户
If Cint(Session("SLevel"))=1 Then
Set rsUserPay = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsUserPay.Open Sql,ConnY,3,3
Set rsUserGet = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&UserGet&"'"
rsUserGet.Open Sql,ConnY,3,3
If Cint(rsUserPay("rAssets"))<Cint(rsArticle("rPayHowMuch")) Then
Response.Redirect "Error.asp?Error=6"
Else
rsUserPay("rAssets")=rsUserPay("rAssets") - HowMuch
rsUserPay.Update
rsUserGet("rAssets")=rsUserGet("rAssets") + Cint(HowMuch/2)
rsUserGet.Update
Session("IsPaid")="Yes"
Response.Redirect "View.asp?S="&S&"&I="&I
End If
rsUserPay.Close
rsUserGet.Close
End If
'社区版主
If Cint(Session("SLevel"))=2 Then
Set rsUserPay = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsUserPay.Open Sql,ConnY,3,3
Set rsUserGet = Server.CreateObject("ADODB.Recordset")
Sql = "Select *  From tUserManage Where rUserID='"&UserGet&"'"
rsUserGet.Open Sql,ConnY,3,3
If rsUserPay("rHost")<>Cint(S) Then
If Cint(rsUserPay("rAssets"))<Cint(rsArticle("rPayHowMuch")) Then
Response.Redirect "Error.asp?Error=6"
Else
rsUserPay("rAssets")=rsUserPay("rAssets") - HowMuch
rsUserPay.Update
rsUserGet("rAssets")=rsUserGet("rAssets") + HowMuch/2
rsUserGet.Update
Session("IsPaid")="Yes"
Response.Redirect "View.asp?S="&S&"&I="&I
End If
Else
Session("IsPaid")="Yes"
Response.Redirect "View.asp?S="&S&"&I="&I
rsUserPay.Close
rsUserGet.Close
End If
End If
'社区总管
If Cint(Session("SLevel"))=3 Then
Session("IsPaid")="Yes"
Response.Redirect "View.asp?S="&S&"&I="&I
End If
'站长
If Cint(Session("SLevel"))=4 Then
Session("IsPaid")="Yes"
Response.Redirect "View.asp?S="&S&"&I="&I
End If
rsArticle.Close
Else
Response.Redirect "View.asp?S="&S&"&I="&I
End If
%>