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")="[email protected]"

rs("body")="你身边的手机文学网站"

rs.update  '提交修改

rs.close

set rs=nothing

conn.close

Response.Write "<script>alert('数据修改成功！');window.location.href='http://wap.07zxx.com';</script>" 



%>