ASP更新记录;ASP更新Access记录;ASP更新数据库
<!--#include file="conn.asp"--><%
id=request.QueryString("id")
if Request("Action")="modi" then
ID=Request("ID")
BigClass=Request("BigClass")
sql="select * from View_cj where id="&ID
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
if not rs.eof then
rs("BigClass")=BigClass
rs("Types")=Request("Types")
rs("SmallPic")=Request("SmallPic")
rs("BigPic")=Request("BigPic")
rs("Names")=Request("Names")
rs("sm")=Request("sm")
rs("ls")=Request("ls")
rs("tz")=Request("tz")
rs("cd")=Request("cd")
rs("zpz")=Request("zpz")
rs.Update
end if
rs.Close
Response.Write "<script>alert('修改成功！');</script>"
Response.Redirect "View_Manage_cj.asp"
End if
%>
带容错功能的代码
id=request.QueryString("id")'我经常定义一个错误代码的方法来防止出错
lq_err=0
if Request("Action")="modi" then
ID=Request("ID")
'此处加判断
if not isnumeric(id) then
id=0
lq_err=lq_err+1 '出错代码加1
else
id=Clng(id)
end if
BigClass=Request("BigClass")
'提示:表名最好外加[],保持和SQL兼容性.(多余的话)
sql="select * from where id="&ID&""
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
if not rs.eof then
rs("BigClass")=BigClass
rs("Types")=Request("Types")
rs("SmallPic")=Request("SmallPic")
rs("BigPic")=Request("BigPic")
rs("Names")=Request("Names")
rs("sm")=Request("sm")
rs("ls")=Request("ls")
rs("tz")=Request("tz")
rs("cd")=Request("cd")
rs("zpz")=Request("zpz")
rs.Update
else
lq_err=lq_err+1 '无记录
end if
rs.Close
Set Rs=Nothing
'在转到页面前先释放数据连接,减轻服务器压力
Conn.Close
Set Conn=Noting
End if
if lq_err=0 then
Response.Write "<script>alert('修改成功！');</script>"
Response.Redirect "View_Manage_cj.asp"
else
Response.Write "<script>alert('修改失败！');</script>"
Response.Redirect "erro.asp"
end if
'个人习惯(防止益出)
Response.End
页:
[1]