网络寻呼机数据库版删除选中的消息deletemessage.asp

1 response.buffer=true

1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<title>删除消息</title></head>
5<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

1</body>
2</html>