UC知道asp用户登陆代码
来源：百度知道 编辑：UC知道 时间：2024/05/17 00:07:55
求asp用户登陆代码,琏接数据库是Access的.要有注解和带有注册(reg.asp)的更好,写好再加分!十分感谢!
谢谢海棠水晶!不过代码显示有错误:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/zhidao/Conn.Asp, line 2, column 41
connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
----------------------------------------^
谢谢海棠水晶!不过代码显示有错误:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/zhidao/Conn.Asp, line 2, column 41
connstr = "DBQ=" + server.mappathuser.mdb") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
----------------------------------------^
<!--引入md5加密函数文件-->
<!--#include file="md5.asp"-->
<%
Dim cnn
const DB_SOURCE = "database.mdb"
On Error Resume Next
Dim conn_string
conn_string = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(DB_SOURCE)
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open conn_string
If Err Then
Err.Clear
Response.Write "连接数据库错误， 请检查数据库连接！"
Response.End
End If
' 获取提交表单参数值
Dim user, pass
user = Trim(Request.Form("user"))
pass = Trim(Request.Form("pass"))
'---------------------
' 登录验证
' table: sys_users
' username: su_username
' password: su_password 32位md5加密
' 为更好地防止注入，验证采用md5加密的密码进行验证，
' 先搜索是否有这个密码，然后根据密码再去找用户
' 而不是先找用户再去验证密码
'---------------------
pass = md5(pass, 32)