delbbs.asp

来自「教学平台」· ASP 代码 · 共 29 行

<!--#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


%>