标题:登陆点登陆后没有反应啊,各位大哥给个意见
只看楼主
三哥
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2010-4-15
结帖率:75%
已结贴  问题点数:18 回复次数:2 
登陆点登陆后没有反应啊,各位大哥给个意见
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 编辑 ]
搜索更多相关主题的帖子: password content include PUBLIC title 
2010-04-19 14:39
孤独冷雨
Rank: 10Rank: 10Rank: 10
来 自:安徽滁州
等 级:贵宾
威 望:23
帖 子:1246
专家分:1909
注 册:2007-6-4
得分:6 
sql = "select * from biao where [username]= '" &username& "'"

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.
2010-04-19 16:32
czyzhuo
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:17
帖 子:230
专家分:1459
注 册:2010-3-11
得分:6 
sql = "select * from biao where [username]= '" & username & "'"
2010-04-26 10:00



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-303594-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.942815 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved