登陆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)相关文档
- 区委网页qq登陆2015
- 鄂尔多斯市鄂托克旗2017年度城市棚户区改造棋盘井祺祥社区精品小区外配套基础
- 投标网页qq登陆2015
- 课程网页qq登陆2015
- 图书馆网页qq登陆2015
- 咖啡机网页qq登陆2015
趣米云月付460元，香港CN2云服务器VPS月付低至18元
趣米云早期为做技术起家，为3家IDC提供技术服务2年多，目前商家在售的服务有香港vps、香港独立服务器、香港站群服务器等，线路方面都是目前最优质的CN2，直连大陆，延时非常低，适合做站，目前商家正在做七月优惠活动，VPS低至18元，价格算是比较便宜的了。趣米云vps优惠套餐：KVM虚拟架构，香港沙田机房，线路采用三网(电信，联通，移动)回程电信cn2、cn2 gia优质网络，延迟低，速度快。自行封...
久久网云-目前最便宜的国内,香港,美国,日本VPS云服务器19.9元/月起，三网CN2,2天内不满意可以更换其他机房机器，IP免费更换！。
久久网云怎么样？久久网云好不好？久久网云是一家成立于2017年的主机服务商，致力于为用户提供高性价比稳定快速的主机托管服务，久久网云目前提供有美国免费主机、香港主机、韩国服务器、香港服务器、美国云服务器，香港荃湾CN2弹性云服务器。专注为个人开发者用户,中小型,大型企业用户提供一站式核心网络云端服务部署,促使用户云端部署化简为零,轻松快捷运用云计算！多年云计算领域服务经验,遍布亚太地区的海量节点为...
IMIDC日本多IP服务器$88/月起,E3-123x/16GB/512G SSD/30M带宽
IMIDC是一家香港本土运营商，商家名为彩虹数据(Rainbow Cloud)，全线产品自营，自有IP网络资源等，提供的产品包括VPS主机、独立服务器、站群独立服务器等，数据中心区域包括香港、日本、台湾、美国和南非等地机房，CN2网络直连到中国大陆。目前主机商针对日本独立服务器做促销活动，而且提供/28 IPv4，国内直连带宽优惠后每月仅88美元起。JP Multiple IP Customize...
-
戏曲网易yeah易名网诚询，易名网注册的域名怎么转到喜欢的网页上啊？刚刚网新员工入职自我介绍怎么写？中国保健养猪网135保健养猪，135天可以出栏吗？工具条有什么工具条比较好powerbydedecms如何去掉dedecms自带广告以及Power by dedecmsie假死我的ie浏览器偶尔出现假死的情况 即打开浏览器时无法显示网页 点了关闭窗口也没反应，请问这是怎么回事啊无忧代理网无忧考网好不好，为什么注册要输入电话号码，可信度高不高，还有中国公务员考试网，这些网站是不是要收费帖子标题百度贴吧里帖子标题后面的“（共xxx贴）”和此张贴子的楼层数有何区别？两者的数值并不一样。repaired金盾评级repaired是什么意思