woxiuwosheng 发布留言 2008-8-21 16:39
运行程序时提示0x80020009错！请高人指点迷津
会员资料修改<%
on error resume next
set rst=server.CreateObject("adodb.recordset")
id=request.QueryString("id")
if request.QueryString("act")="modify" then
'如果是修改数据
conn.begintrans
'sql="update user set u_user='"& request.Form("f_user") &"',u_code='"& request.Form("f_code") &"' where u_id="& id
'sql1="update user set i_name='"& request.Form("f_name") &"',i_sex='"& request.Form("f_sex") &"'"
'sql1=sql1 & ",i_age='"& request.Form("f_age") & "',i_vip="
'if request.Form("f_vip")=1 then
' sql1=sql1 & "true"
'else
'sql1=sql1 & "false"
'end if
' sql1=sql1+" where i_uid=" & id
'conn.execute sql
'conn.execute sql1
rst.open"select * from user where u_id=" & id,conn,1,3
rst("u_user")=request.Form("f_user")
rst("u_code")=request.Form("f_code")
rst.update
rst.close
rst.open"select * from info where i_uid=" & id,conn,1,3
rst("i_name")=request.Form("f_name")
rst("i_sex")=request.Form("f_sex")
rst("i_age")=request.Form("f_age")
if request.Form("f_vip")=1 then
rst("i_vip")=true
else
rst("i_vip")=false
end if
rst.update
rst.close
if err.number<>0 then
conn.rollbacktrans
response.Write("修改会员失败！")
else
conn.committrans
response.Write("修改会员成功！")
end if
end if
%>
|
|
|
|
返回会员列表
<%
rst.open"select * from user where u_id="& request.QueryString("id"),conn,1,1
%>
|
|
|
<%
set rst=nothing
conn.close
set conn=nothing
%>
这是代码 在运行时提示0x80020009错误 说是意外错误 是什么原因该如何解决呢 小弟先谢谢了 黑体部分是提示的错误部分
页: [1]
