日期:2013-06-23  浏览次数:20819 次

<% 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>