📄 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -