一个安asp的修改更新页面,帮忙修改测试下(不是很懂asp)

来源:百度知道 编辑:UC知道 时间:2024/06/27 07:55:04
1、customers_add.asp 页面上获取数据通过Save_Article.asp?id=<%=id %>
传参数id给如下页面
2、要求成功将控件title等 上的数据赋给数据库字段space等保存

-----修改更新页面-----
<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Include/Conn.asp" -->
<%
IF Request.QueryString("id")<>"" Then
id=Request.QueryString("id")
IF isNumeric(id)<>True Then
Response.Redirect("err.asp?message=非法的传值参数,请勿利用程序漏洞对本站破坏,谢谢。")
End IF

set rs1=Server.CreateObject("Adodb.Recordset")
str="select * from zm_p where id="&id
rs1.open str,conn,1,3

rs1("space")=Trim(Request.Form("title"))
rs1("people")=Trim(Request.Form("writter"))
rs1("tel")=Trim(Request.Form("comefrom"))
rs1("type")=Trim(Request.Form("comefrom2"))
rs1

<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Include/Conn.asp" -->
<%
IF Request.QueryString("id")<>"" Then
id=Request.QueryString("id")
IF isNumeric(id)<>True Then
Response.Redirect("err.asp?message=非法的传值参数,请勿利用程序漏洞对本站破坏,谢谢。")
response.end() '记得写上这个,有了这个才能执行到这里停止
End IF
set rs1=Server.CreateObject("Adodb.Recordset")
str="select * from zm_p where id="&id
rs1.open str,conn,1,3

IF rs1.eof Then
response.Redirect("err.asp?message=未找到该记录!记录已删除或者非法的ID号!")
response.end()
else
rs1("space")=Trim(Request.Form("title"))
rs1("people")=Trim(Request.Form("writter"))
rs1("tel")=Trim(Request.Form("comefrom"))
rs1("type")=Trim(Request.Form(&