急死我了,我怎么就登录不上呢,帮帮忙吧,小弟在线急等
shf13 2004-07-31 03:06:07 在数据库中username和password字段均为char类型
在运行是总提示:密码错误,请重新登陆!!!
但我输入的用户名和密码都没有错
代码如下:
<%@ language = vbscript%>
<html>
<body>
<%
dim username,password
username = request.form("username")
response.write(username)
if username = "" then
response.redirect "login.htm"
end if
password = request.form("password")
response.write(password)
if password = "" then
response.redirect "login.htm"
end if
Set oret = Server.CreateObject("ADODB.Connection")
oret.Open "sucaidb"
Set ors = Server.CreateObject("adodb.Recordset")
Set ors.ACtiveConnection = oret
ors.cursorlocation=3
ors.open "select * from admin_user where username ='" & username &"'"
if ors.eof then
'数据库无此用户
response.write "<center><b>用户名</b>错误,请<a href = login.htm>重新登陆</a>!!!</center>"&vbcrlf
else
if ors("password").value = password then
session("username") = username
session("loginok") = true
response.redirect "admin.asp"
else
session("username") = ""
session("loginok") = false
response.write "<center><b>密码</b>错误,请<a href=login.htm>重新登陆</a>!!!</center>"&vbcrlf
end if
end if
ors.close
set ors=nothing
oret.close
set oret=nothing
%>
</body>
</html>