<%@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>" %>