[color=Red]用ASP制作网站登录系统 环境:DW+ASP+ACCESS+IIS 作者:lanier(x8.Maicoo.com-麦客学吧)[/color]
[b]一、数据库的建立[/b]
打开ACCESS2000,新建数据库(lanier_db.mdb),表名:login
Login表包函的字段:Id;userid(用户名);pwd(密码)
[b]二、打开Dreamweaver MX 新建conn.asp页面.然后把下面的代码复制到conn.asp里。[/b]
[code]<%
dim conn
set conn=Server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("lanier_db.mdb")
If err.number<>0 then
Response.write("连接数据库时产生错误!")
Response.End
End if
%>
[/code]
用到此页面时包括即可:
[b]三、新建Login.asp页[/b]
[code]……
……
[/code]
将此页的用户名及密码提交到check.asp进行校验.
[b]四、建立check.asp页[/b]
[code]
<%
Dim Rs,Sql,Userid,Pwd
Userid=Request.form("Userid") '提取login.asp页面的用户名;
Pwd=Request.form("pwd") '提取login.asp页面的密码;
Set Rs=Server.Createobject("adodb.recordset")
Sql="select * from login where userid='"&Userid&"' "
Rs.open sql,conn,1,1
If rs.eof and rs.eof then '判断用户名是否存在
Response.write ""
Response.End
Elseif Rs("pwd")<>pwd then '判断密码是否正确
Response.write ""
Response.End
Else
Session("userid")=userid '把用户名写入session
Response.redirect("index.asp")
End if
%>
[/code]
把用户名写入Session("userid")是为了防上非法登录,只要在受限页面的头部加入下面代码:
[code]<%
if session("userid")="" then
response.write("")
End
%>
[/code]