UC知道ASP 登入系统那位高手帮忙翻译（讲解）下
来源：百度知道 编辑：UC知道 时间：2024/05/11 16:32:11
<%
Dim rs
If (CStr(Request("MM_login")) <> "") Then
If Request("userright")="user" AND isNumeric(Request("cardno"))=false Then
freshTo "用户名不存在或密码不正确！请重新登陆系统！","login.asp"
End If
If Request("userright")="user" Then
sql = "SELECT cardno,name,lock FROM Borrowers WHERE "
sql = sql & " cardno=" & Replace(Request.Form("cardno"), "'", "''")
sql = sql & " AND passwd='" & md5(Request.Form("passwd"), 16) & "'"
Else
sql = "SELECT * FROM admin WHERE "
sql = sql & " name='" & Replace(Request.Form("cardno"), "'", "''") & "'"
sql = sql & " AND passwd='" & md5(Request.Form("passwd"), 16) & "'"
En
Dim rs
If (CStr(Request("MM_login")) <> "") Then
If Request("userright")="user" AND isNumeric(Request("cardno"))=false Then
freshTo "用户名不存在或密码不正确！请重新登陆系统！","login.asp"
End If
If Request("userright")="user" Then
sql = "SELECT cardno,name,lock FROM Borrowers WHERE "
sql = sql & " cardno=" & Replace(Request.Form("cardno"), "'", "''")
sql = sql & " AND passwd='" & md5(Request.Form("passwd"), 16) & "'"
Else
sql = "SELECT * FROM admin WHERE "
sql = sql & " name='" & Replace(Request.Form("cardno"), "'", "''") & "'"
sql = sql & " AND passwd='" & md5(Request.Form("passwd"), 16) & "'"
En
'将这段代码保存为asp文件即可使用！
<%
Dim connstr,conn
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&server.MapPath("database/data.mdb")'数据库存放的路径
set conn=server.createobject("Adodb.Connection")
conn.open connstr
'可以将上面的一段保存为一个asp文件，方便另外的程序页面调用
'通常保存为：Conn.asp，当有程序页面需要用的数据库操作时，可以在页面最上面加一一段包含代码，将数据库引擎包含进来
'如：<!--#include file="Conn.asp"-->
if Trim(request("UserName"))<>"" Then
set rs=server.CreateObject("Adodb.recordset")
rs.open "select * from [Admin] where UserName='"&request("UserName")&"'",conn,1,1 'admin是你在在用户的表
if rs.bof and rs.eof then
response.Write "<script language=javascript>alert('该用户还没有注册！');location.href='login.asp';</script>"
response.End()
else
if Trim(rs("password"))<>md5(Trim(requ