求助：关于运行时错误 (0x800A01A8)缺少对象: ' '

[flydranon]

小弟我做了一个登录系统，在其他机子运行一切正常，但是到自己机子上运行，随便输入 一个未注册的帐户密码 就出现这个提示，怀疑是不是系统环境配置的问题？二楼是我chklogin.asp的代码，望各位高手赐教，先谢谢了：）

[flydranon]

<!--#include file="Conn.asp"-->
<%
Dim name
Dim pwd

name = Trim(Request.Form("name"))
pwd = Trim(Request.Form("pwd"))

If name = "" Or pwd = "" Then
Response.Write "<Script>alert('请输入帐号或密码！');history.go(-1);</Script>"
Response.End
Else
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From user Where name = '"&name&"' and pwd = '"&pwd&"'"
Rs.Open Sql,conn,3,3

If Rs.EOF Then
Response.Write("<Script language=javascript>alert('你还没有注册，请注册！');history.go(-1);</Script>")
Rsponse.End
ElseIf name = Rs("name") And pwd = Rs("pwd") Then
Session("name") = Rs("name")
Session("flag") = Rs("flag")
Rs("login_time") = Now()
Rs.Update
id = Rs("id")

Response.Redirect "index.asp"

Else
Response.Write "<Script>alert('帐号或密码错误！');history.go(-1);</Script>"
Rsponse.End
End If
End If
Rs.Close
Set Rs=nothing

%>

[zhenmeiyisi]

If Rs.EOF Then
Response.Write("<Script language=javascript>alert('你还没有注册，请注册！');history.go(-1);</Script>")
Rsponse.End

Rsponse.End 改成 Response.End

[zhenmeiyisi]

Response.Write "<Script>alert('帐号或密码错误！');history.go(-1);</Script>"
Rsponse.End


Rsponse.End 改成 Response.End

[heroooooo]

感觉不是这个地方,可能是LZ贴代码的时候帖错了.

在其他机子运行一切正常,这个就说明了这个,问题不是问得很明白.

[yongfa365]

还是先改成

Rsponse.End 改成 Response.End


试试吧,没有这个Rsponse对象,所以缺少对象

[aner]

可能是Conn.asp中联接数据库的路径有问题

[flydranon]

谢谢yongfa365(yongfa365)，zhenmeiyisi 问题已解决