小弟刚接触asp不久,现在遇到了个后台登陆的问题,不知道哪里出错了,用DW预览网页,用正确的用户名和密码登陆,死活就是提示错误,请各位大神看看是哪里出问题了。。。
这是login.asp的代码
if Request("action")=1 then
name=R(Trim(Request("name")))
pass=MD5(R(Trim(Request("pass"))))
CheckCode=Trim(Request("CheckCode"))
if Ucase(CheckCode)<>CStr(session("CheckCode")) then
Response.Write("<script>alert('验证码错误,请重新输入!');history.back();</script>")
Response.End()
End if
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from FW_Admin where name='"&name&"' and pass='"&pass&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
Response.Write("<script>alert('用户名或密码错误,请重新输入!');history.back();</script>")
Response.End()
else
session.Timeout=SessionTimeout
Session("Admin")=rs("name")
Session("Pass")=rs("pass")
Session("Admintype")=rs("admintype")
rs("logintime")=Now()
rs.Update
rs.Close
set rs=nothing
Response.Redirect("System_index.asp")
end if
end if
这是conn.asp的代码
<%@language=vbscript codepage=936%>
<%Session.CodePage=936%>
<!--#include file="config.asp"-->
<%
On Error Resume Next
if DataType="Access" then
dim ConnStr,Conn,datapath,SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
datapath="/QUCHUNLIN/#guestbook168188.asa"
connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.mappath(datapath)
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
else
SqlDatabaseName = "fangwei" 'SQL数据库名
SqlPassword = "123456" 'SQL数据库用户密码
SqlUsername = "brookqcl" 'SQL数据库用户名
SqlLocalName = "(local)" 'SQL主机IP地址(本地可用“127.0.0.1”或“(local)”,非本机请用真实IP)
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
sub CloseConn()
conn.close
set conn=nothing
end sub
end if
%>

、
输入的用户名和密码和数据库里的一样。。。但就是提示错误 所以来各位