modi.asp

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

<%
	dim id,content
	id = request("txtId")
	content = request("txtcontent")
	
	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 msg set recontent='"&content&"' where id="&id
	con.execute sql

	response.redirect "admin.asp"
%>