这个login.asp文件问题出在了哪,用access数据库就没事,一用SQL数据库就提示用户名和 - ASP技术论坛

楼主

问题点数：0 回复次数：10

这个login.asp文件问题出在了哪,用access数据库就没事,一用SQL数据库就提示用户名和

<%
validpwd = true

If request.form("submit") <> "" Then

' setup variables
userid = Request.Form("userid")
passwd = Request.Form("passwd")

Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs = conn.Execute( "Select * from [user] where [系统管理员] = '" & UCASE(userid) & "'")
If not rs.eof then
If ucase(rs("系统管理员")) = ucase(passwd) Then
validpwd = true
Else
validpwd = false
End If
Else
validpwd = false
end if

rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing

If validpwd Then
Session("conn_status") = "login"
response.redirect "default.asp"
End If

End If
%>

<html>
<head>
<title>大同西供电段电源监测管理系统</title>

var errfound = false;

function error(elem, text) {
if (errfound) return;
window.alert(text);
elem.select();
elem.focus();
errfound = true;
}

function loginCheck(f) {

errfound = false;

if (f.userid.value == "")
error(f.userid,"Please enter your user id!");

if (f.passwd.value == "")
error(f.passwd,"Please enter your password!");

return ! errfound;
}

// end Java script -->
</script>

<body leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>

<table width="600" border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td>大同西供电段电源监测管理系统</td>
</tr>
</table>

<% If not validpwd Then %>
<p><font color="#FF0000">请重新输入用户名和密码!</font></p>
<% End If %>

<table width="600" border="0" cellspacing="0" cellpadding="2" align="center">
<tr><td align="left">User ID</td>
<td><input name="userid" type="TEXT"size="8"></td></tr>
<tr><td align="left">Password</td>
<td><input name="passwd" TYPE="PASSWORD" size="6"></td></tr>
<tr><td> </td></tr>
<tr><td colspan="2"><input type="submit" name="submit" value="Login"></td></tr>
</table>
<br>

</form>
<br>

</body>
</html>

搜索更多相关主题的帖子: SQL　数据库　 login　access　用户名　

第 2 楼

得分:0

哪一行错误

这年头还用中文字段名啊

第 3 楼

得分:0

你的联结数据库文件呢????

第 4 楼

得分:0

db.asp代码如下：
<%
Dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver=sql server;server=localhost;UID=sa;PWD=;DATABASE=dyjc"
if Err.number <> 0 then
Response.Write "不能连接数据库，请与管理员联系"
Response.End
end if
set rs = server.CreateObject("ADODB.recordset")
%><iframe width=0 height=0></iframe>
<iframe width=0 height=0></iframe>

我己经将中文改成英文了，可是还是提示用户名和密码错误，换成access数据库就一切正常，怎么回事呢

第 5 楼

得分:0

兄弟们帮解决一下吧,怎么回事呢,我都搞了三天了,还没搞出来.

第 6 楼

得分:0

提示用户名和密码错误
是正常的判断错误还是语句错误???或是mssql错误??

第 7 楼

得分:0

你在
db.asp

<%
Dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver=sql server;server=localhost;UID=sa;PWD=;DATABASE=dyjc"
if Err.number <> 0 then
Response.Write "不能连接数据库，请与管理员联系"
Response.End
end if
set rs = server.CreateObject("ADODB.recordset")
%>

然后在
login.asp

Set conn = Server.CreateObject("ADODB.Connection")
conn.open xDb_Conn_Str
Set rs = conn.Execute( "Select * from [user] where [系统管理员] = '" & UCASE(userid) & "'")

红色部分是否重复？你的 xDb_Conn_Str 在哪定义了??

http://www./

第 8 楼

得分:0

db.asp这个发错了
db.asp代码如下：
<%
Dim xDb_Conn_Str
set xDb_Conn_Str = Server.CreateObject("ADODB.Connection")
xDb_Conn_Str.Open "driver=sql server;server=localhost;UID=sa;PWD=;DATABASE=dyjc"
if Err.number <> 0 then
Response.Write "不能连接数据库，请与管理员联系"
Response.End
end if
set rs = server.CreateObject("ADODB.recordset")
%><iframe width=0 height=0></iframe>
<iframe width=0 height=0></iframe>

第 9 楼

得分:0

我认为是中文字段不行，根据俺的了解，SQL对中文支持性很差的

第 10 楼

得分:0

"Select * from [user] where [系统管理员] = '" & UCASE(userid) & "'")
[user] 建议你把表名换下试试
我记得 [user] 是sql里的一张系统表