ASP“操作必须使用一个可更新的查询”问题!
afans 2007-06-11 02:31:34 错误提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft JET Database Engine 错误 '80004005'
操作必须使用一个可更新的查询。
/housefree/house/regsave.asp,行18
regsave.asp文件:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<%
opendataconn
dim userid,pwd,repwd
userid=changechr(request("reg_user"))
pwd=changechr(request("reg_pwd"))
reg_type=changechr(trim(request("reg_type")))
set rs=conn.execute("select * from company where userid='"&userid&"'" )
if not rs.eof then %>
<script language="JavaScript">
alert("对不起!此用户已经存在了,请更改其它用户名 ! ")
history.back()
</script>
<%response.end
else
sqlstr="insert into company (userid,pwd,dnt) values ('"&userid&"','"&pwd&"','"&now()&"')"
conn.execute(sqlstr)
if not err then
session("loginid")=userid
session("reg_type")=reg_type
session("reg_pwd")=pwd
if reg_type="0" then
%>
<script language="JavaScript">
alert("祝贺您已经申请成功!请输入您的注册资料! ")
window.location="editdata.asp"
</script>
<% else%>
<script language="JavaScript">
alert("祝贺您已经申请成功!请输入您的注册资料! ")
window.location="editdata_co.asp"
</script>
<% end if%>
<%else
response.write "对不起!数据库有错误请您稍后再试!"
end if
end if
closedataconn%>