dele.asp

来自「一个不完整的硬件报价管理系统」· ASP 代码 · 共 20 行

<!--#include file="conn.asp"-->
<!--#include file="chkmanage.asp"-->
<%  if request("action")="admin" then
    dim guestdate
    guestdate=request("time")
    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 "manage.asp" 
    else
    response.redirect "manage.asp"
    end if
 %>