<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set zcon = Server.CreateObject("ADODB.Connection")
zcon.open "driver={SQL Server};server=(local);dsn=bchlator;uid=bchlator;"
Set Zrs = Server.CreateObject("ADODB.Recordset")
%>
<%
if Request.form("modify") = "更新" and Request.form("id")<>"" then
id = Request.form("id")
user_id=Request.form("user_id")
user_pwd=Request.form("user_pwd")
zcon.execute"update sys_admins set user_id='"&user_id&"',user_pwd='"&user_pwd&"' where id="&id&""
zcon.close
end if
%>
问题究竟出在那,请帮忙分析。谢谢。
你可以这样写程序:
Zrs.open"select * from sys_admins where id="&id&"",conn,1,3
if not Zrs.eof then
rs("user_id")=user_id
rs("user_pwd")=user_pwd
response.write""
End if
作者:匿名 回复日期:2005-07-13 13:27
你可以这样写程序:
Zrs.open"select * from sys_admins where id="&id&"",conn,1,3
if not Zrs.eof then
rs("user_id")=user_id
rs("user_pwd")=user_pwd
response.write""
End if
少了个rs.update
这句:zcon.execute"update sys_admins set user_id='"&user_id&"',user_pwd='"&user_pwd&"' where id="&id&""
改为:
sql="update sys_admins set (user_id,user_pwd) =('"&user_id&"','"&user_pwd&"') where id="&id&""
zcon.execute(sql)