delsuject.asp
来自「网络教学管理系统」· ASP 代码 · 共 21 行
ASP
21 行
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
Dim strID ,strUrl
strID = Request.QueryString("ID")
strUrl = "index_Suject.asp?ID=" & strID
If strID &"" = "" Then
Response.Write("参数错误!")
Response.End
End If
Dim rs ,strSql
strSql = "DELETE FROM Suject WHERE ID = " &strID &" DELETE FROM TeachingSuject WHERE SujectID = " &strID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,3,1
Response.Redirect(strUrl)
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?