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

善良的狗

等　级：新手上路
帖　子：19
专家分：0
注　册：2005-11-1

楼主

问题点数：0 回复次数：2

[求助]大侠们，救救我吧，我快不行了

错误类型：
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

善良的狗

等　级：新手上路
帖　子：19
专家分：0
注　册：2005-11-1

第 3 楼

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