<% response.buffer=true %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除消息</title></head>
<body>
<%
id=request("id")
id=split(id,",")
page=clng(request("page"))
Set conn = Server.CreateObject("ADODB.connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "webuser.mdb" )
conn.Open Provider & DBPath
for i=0 to ubound(id)
sql="delete from talks where id="&id(i)
conn.execute(sql)
next
conn.close
set conn=nothing
response.redirect"history.asp?page="&page
%>
</body>
</html>
|