登陆ASP网页登陆密码及用户名检测(VB ACCESS)

ASP网页登陆密码及用户名检测(VB+ACCESS)

1.建立一个acces s数据库保存打开“使用表设计器创建表”详细如下

字段名称 数据类型id 自动编号username 文本passwo rd 文本

2. login.asp文件内容如下

<html>

<head>

<title>系统管理员登陆</title>

<meta http-eq uiv="Conte nt-Type" co nte nt="text/htm l ; cha rset=gb2312"><script Language="javaScript">function login_val idate()

{if (document.myform.username.value=="")

{alert("Error:请输入帐号 ");document.myform.username.focus();return false ;

}if (document.myform.password.value=="")

{alert("Error:请输入密码 ");docume nt.myform.password.focus();return false ;

}return true;

}

</script>

<style type="text/css">

<!--

b o d y,td {font-size: 12px;

}

-->

</style>

</head>

<body>

<p> </p>

<form action="checkmima.asp"method="post" NAME="myform" id="myform" onSubmit="returnlogin_val idate();">

<table width="250" border="0" al ign="center" cel lpadding="5" cel lspacing"style="border:1 px#cccccc sol id;">

<tr>

<td height=30 bgcolor="#eeeeee" al ign=center>∷管理员登陆∷</td>

</tr>

<tr>

<td al ign="center">用户名: <input name="Username" tabindex="1" typ e="text"id="username"></td>

</tr>

<tr>

<td al ign="center">密码: <input name="Password" tabindex="2" type="p asswo rd"i d="p a sswo rd"></td>

</tr>

<tr>

<td al ign="center"><input type="submit" name="Submit" value="登

陆"ta b i nd e x="3">

<input type="reset" name="Submit2" value="重置" tabindex="4"></td>

</tr>

</tab le>

</form>

</body>

</htm l>

3. checkmima.asp文件内容如下

<%db="数据库路径/数据库名称.mdb"

Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&db&"")

'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"conn.Open connstr

%>

<%dim sqldim rsdim usernamedim passwordusername=replace(trim(request("username")),"'","")password=rep lace(tri m(Req uest("password")),"'","")sql="select username,password,flag from zhuce where password='"&password&"' andusername='"&username&"'"set rs = conn.execute(sql)if not(rs.bof and rs.eof) thenif password=rs(1) then

session("admin")=rs(0)session("flag")=rs(2)

Response.Redirect "Default.asp" //登陆成功后要跳转到的页面elsecal l Errorend ifelsecal l Error()end ifsub Error()

Response.Write "<script language=javascript>"

Response.Write "alert(""登陆失败!帐号或密码错误 "");"

Response.Write "histo ry.back(-1);"

Response.Write "</script>"end subrs.closeconn.closeset rs=nothingset conn=nothing

%>