save.asp

功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数据库

<% 
	
guestname=trim(request.form("guestname"))
from=request.form("from")
hpage=request.form("homepage")
email=request.form("email")
qq=request.form("oicq")
face=request.form("face")
guestcontent=request.form("guestcontent")
saydate=Now
ip=Request.ServerVariables("REMOTE_ADDR")

call saveuserinfo
response.redirect "index.asp" 

sub saveuserinfo
	
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

	set comm=Server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	comm.CommandText="insert into guest (guestname,[from],homepage,email,oicq,face,guestcontent,guestdate,ip) values ('" & guestname & "','" & from & "','" & hpage & "','" & email & "','" & qq & "','" & face & "','" & guestcontent & "','" & saydate & "','" & ip & "')"  
	set rs=comm.Execute
	
	
	conn.close
	set comm=nothing
	set conn =nothing
end sub

%>