急:提交登录表单时出现错误:"出现了运行时间错误,是否进行调试? 错误:缺少对象"请问哪里出了问题?

longlongxre 2003-11-22 12:52:12
很急啊,在线等待中...
...全文
190 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
xzq686 2003-11-22
  • 打赏
  • 举报
回复
javascript出错
代码粘出来看看!
xzq686 2003-11-22
  • 打赏
  • 举报
回复
别客气。CSDN都是这样互相帮助的!
xzq686 2003-11-22
  • 打赏
  • 举报
回复
<!--#include file="conn.asp"--> 应该不会有问题
下面的两个文件你检查一下。应该是这个两个包涵文件的问题。能不能单独运行一下下面这两个文件调一下看有没有错!
<!-- #include file="top.asp" -->

<!-- #include file="bottom.asp" -->
longlongxre 2003-11-22
  • 打赏
  • 举报
回复
呵呵,找到错误啦,原来是登录表单的onclick制订的函数没有定义,偶真是...874自己^_^
谢谢各位啦,特别是xzq686(瞬)兄.
longlongxre 2003-11-22
  • 打赏
  • 举报
回复
xzq686(瞬),你说的地方都没有问题,怎么办啊.干脆把整个代码贴出来:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<html>
<head>
<title>[::inform::]</title>
<meta name="Generator" content="EditPlus">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>

<body leftMargin=0 topMargin=0 bgColor=#ffffff background="image/bg.gif">

<!-- #include file="top.asp" -->

<table width="752" border="1" cellspacing="0" cellpadding="0" RULES=none align=center
bordercolor=#8ABEE5 >
<tr><td bgcolor="#cccccc"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="image/ao.gif">::您的位置<img src="image/point.gif"><a href="#">Checked</a></td>
</tr>
<tr><td><img src="image/spacer.gif" height=3></td></tr>
<TR>
<TD background="image/linex.gif"><IMG height=2
src="image/linex.gif" width=3></TD></TR>
</table>


</td></tr>
<tr><td bgcolor="cccccc">
<%
dim Login_flag
user_id=Trim(Request.Form("user_id"))
user_pwd=Trim(Request.Form("user_pwd"))

Set rs=Server.CreateObject("ADODB.Recordset")


' 根据代号和密码查询记录的SQL语句
sqlstr="Select * from register "
sqlstr= sqlstr & " where user_id='" &user_id& "'"
sqlstr= sqlstr & " and user_pwd='" &user_pwd& "'"

rs.Open sqlstr, conn ,3,1

' 如果没有记录则密码错误
' 如果找到记录则登录成功

If rs.Eof=True Then
Login_flag=false
Else
Login_flag=true
End If

' 如果登录失败, 提示再次登录
If Login_flag=false Then

Response.Write "<br><br><center><p><font color=red>非常抱歉,登录失败!请确认您是否已经注册过.</font></p>"
Response.Write "<p><a href=index.asp>请点击这里再次登录</a></p>"
Response.Write "<br></center>"

End If

' 如果登录成功,提示欢迎信息
If Login_flag=true Then

' 记录用户登录信息

Session("user_id")=trim(rs("user_id"))
Session("user_name")=Trim(rs("user_name"))
Session("login_flag")="Success"

' 返回bbs
Response.Redirect "bbs.asp"

End If

rs.Close
Set rs=Nothing
%>


</td></tr>
</table>

<table><tr><td><img src="image/spacer.gif" height="2"></td></tr></table>

<!-- #include file="bottom.asp" -->

</body>
</html>
xzq686 2003-11-22
  • 打赏
  • 举报
回复
应该只是脚本的小毛病,你只要仔细的检查脚本就行了。是脚本的运行期错误!
canoexu 2003-11-22
  • 打赏
  • 举报
回复
有问提加我QQ:34468071。大家交流一下。
canoexu 2003-11-22
  • 打赏
  • 举报
回复
我好像遇过是你没有给传递变量付值。你付个值试试看。
xzq686 2003-11-22
  • 打赏
  • 举报
回复
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=。。。"
conn.Open connstr
上面这几句话你有吗???
xzq686 2003-11-22
  • 打赏
  • 举报
回复
前面有加上这些吗????
<%@LANGUAGE="vbscript"TRANSACTION=Reqired
response.buffer=true
longlongxre 2003-11-22
  • 打赏
  • 举报
回复
没有javascript啊,我贴出来的差不多就是全部代码了.
xzq686 2003-11-22
  • 打赏
  • 举报
回复
我这出现过,不过是javascript的问题,有没有说第几行。如果有的话那就是了
你那上面没有javascript?????
把javascript粘过来!
就是你这个表单上的javascript,只要有javascript出错,会使整个页面不显示的!
longlongxre 2003-11-22
  • 打赏
  • 举报
回复
不行,不是这个问题吧.
错误提示问是否进行调试,选择否就可以正常进行到下一个页面,数据库的操作也可以完成.
就是这个提示框,好讨厌!
xzq686 2003-11-22
  • 打赏
  • 举报
回复
你用response.write "dd"
response.end
从上到下查一下,看看哪句话有问题!
比如:
<%

user_id=Trim(Request.Form("user_id"))
user_pwd=Trim(Request.Form("user_pwd"))

Set rs=Server.CreateObject("ADODB.Recordset")


' 根据代号和密码查询记录的SQL语句
sqlstr="Select * from register "
sqlstr= sqlstr & " where user_id='" &user_id& "'"
sqlstr= sqlstr & " and user_pwd='" &user_pwd& "'"

rs.Open sqlstr, conn ,3,1
  
response.write "dd"   加到这看看页面的情况,运行一下!
response.end


' 如果没有记录则密码错误
' 如果找到记录则登录成功

If rs.Eof=True Then
Login_flag=false
Else
Login_flag=true
End If

' 如果登录失败, 提示再次登录
If Login_flag=false Then

Response.Write "<br><br><center><p><font color=red>非常抱歉,登录失败!请确认您是否已经注册过.</font></p>"
Response.Write "<p><a href=index.asp>请点击这里再次登录</a></p>"
Response.Write "<br></center>"

End If

' 如果登录成功,提示欢迎信息
If Login_flag=true Then

' 记录用户登录信息

Session("user_id")=user_id
Session("user_name")=Trim(rs("user_name"))
Session("login_flag")="Success"

' 返回bbs
Response.Redirect "bbs.asp"

End If

rs.Close
Set rs=Nothing
%>

longlongxre 2003-11-22
  • 打赏
  • 举报
回复
这是代码(check.asp):

<%

user_id=Trim(Request.Form("user_id"))
user_pwd=Trim(Request.Form("user_pwd"))

Set rs=Server.CreateObject("ADODB.Recordset")


' 根据代号和密码查询记录的SQL语句
sqlstr="Select * from register "
sqlstr= sqlstr & " where user_id='" &user_id& "'"
sqlstr= sqlstr & " and user_pwd='" &user_pwd& "'"

rs.Open sqlstr, conn ,3,1

' 如果没有记录则密码错误
' 如果找到记录则登录成功

If rs.Eof=True Then
Login_flag=false
Else
Login_flag=true
End If

' 如果登录失败, 提示再次登录
If Login_flag=false Then

Response.Write "<br><br><center><p><font color=red>非常抱歉,登录失败!请确认您是否已经注册过.</font></p>"
Response.Write "<p><a href=index.asp>请点击这里再次登录</a></p>"
Response.Write "<br></center>"

End If

' 如果登录成功,提示欢迎信息
If Login_flag=true Then

' 记录用户登录信息

Session("user_id")=user_id
Session("user_name")=Trim(rs("user_name"))
Session("login_flag")="Success"

' 返回bbs
Response.Redirect "bbs.asp"

End If

rs.Close
Set rs=Nothing
%>

28,407

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧