主题:  程序调试出错专答区

蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#162005/2/12 22:20:28
也可能是程序的BUG吧,可能是数据库中是空数据,比如设置或管理员信息等,在非空数据记录时不会出错。
dvbbs程序很复杂,也没去研究结构,所以也只是猜测。


非常大鱼

AdderKing

职务:普通成员
等级:1
金币:0.0
发贴:12
#172005/2/20 22:51:34
我是asp菜鸟 请问我做分页的时候用到pagecount 可是怎么都不对
于是我用
response.write rs.pagecount打印一下 可是提示我
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象

请问什么问题
还有pagecount并不是所有的数据提供者都支持 我怎么知道呢



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#182005/2/21 0:41:48
Adder在上个帖子中说
引用:
我是asp菜鸟 请问我做分页的时候用到pagecount 可是怎么都不对
于是我用
response.write rs.pagecount打印一下 可是提示我
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象

请问什么问题
还有pagecount并不是所有的数据提供者都支持 我怎么知道呢



可能是你的Recordset对象不正确,用Execute的Rs并不是Recordset对象,不能用pagecount,你是否是这个原因。


非常大鱼

AdderKing

职务:普通成员
等级:1
金币:0.0
发贴:12
#192005/2/21 9:56:00
我连接数据库是这样的
SET CONN =SERVER.CREATEOBJECT("ADODB.CONNECTION")
SET RS=SERVER.CEREATOBJECT("adodb.recordset")
sql="select * from option oder by id desc"
rs.open sql,conn,1,1



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#202005/2/21 14:08:33
option和id都是专用词,需用[],[id]


非常大鱼

AdderKing

职务:普通成员
等级:1
金币:0.0
发贴:12
#212005/2/22 12:16:42
好用了 非常感谢;)



juzisusu

职务:普通成员
等级:1
金币:0.0
发贴:5
#222005/2/25 9:49:35
<%
if request.Form<>"" then
UserName =Request.Form("UserName"
     password=request.Form("password"
     Email =Request.Form("Email"
HomePage =Trim(Request.Form("HomePage")
     qq=request.Form("QQ"
     sex      =Request.Form("sex"
Face =Request.Form("Face"
     if homepage="http://" then homepage=""
Set rs=server.createobject("ADODB.RECORDSET"
     rs.open "Select * From register where username="& request("username",Conn,3,3
     if rs.eof then
     sql="Insert Into register (username,password1,mail,homepage,face,sex,qq) values('"& UserName&"','"& md5(password)&"','"&email&"','"&homepage&"','"&face&"','"&sex&"','"&qq&"')"
     conn.Execute sql
cookiePath=request.servervariables("path_info"
cookiePath=left(cookiePath,instrRev(cookiePath,"/")
response.cookies("ly".Path=cookiePath
response.cookies("ly"("useridname"=username
response.cookies("ly"("useridpassword"=password
else
     response.Redirect "error.asp?type=usrname"
     end if
        response.Redirect "post_ok.asp?info=注册成功!"
     rs.close
     set rs=nothing
conn.close
set conn=nothing
response.end
end if
%>
一个注册用户的程序,不论怎么注册都报“ rs.open "Select * From register where username="& request("username",Conn,3,3”这行有问题!
不知道知道怎么解决,请帮帮忙吧!



juzisusu

职务:普通成员
等级:1
金币:0.0
发贴:5
#232005/2/25 9:52:19
<%
if request.Form<>"" then
UserName =Request.Form("UserName")
     password=request.Form("password")
     Email =Request.Form("Email")
HomePage =Trim(Request.Form("HomePage"))
     qq=request.Form("QQ")
     sex      =Request.Form("sex")
Face =Request.Form("Face")
     if homepage="http://" then homepage=""
Set rs=server.createobject("ADODB.RECORDSET")
     rs.open "Select * From register where username="& request("username"),Conn,3,3
     if rs.eof then
     sql="Insert Into register (username,password1,mail,homepage,face,sex,qq) values('"& UserName&"','"& md5(password)&"','"&email&"','"&homepage&"','"&face&"','"&sex&"','"&qq&"')"
     conn.Execute sql
cookiePath=request.servervariables("path_info")
cookiePath=left(cookiePath,instrRev(cookiePath,"/"))
response.cookies("ly").Path=cookiePath
response.cookies("ly")("useridname")=username
response.cookies("ly")("useridpassword")=password
else
     response.Redirect "error.asp?type=usrname"
     end if
        response.Redirect "post_ok.asp?info=注册成功!"
     rs.close
     set rs=nothing
conn.close
set conn=nothing
response.end
end if
%>

编辑历史:[此帖最近一次被 allinhands 编辑过(编辑时间:2005-02-25 10:10:03)]


juzisusu

职务:普通成员
等级:1
金币:0.0
发贴:5
#242005/2/25 9:55:06
怎么会出现这么多笑脸符号的?真是搞不懂



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
#252005/2/25 10:16:14
rs.open "Select * From register where username='"& request("username")&"'",Conn,3,3


字符串需要引号

下次发代码请使用[code][/code]标签,或者勾选"禁止转换表情图标"



juzisusu

职务:普通成员
等级:1
金币:0.0
发贴:5
#262005/2/25 13:42:39
在哪加引号?



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#272005/2/26 21:49:34
UserName是字符类型,用单型号
如:SELECT * FROM Register WHERE UserName = '张军'


非常大鱼

AdderKing

职务:普通成员
等级:1
金币:0.0
发贴:12
#282005/2/28 11:10:20
我做了一个网上调查生成系统 突然出了一个错误

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft VBScript 运行时错误 错误 '800a01fb'

出现一个意外错误: 'server.createobject'

/jtest/survye/conn.asp,行2

我的conn.asp 是这样写的
set conn=server.createobject("adodb.connection"
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data/survey.mdb"
然后在其他文件中用<!--include file="conn.asp"-->
请问是什么问题



AdderKing

职务:普通成员
等级:1
金币:0.0
发贴:12
#292005/2/28 11:11:35
还有怎样能够避免在运行时出现错误
用on error goto ?



蓝鲸

职务:版主
等级:5
金币:42.1
发贴:2614
#302005/2/28 11:21:52
检查数据库路径错误,比如主文件与包含文件不在同一目录,路径应以主文件路径相对应。
一般情况下避免使用on error,除了不可避免的原因,如控件或版本原因,如邮件控件不同或上传组件不同等,用on error resume next或忽略错误,on error resume 0重新恢复出错机制


非常大鱼