登陆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
%>
- 登陆ASP网页登陆密码及用户名检测(VB ACCESS)相关文档
- 人才eset
- 电压eset
- 1.登录校园网,在"个人门户"输入用户名、密码
- 登陆地址:http://jwxt.zjnu.edu.cn.输入账号密码进入下图显示.
- 病毒nod32
- 如有1各省(市)质量技术监督局RARSFS系统用户名和密码
ZJI-全场八折优惠，香港服务器 600元起，还有日本/美国/韩国服务器
ZJI怎么样？ZJI是一家成立于2011年的商家，原名维翔主机，主要从事独立服务器产品销售，目前主打中国香港、日本、美国独立服务器产品，是一个稳定、靠谱的老牌商家。详情如下：月付/年付优惠码：zji??下物理服务器/VDS/虚拟主机空间订单八折终身优惠（长期有效）一、ZJI官网点击直达香港葵湾特惠B型 CPU：E5-2650L核心：6核12线程内存：16GB硬盘：480GB SSD带宽：5Mbps...
rfchost：洛杉矶vps/双向CN2 GIA,1核/1G/10G SSD/500G流量/100Mbps/季付$23.9
rfchost怎么样?rfchost是一家开办了近六年的国人主机商，一般能挺过三年的国人商家，还是值得入手的，商家主要销售VPS，机房有美国洛杉矶/堪萨斯、中国香港，三年前本站分享过他家堪萨斯机房的套餐。目前rfchost商家的洛杉矶机房还是非常不错的，采用CN2优化线路，电信双程CN2 GIA，联通去程CN2 GIA，回程AS4837，移动走自己的直连线路，目前季付套餐还是比较划算的，有需要的可...
阿里云金秋上云季,云服务器秒杀2C2G5M年付60元起
阿里云(aliyun)在这个月又推出了一个金秋上云季活动，到9月30日前，每天两场秒杀活动，包括轻量应用服务器、云服务器、云数据库、短信包、存储包、CDN流量包等等产品，其中Aliyun轻量云服务器最低60元/年起，还可以99元续费3次！活动针对新用户和没有购买过他们的产品的老用户均可参与，每人限购1件。关于阿里云不用多说了，国内首屈一指的云服务器商家，无论建站还是学习都是相当靠谱的。活动地址：h...
-
eset最新用户名密码求ESET Smart Security最新用户名和密码依赖注入依赖注入是什么意思？1433端口怎么去看1433端口申请证书申请毕业证书如何建立自己的网站怎么创建自己的网站硬盘人电脑对人有多大辐射？硬盘人移动硬盘的优缺点开机滚动条电脑开机滚动条要走好几次ejb开发EJB是什么?ejb开发什么是ejb?