UC知道asp代码翻译
来源：百度知道 编辑：UC知道 时间：2024/06/15 20:02:48
1.asp
--------------------------------------------------------------------
<% Dim UserName,PassWord,Newasp,rst,Aciton,rs,RoleName,shopid,code,LIP,str,gg
Set Newasp = New NewaspMain_Cls
If Trim(request("Action")) <> "" Then
UserName = Trim(request("UserName"))
PassWord = md5(Trim(Replace(Request("PassWord"), "'", "")))
Code =request("CheckCode")
If Code<>Cstr(session("CheckCode"))Then
Response.Write "<Script Language=JavaScript>alert('输入的验证码不对，请重新输入!');history.back(-1)</Script>"
End If
set rst = Newasp.Execute("select * from Consumer where UserName ='"&UserName&"'")
If Not (rst.bof And rst.bof) Then
If rst("PassWord") <> PassWord Then
Response.Write "<Script Language=JavaScript>alert('密码错误!');histo
--------------------------------------------------------------------
<% Dim UserName,PassWord,Newasp,rst,Aciton,rs,RoleName,shopid,code,LIP,str,gg
Set Newasp = New NewaspMain_Cls
If Trim(request("Action")) <> "" Then
UserName = Trim(request("UserName"))
PassWord = md5(Trim(Replace(Request("PassWord"), "'", "")))
Code =request("CheckCode")
If Code<>Cstr(session("CheckCode"))Then
Response.Write "<Script Language=JavaScript>alert('输入的验证码不对，请重新输入!');history.back(-1)</Script>"
End If
set rst = Newasp.Execute("select * from Consumer where UserName ='"&UserName&"'")
If Not (rst.bof And rst.bof) Then
If rst("PassWord") <> PassWord Then
Response.Write "<Script Language=JavaScript>alert('密码错误!');histo
1、是查询用户表A和权限表B。对查询出来的权限，写入字符串。如果OPERATIONID=1,session（“OPERATE”）=“，1”
2、是对已经写入字符串的权限，用数组的方式分割出来，判断权限。循环读取数组。如果有1，就表示有添加的权限。如果没有，就表示没有权限。
加382437496已经为你写好