[求助]大侠们，救救我吧，我快不行了 - ASP技术论坛

问题点数：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　

第 2 楼

得分:0

rs.open "select * from users where username = '" & varusername & " ';",conn,0,1
这个问题吧

^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^

第 3 楼

得分:0

好像还是不行啊，还是那个错误

第 4 楼

得分:0

我看是数据库没打开吧

^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^

第 5 楼

得分:0

不知道你opendb，closedb，．．．．这些函数是什么

第 6 楼

得分:0

你这个程序肯定会出错了,你看一下就知道了.1,首先你的数据根本没打开.
2,如果call opendb这个是调用某个程序.来打开数据库...
而你这里根本没有程序可调用...
反正你这里还缺少这点东东

^^多谢赐教!!无以为报只好以身相许!!!^^谢谢,不用谢,要谢的,多说不用了^^如果真的要谢,那就嫁给我吧,好啊^^

第 7 楼

得分:0

你的数据库连接要先搞清楚！现在是没有看到你的数据库连接！

第 8 楼

得分: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>

第 9 楼

得分:0

conn.provider="microsoft.jet.oledb.4.0; jet oledb;database password=natterchat"

这句话多余了连接字符串已经制定提供者了。