登陆点登陆后没有反应啊,各位大哥给个意见
index.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="att.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim name
dim pwd
username=trim(request.Form("username"))
password=trim(request.Form("password"))
if username="" or password="" then
response.Write"<script alert ('请输入用户密码');history.go(-1);</script>"
response.End
else
set rs = server.CreateObject("adodb.recordset")
sql = "select * from [biao] where username= '" &username& "'"
rs.open sql,conn,1,1
if not Rs.Eof then
if username=Rs( "username ") and password=Rs( "password ") then
session( "username ")=Rs( "username ")
session( "password ")=Rs( "password ")
Response.Redirect "main.asp "
Response.end
else
Response.Write " <script> alert('用户名密码错误');history.go(-1); </script> "
Response.end
end if
else
Response.Write " <script> alert('用户名密码不存在');history.go(-1); </script> "
Response.end
end if
end if
Rs.close
set Rs=nothing
%>
</body>
</html>
att.asp
<head>
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="get" action="index.asp">
用户名:
<input name="username" type="text" size="20" /><br />
密码:
<input name="password" type="password" size="20" /><br />
<input name="sumbit" type="submit" value="确认登陆" />
<input name="submit2" type="reset" value="重置" />
</form>
</body>
</html>
conn.asp
<%
<%
dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("deng.mdb")
%>
%>
经过调试修改后,还是不能跳转,也不出现任何提示
[ 本帖最后由 三哥 于 2010-4-19 15:16 编辑 ]