| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 694 人关注过本帖
标题:[求助]大侠们,救救我吧,我快不行了
只看楼主 加入收藏
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
 问题点数:0 回复次数:8 
[求助]大侠们,救救我吧,我快不行了

错误类型:
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'opendb'
/registerdo.asp, 第 13 行

原文是:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
varusername = request("txtusername")
varpassword = request("txtpassword")

call opendb *****************************************************************这里就是出错误的地方,我搞了半天,想不出来为什么
rs.open "select * from users where username = '" & varusername & " ';",conn,0,1

if rs.eof then
call colsedb

call writedb("insert into users([username],[password]) values('" & varusername & "','" & varpassword & "');")
response.Redirect("home.asp?status=registered")
else
call closedb
response.write "该用户名已经存在,请换一个!"
end if
%>
</body>
</html>

搜索更多相关主题的帖子: Microsoft STRONG VBSCRIPT 
2005-11-09 14:47
fcnh1983
Rank: 1
等 级:新手上路
帖 子:665
专家分:0
注 册:2005-8-31
收藏
得分:0 
rs.open "select * from users where username = '" & varusername & " ';",conn,0,1
这个问题吧

^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^
2005-11-09 15:01
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 
好像还是不行啊,还是那个错误
2005-11-09 15:06
fcnh1983
Rank: 1
等 级:新手上路
帖 子:665
专家分:0
注 册:2005-8-31
收藏
得分:0 

我看是<!-- #include file="conn.asp" -->数据库没打开吧


^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^
2005-11-09 15:13
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
收藏
得分:0 
不知道你opendb,closedb,....这些函数是什么

2005-11-09 15:13
fcnh1983
Rank: 1
等 级:新手上路
帖 子:665
专家分:0
注 册:2005-8-31
收藏
得分:0 
你这个程序肯定会出错了,你看一下就知道了.1,首先你的数据根本没打开.
2,如果call opendb这个是调用某个程序.来打开数据库...
而你这里根本没有程序可调用...
<!-- #include file="????.asp" -->反正你这里还缺少这点东东

^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^
2005-11-09 15:25
alonglqw
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-11-9
收藏
得分:0 
你的数据库连接要先搞清楚!现在是没有看到你的数据库连接!
2005-11-09 17:04
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 

这是设置数据库的基本操作的那个文件,我不知道这里设置错了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>数据库连接</title>
</head>

<body>
<%
'声明变量
dim

vardb,varmydomain,vardate,varmessage,varusername,varusername2,varuserid,maruser2id,varlogoff,varstyle,varcolour,varswearstatus,varpmrand,conn,rs,varsql,vart

ime,varrooms,varidletime,varidle,varlastpost,i

vardb = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=chat"

'初始化时间变量,记录当前时间
vardate = now()

'错误提示函数
function traperror
response.Write "错误产生!"
end function

'打开数据库函数
sub opendb
set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0; jet oledb;database password=natterchat"
conn.open vardb
set rs=server.CreateObject("adodb.recordset")
end sub

'关闭数据库
sub closedb
rs.close
conn.close
set rs = nothing
end sub

'执行SQL语句
sub writedb(varsql)
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.loedb.4.0;jet oledb:database password=natterchat"
conn.open vardb
conn.execute(varsql)
conn.close
set conn = nothing
end sub

'打开数据库
call opendb
varsql = "select *from setup;"
rs.open varsql, conn
if rs.eof then
'打开setup表,如果为空,则提示错误
else
varidletime = rs("idletime")
varkickouttime = rs("kickouttime")
end if
call closedb
%>
</body>
</html>

2005-11-10 22:58
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
conn.provider="microsoft.jet.oledb.4.0; jet oledb;database password=natterchat"

这句话多余了连接字符串已经制定提供者了。
2005-11-10 23:04
快速回复:[求助]大侠们,救救我吧,我快不行了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028751 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved