参数不足,期待是 1。??怎样改?

daynight2 2003-10-27 08:51:02
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。renzheng/shenqingbaocun.asp, 第 39 行

请问是什么错误?如何修改?

原码:
<!--#INCLUDE file="conn.asp" -->
<%
dim name,password,datall
name=Trim(Request.form("name"))
password=Trim(Request.form("password"))
datall=Trim(Request.form("datall"))

if trim(name)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入用户名!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

if trim(password)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入密码!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if
if trim(datall)="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请填入内容!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
end if

datall=replace(datall,"<","<")
datall=replace(datall,">",">")
datall=replace(datall,"'","<|>")
datall=replace(datall,vbCrLf,"<br>")
datall=replace(datall," "," ")
%>
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "Select * From user where name='"&name&"'", conn, 3,3 // 39行
%>
<%if rs2.bof then %>


<% Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "user",conn,1,2
rs.addnew
rs("user")=name
rs("password")=password
rs("renzheng")=0
rs("datall")=datall
rs("cishu")=0
rs.update
response.redirect "shenqing.asp"
%>
<%else%>
<script language=javascript>
alert( "你的用户名已经被注册,请更换用户名注册!" );
location.href = "javascript:history.back()"
</script>
<%end if%>
...全文
55 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
wang7655 2003-10-27
  • 打赏
  • 举报
回复
好了?/
chenmei 2003-10-27
  • 打赏
  • 举报
回复
改好了?
Tal 2003-10-27
  • 打赏
  • 举报
回复
rs2.Open "Select * From user where name='"&name&"'", conn, 3,3
>>>>
rs2.Open "Select * From user where name='"&name&"'", conn, 3,1
daynight2 2003-10-27
  • 打赏
  • 举报
回复
发现错误了谢谢大家

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧