ASP入门学习（三）修改操作 全新时代

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>  
<%Response.CodePage=65001%>  
<%Response.Charset="utf-8"%>
<!-- 设置编码很重要，否则程序会出现异常或中文乱码问题。 -->

<%
'conn
'准备工作
dim conn 
dim connstr
dim path 
path = server.mappath("\OneFCMS_Data\OneFCMS$%#$#Data$%#2012#$11$$#7.mdb")
'response.Write(path & "<br/>")
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
  Response.End
End If 
%>

<%

'ip=request.servervariables("remote_addr")
'获取表单传递过来的数据，asp使用request.form("")
'url传参数，asp使用 id=Request.QueryString("id")  
'id=request.form("id")
'title=request.form("title")
'name=request.form("name")
'mail=request.form("mail")
'tel=request.form("tel")
'body=request.form("body")

'id=request("id") 获取id的值
id=29
if id="" or not isnumeric(id) then
Response.Write "<script language='javascript'>alert('ID参数错误!');document.location.href('xx.asp');</script>"
Response.End()
end if
    
set rs=server.createobject("adodb.recordset")
sql="select * from ly where id = " & id  '根据id来查询需要修改的记录。
rs.open sql,conn,1,3   '查询参数是: 1,1, 删除参数是: 2,3
if rs.eof and rs.bof then
Response.Write "<script language='javascript'>alert('ID参数错误!');document.location.href('xx.asp');</script>"
Response.End()
end if
    
'rs.addnew '执行添加操作。
rs("title")="07哲学系"
rs("name")="http://wap.07zxx.com"
rs("tel")="13611117878"
rs("mail")="test@test.com"
rs("body")="你身边的手机文学网站"
rs.update  '提交修改
rs.close
set rs=nothing
conn.close
Response.Write "<script>alert('数据修改成功！');window.location.href='http://wap.07zxx.com';</script>" 

%>