update.asp

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

<%
	dim tclose, tpagesize, ttitle,tboard, tbgsound, taccount,tpass
	tclose = request("drpClose")
	 tpagesize = request("txtPagesize")
	ttitle= request("txtTitle")
	tboard = request("txtBoard")
	tbgsound = request("txtSound")
	taccount = request("txtAccount")
	tpass = request("txtPass")
	dim tNewPass
	tNewPass = request("txtNewPass")
	
	if tNewPass <> "" then
		tpass = tNewPass
	end if
	
	dim con,conStr
	set con = server.createObject("adodb.connection")
	conStr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
	con.open conStr

	dim sql
	sql = "UPDATE config set isclose="&tclose&",pagesize="&tpagesize&",title='"&ttitle&"',board='"&tboard&"',bgsound='"&tbgsound&"',account='"&taccount&"',pass='"&tpass&"'"
	
	con.execute sql
	response.redirect "guanli.asp"
%>