delete3.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 12 行

<%if session("loc")=0 then response.redirect "login.htm"
set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../erdfg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)};"
for each a in request("de")
com.execute "delete * from msg where id="& a
next
com.close
%>
<p align="center"><font size="6">&nbsp;</font></p>
<p align="center"><font size="6" color="#FF0000"><b>信息已成功删除</b></font></p>
<p align="center"><a href="index3.asp">&lt;&lt;&lt;返回</a></p>