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 [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
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