add.asp

动态网站制作,担任源码的. 本站不保证所提供软件或程序的完整性和安全性。 ║ ║ 2) 请在使用前查毒。 ║ ║ 3) 转载本站提供的资源请勿删除本说明文件。 ║ ║ 4) 本站提供的

<%
	ConnectionString="Driver=Microsoft Access Driver (*.mdb);dbq=" & Server.MapPath("Database/GuestBook.mdb")
	set con=Server.CreateObject("ADODB.Connection")
	con.Open connectionstring
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open "select  * from guestbook where 1=0",con,3,3
	rs.addnew
	rs("UserName")=trim(request("UserName"))
	rs("email")=request("email")
	rs("icq")=request("icq")
	rs("face")=request("curFace")
	rs("icon")=request("cicon")
	rs("url")=request("inurl")
	rs("message")=trim(request("fText"))
	rs("subject")=trim(request("subject"))
	rs.update
	rs.close
	set rs=nothing
	con.close
	set con=nothing
	Response.Write "&&sendFlag=1"
%>