请问一下 验证页面时出现以下字符是什么原因啊?
Active Server Pages 错误 '00000000'
创建对象失败
?
创建对象 'WScript' 时出错。
Active Server Pages
创建对象失败
?
创建对象 'JSProxy' 时出错。
谢谢大家啦 帮忙看看! <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta http-equiv="Content-Language" content="zh-cn"> <title>注册</title> </head>
<body> <% dim strUserName dim strPassword dim strConfPassword dim strRealName dim strGender dim strTel dim strEmail dim blnGender
strUserName=Request.Form("txtUserName") strPassword=Request.Form("txtPassword") strConfPassword=Request.Form("txtConfPassword") strRealName=Request.Form("txtRealName") strGender=Request.Form("sltGender") strTel=Request.Form("txtTel") strEmail=Request.Form("txtEmail")
if strPassword<>strConfPassword then response.redirect "SignUp.html" end if
if strGender="male" then blnGender=1 else blnGender=0 end if
set conn=server.createobject("ADODB.Connection") conn.open "DSN=sanzhida;Server=HEAVEN-JVTKI2IG;Database=learnasp;Uid=sa;Pwd=sa"
set rs=server.createobject("ADODB.Recordset")
sql="select USER_NAME from UserInfo where USER_NAME='"&strUserName&"'" rs.open sql,conn,1,1 if not rs.eof then response.Write("您申请的名字已经被使用,请更换一个用户名。") else sql="insert into UserInfo values('"&strUserName&"','"&strPassword&"','"&strRealName&"',"&blnGender&",'"&strTel&"','"&strEmail&"')" response.Write"注册成功!"
end if conn.execute(sql)
set rs=nothing conn.close set conn=nothing %> </body> </html>
if not rs.eof then response.Write("您申请的名字已经被使用,请更换一个用户名。") else sql="insert into UserInfo values('"&strUserName&"','"&strPassword&"','"&strRealName&"',"&blnGender&",'"&strTel&"','"&strEmail&"')" conn.execute(sql) response.Write"注册成功!" end if set rs=nothing conn.close set conn=nothing %> </body> </html>
这样试试