insert.asp

来自「言板较全面地利用asp技术实现留言板的基本功能：留言、回复、删除」· ASP 代码 · 共 22 行

<%
	dim unicheng,uqq,uemail,uliuyan,utouxiang
	unicheng = request("txtnicheng")
	uqq = request("txtqq")
	uemail = request("txtemail")
	uliuyan = request("txtliuyan")
	utouxiang=request("txtImg")
	ustatus = request("rdStatus")
	
	dim con
	set con = server.CreateObject("adodb.connection")
	dim constr
	constr = "provider=microsoft.jet.oledb.4.0;data source = "&server.mappath("db.mdb")
	con.open constr
	
	dim sql
	sql = "insert into msg(nicheng,qq,email,liuyan,touxiang,status) values('"&unicheng&"','"&uqq&"','"&uemail&"','"&uliuyan&"','"&utouxiang&"','"&ustatus&"')"
	con.execute sql
	response.Redirect"index.asp"
%>