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