新微赢技术网

标题: 登陆检验问题 [打印本页]

作者: 蓝血腥人 时间: 2010-1-15 01:20
标题: 登陆检验问题
要求是与数据库连接，检验是否能登陆，做的有错误，改不出来，哪位高手可以帮下忙

<%
'-------------------为防止出错我们定义username和password----------------
dim userID
dim password
'--------用request的form方法来接受login.asp页面传来的值，并付值给我们定义的userID和password
userID=request.form("userID")
password=request.form("password")
'---------判断传来的值是不是空值
if userID="" then
'用response的write的方法输出一个脚本
response.write"<script>alert('用户名不能为空')</script>"
response.end
end if
if password="" then
response.write"<script>alert('密码不能为空')</script>"
response.end
end if
'----------判断用户名和密码是不是正确，如果一样的输出"登陆成功"并把session的标志给这个用户,否则就输出"登陆失败"
set myconn=server.createobject("ADODB.Connection")
set adoRS=server.createobject("ADODB.Recordset")
myconn.open "Orderinfo"
sSQL="select ContactID,CustomerID from contact where ContactID=userID and CustomerID=password "
set adoRS=myconn.execute(sSQL)
if adoRS.bof and adoRs.eof then
response.write "无此用户或密码错误，请重新登录！"

else
session("ContactID")=ContactID

session("CustomerID")=CustomerID
response.redirect("login.asp")
end if
adoRS.close
set adoRS=nothing
end if
if userID=ContactID and password=CustomerID then
response.write"登陆成功"
response.redirect"detail.asp"
else
response.write"登陆失败"
response.redirect"login.asp"
response.write"<script>alert('登陆失败')</script>"
end if
myconn.close
set myconn=nothing
%>

作者: 紫恋 时间: 2010-1-15 01:20
Orderinfo? 数据库呢

作者: isly‖ 时间: 2010-1-15 01:20
Orderinfo是数据库名，userID和password是外部输入的，在数据库里对应的名称叫ContactID和CustomerID。这个验证页面是用来检验，之前输入的userID和password是否能登陆。
大家帮帮忙

作者: 成熟之惑 时间: 2010-1-15 01:20
首先我想问一下,你学ASP有多久了?

以下是引用凝晖钟瑞在2006-5-28 21:23:00的发言：
要求是与数据库连接，检验是否能登陆，做的有错误，改不出来，哪位高手可以帮下忙

<%
'-------------------为防止出错我们定义username和password----------------
dim userID
dim password
'--------用request的form方法来接受login.asp页面传来的值，并付值给我们定义的userID和password
userID=request.form("userID")
password=request.form("password")
'---------判断传来的值是不是空值
if userID="" then
'用response的write的方法输出一个脚本
response.write"<script>alert('用户名不能为空')</script>"
response.end
end if
if password="" then
response.write"<script>alert('密码不能为空')</script>"
response.end
end if
'----------判断用户名和密码是不是正确，如果一样的输出"登陆成功"并把session的标志给这个用户,否则就输出"登陆失败"
set myconn=server.createobject("ADODB.Connection")
set adoRS=server.createobject("ADODB.Recordset")
myconn.open "Orderinfo"
sSQL="select ContactID,CustomerID from contact where ContactID=userID and CustomerID=password "
set adoRS=myconn.execute(sSQL)
if adoRS.bof and adoRs.eof then
response.write "无此用户或密码错误，请重新登录！"

else
session("ContactID")=ContactID

session("CustomerID")=CustomerID
response.redirect("login.asp")
end if
adoRS.close
set adoRS=nothing
end if
if userID=ContactID and password=CustomerID then
response.write"登陆成功"
response.redirect"detail.asp"
else
response.write"登陆失败"
response.redirect"login.asp"
response.write"<script>alert('登陆失败')</script>"
end if
myconn.close
set myconn=nothing
%>

作者: ㄣ紸縡のoァ 时间: 2010-1-15 01:20
数据库不用指定驱动及厂商及用SERVER.MAPPATH转换径吗???
另外你用了跳转页面response.redirect (URL),是不是在开始应加一句:RESPONSE.BUFFER=TRUE

即然你用了跳转指令,你最后几句显示的语句就无用了.

另外,你SSQL这个语句中的条件那部分字段名= 变量名
变量名应加引号的,单引号还要用连接符&

作者: 風雲々無心メ 时间: 2010-1-15 01:20
我还是改不出来，哪位帮我改改啊

作者: 日-出 时间: 2010-1-15 01:20
我在上面不是有标出你有错误的地方吗？红色和蓝色的都有错。自己好好想想

作者: LXQ 时间: 2010-2-17 06:05
留个脚印，嘻嘻，脚有点臭```````

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)