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
%>
今天下午遇到一个网友聊到他昨天新注册的一个域名,今天在去使用的时候发现域名居然不见。开始怀疑他昨天是否付款扣费,以及是否有实名认证过,毕竟我们在国内域名注册平台注册域名是需要实名认证的,大概3-5天内如果不验证那是不可以使用的。但是如果注册完毕的域名找不到那也是奇怪。同时我也有怀疑他是不是忘记记错账户。毕竟我们有很多朋友在某个商家注册很多账户,有时候自己都忘记是用哪个账户的。但是我们去找账户也不办...
青云互联怎么样?青云互联是一家成立于2020年6月份的主机服务商,致力于为用户提供高性价比稳定快速的主机托管服务,目前提供有美国免费主机、香港主机、香港服务器、美国云服务器,让您的网站高速、稳定运行。目前,美国洛杉矶cn2弹性云限时七折,美国cera机房三网CN2gia回程 13.3元/月起,可选Windows/可自定义配置。点击进入:青云互联官网青云互联优惠码:七折优惠码:dVRKp2tP (续...
青果网络怎么样?青果网络隶属于泉州市青果网络科技有限公司,青果网络商家成立于2015年4月1日,拥有工信部颁发的全网IDC/ISP/IP-VPN资质,是国内为数不多具有IDC/ISP双资质的综合型云计算服务商。青果网络是APNIC和CNNIC地址分配联盟成员,泉州市互联网协会会员单位,信誉非常有保障。目前,青果网络商家正式开启了618云特惠活动,针对国内外机房都有相应的优惠。点击进入:青果网络官方...