?? delbbs.asp
字號:
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
Dim strID ,strUrl ,strParentID
strID = Request.QueryString("ID")
strParentID = Request.QueryString("ParentID")
If strParentID = "NULL" Then
strUrl = "Index_BBS.asp"
ElseIf strParentID <> "" Then
strUrl = "INdex_BBSContent.asp?ID="&strParentID
End If
If strID = "" Then
Response.Write("參數錯誤!")
Response.End
End If
If Session("UserType") = "管理員" Or Session("UserType") = "教師" Then
Dim rs ,strSql
strSql = "DELETE FROM BBS WHERE ID = "& strID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,3,1
Response.Redirect(strUrl)
Else
Response.Write("對不起,您沒有進行此操作的權限!")
Response.End
End If
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -