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") set rs=server.createobject("adodb.recordset") sql="select * from ly" rs.open sql,conn,1,3 '查询参数是: 1,1, 删除参数是: 2,3 rs.addnew '执行添加操作。 rs("title")="优一队列" rs("name")="http://www.uniqueue1.com" rs("tel")="13611117878" rs("mail")="test@test.com" rs("body")="以一个菜鸟的眼光看这个IT世界" rs.update '提交添加 rs.close set rs=nothing conn.close Response.Write "<script>alert('数据添加成功!');window.location.href='http://www.uniqueue1.com';</script>" %>