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

rs("body")="以一个菜鸟的眼光看这个IT世界"

rs.update  '提交添加

rs.close

set rs=nothing

conn.close

Response.Write "<script>alert('数据添加成功！');window.location.href='http://www.uniqueue1.com';</script>" 



%>