我在弄一个注册文件时,出现了这样一个问题,发出来请教大家:
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'provider=microsoft.j'
test/save.asp, 第 21 行
我把我的Save文件发出来给大家看看
conn.asp内容是
<%
dim ConnStr
ConnStr = "provider=microsoft.jet.OLEDB.4.0;data source=" & server.MapPath("data/jjxt.mdb")
%>
save.asp内容如下:
<!--#include file="conn.asp" -->
<%
response.buffer=true
uname=SQLStr(rst("username"))
pwd=SQLStr(rst("password"))
pwd2=SQLStr(rst("password2"))
e_mail=SQLStr(rst("email"))
'sex=rst("sex")
'year=rst("year")
'month=rst("month")
prov=SQLStr(rst("TPL_prov"))
city=SQLStr(rst("TPL_city"))
if pwd=pwd2 and pwd<>"" and uname<>"" and email<>"" then
dim rec
set rec=server.createobject("adodb.recordset")
sql2="select regusername from users where regusername='"&uname&"'"
rec.open sql2,ConnStr,1,1
set rs=ConnStr.execute(sql2)
if not rs.eof then
response.write "用户名已经存在,请选择另外用户名"
response.end
else
sql="insert into users(regadmin,regUsername,regPassword,regEmail,regState,regCity, regtime )values('N','"&uname&"','"&pwd&"','"&e_mail&"','"&prov&"','"&city&"','"&now&"')"
ConnStr.execute(sql)
response.write"<SCRIPT language=JavaScript>alert('恭喜您!成为"&WebName&"的会员,请登录!');"
response.write"this.location.href='login.asp';</SCRIPT>"
end if
end if
set ConnStr=nothing
ConnStr.close
%>
</body>
</html>
哪位高手知道的话,请跟我联系,QQ:524281957,或者在线修改下也行
可能发错地方了,我现在移到ASP区了,麻烦版主给我删掉这篇,谢谢
[此贴子已经被作者于2006-5-8 18:08:44编辑过]