dele.asp

来自「功能完备的留言板 公告管理 用户管理 留言管理 分页 功能的实现 Access数」· ASP 代码 · 共 46 行

<!--#include file="chkmanage.asp"-->
<%  if request("action")="admin" then
    dim guestdate
    guestdate=request("time")
    
    Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

    
    set rs=server.createobject("adodb.recordset")
    sql="select * from [guest] where guestdate='"&GuestDate&"'"
   	rs.open sql,conn,1,3
   	rs.Delete
   	rs.Close
    set rs=nothing
    conn.close
    set conn=nothing
    response.redirect "admin.asp" 
    else
    response.redirect "admin.asp"
    end if
 %>