其他的都可以正常使用,,就是修改的时候修改完了出错,,,,

[此贴子已经被作者于2007-8-6 22:33:27编辑过]

7GCSU4X9.rar (10.18 KB) [开源][求助]讯录修改问题!

oIF8K2nt.rar (10.46 KB) [开源][求助]讯录修改问题!

谢谢,,,我先一下先

[此贴子已经被作者于2007-8-6 17:45:06编辑过]

<%
dim rs3
dim sql3
sql3="select * from user where id="&request.form("id")
set rs1=server.createobject("adodb.recordset")
if request.querystring("act")="go" then
if not isnumeric(request.querystring("id")) or request.querystring("id")="" then
msg"参数不正确"
else
rs3.open rs1,conn,1,3 大家,,还是不行啊,,这句话的问题 错误类型为:
microsoft vbscript 运行时错误(0x800a01a8)
缺少对象: ''
modify19行,,,就是这一行了

rs3("user")=request.form("user")
rs3("password")=request.form("psw")
rs3.update
end if
end if
%>
<%
dim sql
dim rs

set rs=server.createobject("adodb.recordset")
'rs.open conn
sql="select * from user where id="&request.querystring("id")
sql2="select * from user "
if request.querystring("act")="modify" then
if not isnumeric(request.QueryString("id")) or request.querystring("id")="" then
msg"非法操作"
else
rs.open sql,conn,1,1
end if
else
'rs.open sql2,conn,1,1

response.redirect "ad.asp"
end if

%>