delquestion.asp

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

<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strID ,strUrl ,strTeachingSujectID ,strSujectID , strTeacherID
	strID = Request.QueryString("ID")
	strTeachingSujectID = Request.QueryString("TeachingSujectID")
	strTeacherID = Request.QueryString("TeacherID")
	strSujectID = Request.QueryString("SujectID")
	If strTeachingSujectID = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	If strTeacherID = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	If strSujectID = "" Then 
		Response.Write("参数错误!")
		Response.End
	End If
	
	strUrl = "Index_Question.asp?ID=" & strID & "&TeachingSujectID="& strTeachingSujectID & "&SujectID="& strSujectID & "&TeacherID="& strTeacherID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	If Session("UserType") <> "教师" Then
		Response.Write("您没有权限删除此信息！")
		Response.End
	End If
	
	Dim rs ,strSql
	Set rs = Server.CreateObject("ADODB.Recordset")
	strSql = "SELECT * FROM Teacher WHERE ID IN (SELECT TeacherID FROM TeachingSuject WHERE ID = "& strTeachingSujectID &")"
	rs.open strSql,conn,1,1
	If Not rs.EOF Then
		If rs("Name").value <> Session("UserName") Then
			Response.Write("对不起，您没有进行次操作的权限！")
			Response.End
		End If 
	End If
	rs.Close
	strSql = "DELETE FROM Question WHERE ID = "& strID
	Dim rs1 
	Set rs1 = Server.CreateObject("ADODB.RecordSet")
	rs1.open strSql,conn,3,1
	Response.Redirect(strUrl)
	rs.Close
	Set rs = NoThing
	Set rs1 = Niothing
	
	
%>