check.asp

一个非常优秀的自动建站程序

<!--#include file="../conn.asp"-->
<%
If (isnull(session("ID"))) or session("ID")="" Then
response.redirect "index.asp"
End If
Function GradeText(Grade)
Select Case Grade
Case "1"
GradeText="普通会员"
Case "2"
GradeText="铜牌代理"
Case "3"
GradeText="银牌代理"
Case "4"
GradeText="金牌代理"
Case "5"
GradeText="合作伙伴"
Case else
GradeText="非法用户"
End Select
End Function
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select UserID,Name,Grade,Money from [Agent_User] where ID=" & session("ID") & "and UserID='" & AdminName & "'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.redirect "index.asp"
response.end
end if
nowMoney=rs("Money")
rs.close
Set rs = Nothing
%>