del.asp

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

<%
	dim id
	id = request("tid")

	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 = "delete from msg where id="&id
	con.execute sql

	response.redirect "admin.asp"
%>