|
这是我的UPDATE.ASP的源码,提交表单以后数据库没有更新,昏。。。
<!--#include file="link.asp" -->
<!--#include file="check.asp" -->
<%
on error resume next
dim rs,sql,id
id = request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from diary where id="&id&""
rs.open sql,conn,1,3
rs("xh")=request("xh")
rs("bsdw")=request("bsdw")
rs("ay")=request("ay")
rs("xm")=request("xm")
rs("xb")=request("xb")
rs("nl")=request("nl")
rs("sf")=request("sf")
rs("qzcs")=request("qzcs")
rs("slrq")=request("slrq")
rs("yqrq")=request("yqrq")
rs("yctbrq")=request("yctbrq")
rs("yccbrq")=request("yccbrq")
rs("ycyqrq")=request("ycyqrq")
rs("ectbrq")=request("ectbrq")
rs("eccbrq")=request("eccbrq")
rs("ecyqrq")=request("ecyqrq")
rs("jbrq")=request("slrq")
rs("qssh")=request("qssh")
rs("zsqk")=request("zsqk")
rs("qsrq")=request("qsrq")
rs("bqssh")=request("bqssh")
rs("bqsrq")=request("bqsrq")
rs("bqsyy")=request("bqsyy")
rs("ktrq")=request("ktrq")
rs("pjrq")=request("pjrq")
rs("pjjg")=request("pjjg")
rs("cbr")=request("cbr")
rs("bz")=request("bz")
rs("aqzy")=request("aqzy")
rs("syjycxrq")=request("syjycxrq")
rs("sjrq")=request("sjrq")
rs("ajlf")=request("ajlf")
rs("ajqk")=request("ajqk")
rs("ajr")=request("ajr")
rs("clqk")=request("clqk")
rs.update
if err then
response.write("异常")
end if
Response.Write("修改案件成功!")
response.end
%> |
|