本人已有一个网页，想做一个用户登陆的页面
就是像论坛那种
用户 12345
密码 *****
登陆
这种样子的
数据库已建好user.mdb
希望帮我写一个代码
在这里先谢谢了
（不用注册界面，数据库中已有信息，就是想要一个登陆的页面，还有就是怎么与数据库连接，输入的用户名怎样与数据库中的信息对比）
越详细越好，最好每句都有注释
高分悬赏，成功的话再赏200
如果用户登陆成功的话，登陆到指定的页面
反之则显示用户密码错误
ASP编程
先谢谢ku621 不过我调试的时候说网页有问题
我留下自己的QQ 15240255 可以直接和我联系，加入时 注明baidu知道
数据库两个字段，主建name 另一个password
楼主我也来给一段吧，这是我给客户做网站的时候常用到的一段：
首先是login.asp(这个文件中的内容相信楼主都看得懂吧我就不注释了）
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统登陆</title>
<link id="style_sheet" href="netsuper.css" type="text/css" rel="stylesheet">
<style type="text/css">
input.a{width:120;height:19;border:1pt solid #666666;}
</style>
<script lanuage="javascript">
function KillSpace(x)
{
//这个函数是JavaScript用来删除表单中文本框中的前后空格
while((x.length>0) && (x.charAt(0)==' '))
{
x = x.substring(1,x.length);
}
while(x.length>0)
{
var s=x.charAt(x.length-1);
if(s==' ')
{
x = x.substring(0,x.length-1);
}
else
{
break;
}
}
return x;
}
function NaNcheckInput()
{
//这个函数是限制文本框只能输入数字
if (event.keyCode >=48 && event.keyCode <=57)
return;
event.keyCode = 0;
}
</script>
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#0084DB">
<tr>
<td align="center">
<form name="loginform" method="post" action="checkadmin.asp">
<table width="355" height="145" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:1pt solid #666666;">
<tr>
<td width="133" height="36" align="right">用户名：</td>
<td width="220" height="36"><input type="text" name="supername" size="15" class=a></td>
</tr>
<tr>
<td height="36" align="right">密 码：</td>
<td height="36"><input type="password" name="superpass" size="15" class=a></td>
</tr>
<tr>
<td height="36" align="right">验证码：</td>
<td height="36"><input type="text" name="verifycode" size="15" style="width:80;height:19;border:1pt solid #666666;">
<img src=getcode.asp width=40 height=10>
</td>
</tr>
<tr align="center">
<td height="36" colspan="2"><input type="submit" value="提交" onclick="return jscheck();"> <input type="reset" value="重置"></td>
</tr>
</form>
<script language="javascript">
function jscheck()
{
return true;
}
</script>
</table>
</td>
</tr>
</table>
</body>
</html>
接下来：checkadmin.asp
<!--#include file="conn.asp"-->
<%
dim username,userpass,verifycode
username=trim(request("supername"))
'获取从login.asp中提交过来的supername文本框中的内容并且用trim函数把前后的空格去掉
userpass=trim(request("superpass"))
'获取从login.asp中提交过来的superpass文本框中的内容并且用trim函数把前后的空格去掉(在实际中我还用了ASP的MD5加密）
verifycode=trim(request("verifycode"))
'获取从login.asp中提交过来的verifycode文本框中的内容并且用trim函数把前后的空格去掉(这里是用了验证码，目的是防止外部恶意提交，而在实际中我还用了SQL防注入程序)
if len(trim(username))=0 or len(trim(userpass))=0 then
response.write "<script language='javascript'>alert('用户名或密码错误，请检查！');window.history.go(-1);</script>"
response.end
end if
'以上这段if then ..end if语句，是先初步检查用户是否输入帐号及密码，如果检查到输入为空则提示出错
if cstr(session("usercode"))<>cstr(trim(request("verifycode"))) then
response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');window.history.go(-1);</script>"
response.end
end if
'以上这段是检查是否输入了验证码
set rs=server.createobject("adodb.recordset")
'首先创建一个数据连接对象
rs.open "select * from super_user where super_name='"&username&"'",conn,1,1
'这里是打开数据库并查找到super_name等于用户输入的用户名的记录，conn,1,1表示以只读方式打开
if not(rs.eof and rs.bof) then
'如果有查找到相应的记录
if userpass=rs("super_pass") then
'这时候再检查用户输入的密码是否与数据库中一致，如果一至，则生成如下session供后台程序识别
session("aaa")=rs("super_name")
session("bbb")=rs("super_dj")
rs.close
set rs=nothing
response.redirect "main.asp"
'以上这句表示用户登陆成功，系统转向到后台管理主页面
else '如果用户输入的密码不对，则提示错误
response.write "<script language='javascript'>alert('登录失败，请检查用户名、密码及验证码是否正确!');window.history.go(-1);</script>"
response.end
end if
else '如果用户输入的用户名在数据库中没查到，提示出错
response.write "<script language='javascript'>alert('登录失败，请检查用户名、密码、验证码是否正确!');window.history.go(-1);</script>"
response.end
end if
rs.close '关闭数据集对象
set rs=nothing '释放数据集对象资源
%>
附上conn.asp
<%
Response.Buffer = True '禁止缓冲，每次都从服务器中获得最新数据
Dim Conn,ConnStr,MyDbPath,DbFileName,IsSqlDataBase
DIM SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
MyDbPath = ""
IsSqlDataBase=0 '此处设置采用何种数据库,0为MSAccess,1为MSSQL
Server.ScriptTimeout=600 '设置服务器脚本执行时间
If IsSqlDataBase = 1 Then
'========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户名(SqlUsername)、用户密码(SqlPassword)、
'连接名(SqlLocalName)（本地用local，外地用IP）
SqlDatabaseName = "shop"
SqlUsername = "sa"
SqlPassword = "123456"
SqlLocalName = "(local)"
'===================================================================================================
Else
'========================Access数据库设置===========================================================
'用户第一次使用请修改本处数据库地址并相应修改net_ata目录中数据库名称，如:将shop.mdb修改为shop.asp
DbFileName = "data/xxx.mdb"
'===================================================================================================
End If
'这里定义数据库连接方式的过程
Sub Connectiondatabase
If IsSqlDataBase = 1 Then '1表示是采用SQL数据库
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else '否则采用access数据库
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & DbFileName) '这是定义数据库连接字符串，共中Access与SQL不一样哦。
End If
on error resume next '屏蔽错误信息，防止恶意猜解数据库路径
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr '开始建立起数据库连接
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
'以下过程是定义关闭数据库连接，释放资源减少服务器压力
Sub CloseConn
Conn.close
Set Conn=nothing
End Sub
%>
至此，一个登陆页面加验证页面已完成。。（其中验证码需要一个验证码生成程序和两个图片信息文件，这个在动网论坛里有现成的，直接拿来就可以用)
不过我自己认为，在以上程序中我没有把MD5加密以及SQL防注入程序加上来，是不太安全的，所以楼主在实际应用中还是要把这些加上来，以防恶意攻击。。
首先是login.asp(这个文件中的内容相信楼主都看得懂吧我就不注释了）
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统登陆</title>
<link id="style_sheet" href="netsuper.css" type="text/css" rel="stylesheet">
<style type="text/css">
input.a{width:120;height:19;border:1pt solid #666666;}
</style>
<script lanuage="javascript">
function KillSpace(x)
{
//这个函数是JavaScript用来删除表单中文本框中的前后空格
while((x.length>0) && (x.charAt(0)==' '))
{
x = x.substring(1,x.length);
}
while(x.length>0)
{
var s=x.charAt(x.length-1);
if(s==' ')
{
x = x.substring(0,x.length-1);
}
else
{
break;
}
}
return x;
}
function NaNcheckInput()
{
//这个函数是限制文本框只能输入数字
if (event.keyCode >=48 && event.keyCode <=57)
return;
event.keyCode = 0;
}
</script>
</head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#0084DB">
<tr>
<td align="center">
<form name="loginform" method="post" action="checkadmin.asp">
<table width="355" height="145" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:1pt solid #666666;">
<tr>
<td width="133" height="36" align="right">用户名：</td>
<td width="220" height="36"><input type="text" name="supername" size="15" class=a></td>
</tr>
<tr>
<td height="36" align="right">密 码：</td>
<td height="36"><input type="password" name="superpass" size="15" class=a></td>
</tr>
<tr>
<td height="36" align="right">验证码：</td>
<td height="36"><input type="text" name="verifycode" size="15" style="width:80;height:19;border:1pt solid #666666;">
<img src=getcode.asp width=40 height=10>
</td>
</tr>
<tr align="center">
<td height="36" colspan="2"><input type="submit" value="提交" onclick="return jscheck();"> <input type="reset" value="重置"></td>
</tr>
</form>
<script language="javascript">
function jscheck()
{
return true;
}
</script>
</table>
</td>
</tr>
</table>
</body>
</html>
接下来：checkadmin.asp
<!--#include file="conn.asp"-->
<%
dim username,userpass,verifycode
username=trim(request("supername"))
'获取从login.asp中提交过来的supername文本框中的内容并且用trim函数把前后的空格去掉
userpass=trim(request("superpass"))
'获取从login.asp中提交过来的superpass文本框中的内容并且用trim函数把前后的空格去掉(在实际中我还用了ASP的MD5加密）
verifycode=trim(request("verifycode"))
'获取从login.asp中提交过来的verifycode文本框中的内容并且用trim函数把前后的空格去掉(这里是用了验证码，目的是防止外部恶意提交，而在实际中我还用了SQL防注入程序)
if len(trim(username))=0 or len(trim(userpass))=0 then
response.write "<script language='javascript'>alert('用户名或密码错误，请检查！');window.history.go(-1);</script>"
response.end
end if
'以上这段if then ..end if语句，是先初步检查用户是否输入帐号及密码，如果检查到输入为空则提示出错
if cstr(session("usercode"))<>cstr(trim(request("verifycode"))) then
response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');window.history.go(-1);</script>"
response.end
end if
'以上这段是检查是否输入了验证码
set rs=server.createobject("adodb.recordset")
'首先创建一个数据连接对象
rs.open "select * from super_user where super_name='"&username&"'",conn,1,1
'这里是打开数据库并查找到super_name等于用户输入的用户名的记录，conn,1,1表示以只读方式打开
if not(rs.eof and rs.bof) then
'如果有查找到相应的记录
if userpass=rs("super_pass") then
'这时候再检查用户输入的密码是否与数据库中一致，如果一至，则生成如下session供后台程序识别
session("aaa")=rs("super_name")
session("bbb")=rs("super_dj")
rs.close
set rs=nothing
response.redirect "main.asp"
'以上这句表示用户登陆成功，系统转向到后台管理主页面
else '如果用户输入的密码不对，则提示错误
response.write "<script language='javascript'>alert('登录失败，请检查用户名、密码及验证码是否正确!');window.history.go(-1);</script>"
response.end
end if
else '如果用户输入的用户名在数据库中没查到，提示出错
response.write "<script language='javascript'>alert('登录失败，请检查用户名、密码、验证码是否正确!');window.history.go(-1);</script>"
response.end
end if
rs.close '关闭数据集对象
set rs=nothing '释放数据集对象资源
%>
附上conn.asp
<%
Response.Buffer = True '禁止缓冲，每次都从服务器中获得最新数据
Dim Conn,ConnStr,MyDbPath,DbFileName,IsSqlDataBase
DIM SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
MyDbPath = ""
IsSqlDataBase=0 '此处设置采用何种数据库,0为MSAccess,1为MSSQL
Server.ScriptTimeout=600 '设置服务器脚本执行时间
If IsSqlDataBase = 1 Then
'========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户名(SqlUsername)、用户密码(SqlPassword)、
'连接名(SqlLocalName)（本地用local，外地用IP）
SqlDatabaseName = "shop"
SqlUsername = "sa"
SqlPassword = "123456"
SqlLocalName = "(local)"
'===================================================================================================
Else
'========================Access数据库设置===========================================================
'用户第一次使用请修改本处数据库地址并相应修改net_ata目录中数据库名称，如:将shop.mdb修改为shop.asp
DbFileName = "data/xxx.mdb"
'===================================================================================================
End If
'这里定义数据库连接方式的过程
Sub Connectiondatabase
If IsSqlDataBase = 1 Then '1表示是采用SQL数据库
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else '否则采用access数据库
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & DbFileName) '这是定义数据库连接字符串，共中Access与SQL不一样哦。
End If
on error resume next '屏蔽错误信息，防止恶意猜解数据库路径
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr '开始建立起数据库连接
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
'以下过程是定义关闭数据库连接，释放资源减少服务器压力
Sub CloseConn
Conn.close
Set Conn=nothing
End Sub
%>
至此，一个登陆页面加验证页面已完成。。（其中验证码需要一个验证码生成程序和两个图片信息文件，这个在动网论坛里有现成的，直接拿来就可以用)
不过我自己认为，在以上程序中我没有把MD5加密以及SQL防注入程序加上来，是不太安全的，所以楼主在实际应用中还是要把这些加上来，以防恶意攻击。。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2006-01-19
<html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
第2个回答 2006-01-18
<html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
加油!
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
加油!
第3个回答 2006-01-20
<html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
<head>
<title>管理员登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="Admin_Style.css">
<script language=javascript>
<!--
function SetFocus()
{
if (document.Login.UserName.value=="")
document.Login.UserName.focus();
else
document.Login.UserName.select();
}
function CheckForm()
{
if(document.Login.UserName.value=="")
{
alert("请输入用户名！");
document.Login.UserName.focus();
return false;
}
if(document.Login.Password.value == "")
{
alert("请输入密码！");
document.Login.Password.focus();
return false;
}
if (document.Login.CheckCode.value==""){
alert ("请输入您的验证码！");
document.Login.CheckCode.focus();
return(false);
}
}
function CheckBrowser()
{
var app=navigator.appName;
var verStr=navigator.appVersion;
if (app.indexOf('Netscape') != -1) {
alert("MY动力友情提示：\n 你使用的是Netscape浏览器，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
else if (app.indexOf('Microsoft') != -1) {
if (verStr.indexOf("MSIE 3.0")!=-1 || verStr.indexOf("MSIE 4.0") != -1 || verStr.indexOf("MSIE 5.0") != -1 || verStr.indexOf("MSIE 5.1") != -1)
alert("MY动力友情提示：\n 您的浏览器版本太低，可能会导致无法使用后台的部分功能。建议您使用 IE6.0 或以上版本。");
}
}
//-->
</script>
</head>
<body class="bgcolor">
<p> </p>
<form name="Login" action="Admin_ChkLogin.asp" method="post" target="_parent" onSubmit="return CheckForm();">
<table width="585" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td width="280" rowspan="2"><img src="Images/entry1.gif" width="280" height="246">
</td>
<td width="344" background="Images/entry2.gif"> <table width="100%" border="0" cellspacing="8" cellpadding="0" align="center">
<tr align="center">
<td height="38" colspan="2"><font color="#FFFFFF" size="3"><strong>管理员登录</strong></font>
</td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户名称：</font></td>
<td><input name="UserName" type="text" id="UserName4" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">用户密码：</font></td>
<td><input name="Password" type="password" maxlength="20" style="width:160px;border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); "></td>
</tr>
<tr>
<td align="right"><font color="#FFFFFF">验 证 码：</font></td>
<td><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" onFocus="this.select(); ">
<font color="#FFFFFF">请在左边输入</font> <img src="inc/checkcode.asp"></td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit" value=" 确 认 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<input name="reset" type="reset" id="reset" value=" 清 除 " style="font-size: 9pt; height: 19; width: 60; color: #000000; background-color: #E1F4EE; border: 1 solid #E1F4EE" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#E1F4EE'">
<br>
</div></td>
</tr>
</table></td>
</tr>
<tr><td height="3"></td></tr>
</table>
<p align="center">后台管理页面需要屏幕分辨率为 <font color="#FF0000"><strong>1024*768</strong></font>
或以上才能达到最佳浏览效果！<br>
需要浏览器为<strong><font color="#FF0000"> </font></strong><font color="#FF0000"><strong>IE5.5</strong></font>
或以上版本才能正常运行！！！</p>
</form>
<script language="JavaScript" type="text/JavaScript">
CheckBrowser();
SetFocus();
</script>
</body>
</html>
第4个回答 2006-01-17
最简洁的代码给你：(把下面的"表名"改为你库中的表的名称)
登录界面代码：
<body><center><form action="chk.asp" method=post>
用户名：<input name="user"><br>
密码：<input name="password"><br>
<input type="submit" value="提交"><br>
</form>
下面是验证页chk.asp的代码：
<%
dim name,password,conn,rs
name=request("name")
password=request("pass")
set conn=server.createobject("adodb.connection") '建立用于连接库的对象
set rs=server.createobject("adodb.recordset") '建立用于查库内容的对象
str="driver={mircosoft access driver(*.mdb)};dbq=" & server.mappath("user.mdb") & ";" '用于连接的正确字符串，要保证user.mdb和网页在同个目录才可用这句，不然要改"user.mdb"为别的相对路径。
conn.open str ' 连接到库中
sql="select * from 表名 where name='" & name & "' and password='" & password & "'" '这句是在库中找出用户名和密码都符合的记录
rs.open sql,conn,1,2 '执行上面句子
if not rs.eof then '如果不是到末尾，就是说有符合的记录
response.write "<meta http-equiv='refresh' content='3;URL='>"
response.write "成功,三秒后进入首页"
else '否则：
response.write "错误！"
end if
rs.close '这以下是用来关闭连接的。查完了就要这样，才能放开服务器内存。
conn.close
set rs=nothing
set conn=nothing
'这代码可是我苦写的呀，给分吧。绝对有效。
登录界面代码：
<body><center><form action="chk.asp" method=post>
用户名：<input name="user"><br>
密码：<input name="password"><br>
<input type="submit" value="提交"><br>
</form>
下面是验证页chk.asp的代码：
<%
dim name,password,conn,rs
name=request("name")
password=request("pass")
set conn=server.createobject("adodb.connection") '建立用于连接库的对象
set rs=server.createobject("adodb.recordset") '建立用于查库内容的对象
str="driver={mircosoft access driver(*.mdb)};dbq=" & server.mappath("user.mdb") & ";" '用于连接的正确字符串，要保证user.mdb和网页在同个目录才可用这句，不然要改"user.mdb"为别的相对路径。
conn.open str ' 连接到库中
sql="select * from 表名 where name='" & name & "' and password='" & password & "'" '这句是在库中找出用户名和密码都符合的记录
rs.open sql,conn,1,2 '执行上面句子
if not rs.eof then '如果不是到末尾，就是说有符合的记录
response.write "<meta http-equiv='refresh' content='3;URL='>"
response.write "成功,三秒后进入首页"
else '否则：
response.write "错误！"
end if
rs.close '这以下是用来关闭连接的。查完了就要这样，才能放开服务器内存。
conn.close
set rs=nothing
set conn=nothing
'这代码可是我苦写的呀，给分吧。绝对有效。
