UC知道ASP修改记录不成功
来源：百度知道 编辑：UC知道 时间：2024/05/19 05:24:37
<!--#include file="main.asp"-->
<%
user=request("user")
pass=request("password")
colxrsex=request("sex")
coname=request("name")
mail=request("mail")
cotel=request("tel")
cofax=request("fax")
comobi=request("mobi")
company=request("company")
coaddress=request("add")
if request("action")="edit1" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from linadmin where lin_id="&request("id")
rs.open sql,conn,1,3
rs("lin_user")=user
rs("lin_password")=pass
rs("lin_sex")=colxrsex
rs("lin_name")=coname
rs("lin_comadd")=coaddress
rs("lin_tel")=cotel
rs("lin_fax")=cofax
rs("lin_email")=mail
rs("lin_mobi")
<%
user=request("user")
pass=request("password")
colxrsex=request("sex")
coname=request("name")
mail=request("mail")
cotel=request("tel")
cofax=request("fax")
comobi=request("mobi")
company=request("company")
coaddress=request("add")
if request("action")="edit1" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from linadmin where lin_id="&request("id")
rs.open sql,conn,1,3
rs("lin_user")=user
rs("lin_password")=pass
rs("lin_sex")=colxrsex
rs("lin_name")=coname
rs("lin_comadd")=coaddress
rs("lin_tel")=cotel
rs("lin_fax")=cofax
rs("lin_email")=mail
rs("lin_mobi")
发生这种问题通常是ado版本的问题
采用rs.update的方法有些ado版本支持的不是很好
建议你用sql语句中的update语句。
代码帮你写了
if request("action")="edit1" then
sql = "update linadmin set " & _
"lin_user='" & user & "'," & _
"lin_password='" & pass & "'," & _
"lin_sex='" & colxrsex & "'," _
"lin_name='" & coname & "'," _
"lin_comadd='" & coaddress & "'," _
"lin_tel='" & cotel & "'," _
"lin_fax='" & cofax & "'," _
"lin_email='" & mail & "'," _
"lin_mobi='" & comobi & "'," _
"lin_company='" & company & "'" _
" where lin_id=" & request("id")
conn.execute(sql)
end if
读写权