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

网页qq登陆2015 时间:2021-03-26 阅读:()

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

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

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

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

<html>

<head>

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

{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>

<!--

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

}

-->

</style>

</head>

<body>

<tr>

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

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

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

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

</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

展开全文