delelist.asp

来自「中华软件联盟--留言系统1.0 演示地址：http://bbs.on-line.」· ASP 代码 · 共 27 行

<!--#include file="../dbconnect/guestbook.admin.inc.asp" -->
<%
Function checkPermission()
	If Session("admin")<>"" then 
		checkPermission=TRUE
	Else
		checkPermission=FALSE
	End if
End Function

tmp=checkPermission()
If tmp=TRUE then
   dim delesql
   dim useridtxt
   dim pagetxt
   useridtxt = Request("deleid")
   pagetxt = Request("page")
   delesql="DELETE FROM Book WHERE id="&useridtxt
   conn.Execute delesql
   set conn=nothing
   response.redirect "manage.asp?page="&pagetxt

Else
	response.redirect "default.asp"
End if
%>