为什么插入不到数据库中去?
<%Dim rsUserNew,rsUserCheck
Set rsUserNew = Server.CreateObject("ADODB.RecordSet")
Set rsUserCheck = Server.CreateObject("ADODB.RecordSet")
rsUserNew.Open "SELECT * FROM Users",cn,adOpenDynamic,adLockOptimistic
rsUserNew.AddNew
rsUserNew("UserID") = Request("txtUserID")
rsUserNew("UserNick") = Request("txtUserNick")
rsUserNew("UserPWD") = Request("txtUserPWD")
rsUserNew("UserSex") = Request("rdUserSex")
rsUserNew("Birthday") = Request("txtMonth")&"-"&Request("txtDay")&"-"&Request("txtYear")
If Request("txtEmail")<>"" Then
rsUserNew("E-mail") = Request("txtEmail")
End If
If Request("txtQQNum")<>"" Then
rsUserNew("QQNum") = Request("txtQQNum")
End If
If Request("txtUserName")<>"" Then
rsUserNew("UserName") = Request("txtUserName")
End If
If Request("txtHomePage")<>"" Then
rsUserNew("HomePage") = Request("txtHomePage")
End If
If Request("txtDescription")<>"" Then
rsUserNew("Description") = Request("txtDescription")
End If
rsUserNew("RegistTime") = Now
rsUserNew.Update
%>
它提示的错误是:ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
