您所在位置：主题：[讨论]求助一个问题,关于ASP登陆
bhdzx
[专家分：0] 发布于 2008-12-21 16:23:00
[color=FF0000]登陆时报错
HTTP 500 - 内部服务器错误,验证码哪个可以先不管的... [/color]
数据库 Data/#data#.mdb
用户表 Admin
字 段:ID,Username,Password
[color=FF00FF]数据库链接页 conn.asp[/color]
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ="&Server.MapPath("data/#data#.mdb")
%>
[color=FF0000]登陆页 Login.asp[/color]
<table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" bgcolor="f7f7f7"><form name="form1" method="post" action="Check.asp">
<table width="200" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#CCCCCC" bordercolorlight="#FFFFFF">
<tr>
<td><table width="300" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40" colspan="2" bgcolor="#CCCCCC"> 用户登陆[Login-Page]</td>
</tr>
<tr>
<td width="100" height="30" align="center">用 户：</td>
<td height="30" align="center"><div align="left">
<input name=username type=text id=username size=16>
</div></td>
</tr>
<tr>
<td width="100" height="30" align="center">密 码：</td>
<td height="30" align="center"><div align="left">
<input name=Password type=password id=Password size=16>
</div></td>
</tr>
<tr>
<td height="30" align="center">验证码：</td>
<td height="30" align="center"><div align="left">
<input name=Code type=text id=Code size=8>
<img src="inc/GetCode.asp" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='inc/GetCode.asp'" /></div></td>
</tr>
<tr>
<td height="30" colspan="2"><div align="center">
<input type="submit" name="Submit" value="登陆">
<input type="reset" name="Submit2" value="清除">
</div></td>
</tr>
</table></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
[color=00FF00]登陆验证页 Check.asp[/color]
<!--#include file="conn.asp"-->
<%
dim rs,sql,Username,Password
Username=trim(request.Form("Username"))
Password=trim(request.Form("Password"))
if rs.eof then Response.write "<script language=javascript>alert('用户名或密码错误');history.go(-1);</script>" end if
if password<>rs("password") then Response.write "<script language=javascript>alert('密码错误');history.go(-1);</script>" end if
set rs = server.CreateObject ("adodb.recordset")
sql="select * from Admin Username='"&Username&"'"
rs.open sql,conn,1,1
session("username") = rs("username")
Response.redirect("Admin.asp")
%>
<%
conn.close
set conn=nothing
%>
[color=FF0000]显示用户信息页 Admin.asp[/color]
<!--#include file="conn.asp"-->
<%
dim id,Username,Password '定义字段
Username=request.querystring("Username")
set rs = server.CreateObject ("adodb.recordset")
sql="select * from admin username='"&username&"'"
rs.open sql,conn,1,1
if rs("Username")="" Then response.redirect("Login.asp") End if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>助词</title>
</head>
<body>
<%=rs("Username")%>
</body>
</html>
<%
conn.close
set conn=nothing
%>