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

%>