delteachingsuject.asp

来自「网络教学管理系统」· ASP 代码 · 共 25 行

<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strUrl
	strID = Request.QueryString("ID")
	strUrl = "Index_TeachingSuject.asp?ID=" & strID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	If Session("UserType") <> "管理员" Then
		Response.Write("您没有权限删除此信息！")
		Response.End
	End If
	
	Dim rs ,strSql 
	strSql = "DELETE FROM TeachingSuject WHERE ID = "& strID &" DELETE FROM StudyMaterial WHERE TeachingSujectID = '"&strID&"'"&"  DELETE FROM question WHERE TeachingSujectID = '"&strID&"'"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Redirect(strUrl)
	
	
%>