代码如下：
<% @ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!-- #include virtual ="/index4-3/dbconn.asp" -->
<%
Dim tfUsername,tfPassword,tfName,tfEmail
Dim objRS,sqlstr,ErrMsg
tfUsername =Trim (Request ("tfUsername"))
tfPassword =Trim (Request ("tfPassword"))
tfName =Trim (Request ("tfName"))
tfEmail =Trim (Request ("tfEmail"))
sqlstr ="select * from uselist where tfUsername LIKE '%"&tfUsername&"%'"
set objRs =Server.CreateObject("ADODB.Recordset")
objRs.open sqlstr,objConn,1,3 //提示这里出错了
If Not objRS.Eof then
ErrMsg ="该用户名已被别人注册，请换个用户名！"
Else
objRs.AddNew
objRs("tfUsername")= tfUsername
objRs("tfPassword")=tfPassword
objRs ("tfName") =tfName
objRs ("tfEamil") =tfEamil
objRs("RegTime") =Now()
objRs.Updata
end if
%>
<!-- #include virtual ="/index4-3/endconn.asp" -->
<html>
<head>
<title>新用户注册</title>
</head>
<body>
<p align="center"><font color="#FF0000" size="6"><strong>新用户注册结果</strong></font></p>
<hr width="400" size="1"noshade>
<p align="center">
<%
If IsEmpty(ErrMsg) Then
Response.Write("恭喜你注册成功！<br>")
Response.Write("<a href =""/index4-3/"">【返回首页】</a>")
else
response.Write(ErrMsg&"<br>")
response.Write("<a href ="" javascript:history.go(-1);"">【返回重填】</a>")
end If
%>
</p>
</body>
</html>
问题描述：
Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。
/index4-3/register.asp，行 16