登陆检验问题 - ASP - 新微赢技术网

蓝血腥人

电梯直达

1^#

发表于 2010-1-15 01:20:06 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

要求是与数据库连接，检验是否能登陆，做的有错误，改不出来，哪位高手可以帮下忙

<%
'-------------------为防止出错我们定义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
%>

收藏0

使用道具举报

紫恋

2^#

发表于 2010-1-15 01:20:10 | 只看该作者

Orderinfo? 数据库呢

回复支持反对

使用道具举报

isly‖

3^#

发表于 2010-1-15 01:20:14 | 只看该作者

Orderinfo是数据库名，userID和password是外部输入的，在数据库里对应的名称叫ContactID和CustomerID。这个验证页面是用来检验，之前输入的userID和password是否能登陆。
大家帮帮忙

回复支持反对

使用道具举报

成熟之惑

4^#

发表于 2010-1-15 01:20:18 | 只看该作者

首先我想问一下,你学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ァ

5^#

发表于 2010-1-15 01:20:25 | 只看该作者

数据库不用指定驱动及厂商及用SERVER.MAPPATH转换径吗???
另外你用了跳转页面response.redirect (URL),是不是在开始应加一句:RESPONSE.BUFFER=TRUE

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

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