⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 deleteobject_second.asp

📁 一个网上的考试系统
💻 ASP
字号:
🔍 
<!--#include file ="../include.asp"-->
<% 
	StartPage "删除科目确认页",2
%>
<!--
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<link rel="stylesheet" type="text/css" href="../default.css">
<BODY  leftmargin=150 rightmargin=150 topmargin=30>
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<%
	'Response.Write (Request.Form ("Subject"))
	Subject = Request.Form ("Subject")
	ThemeTable = Subject + "题目表"
%>
<table  align=center border="1" cellpadding="0" cellspacing="0" style="BORDER-COLLAPSE: collapse" bordercolor="lightskyblue" width="80%">
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
	
	<tr>
		<td  align=center>
			<table  border=0  width=90%>
				<tr>
					<td  align=center  colspan=2><font  size=7  color=LightSkyBlue >管理员删除科目页</font></td>
				</tr>
				
				<tr>
					<td  align=left><font  color=LightSkyBlue  size=5>删除流程</font></td>
					<td></td>
				</tr>
				
				<tr>
					<td  align=center><font  color=LightSkyBlue  size=5>选择科目</font></td>
					<td align=center>
					<%
						dim Theme(10)
						int Count
						Count = -1
						set conn = Server.CreateObject ("adodb.connection")
						conn.Open "NetExamine","sa",""
						set userconn = Server.CreateObject ("adodb.recordset")	
						sqlstr = "select * from "+ThemeTable
						userconn.Open sqlstr,conn

						while not userconn.EOF 
							if Count = -1 then
								Count = 0 
							end if
							Theme(Count) = userconn.Fields ("题目名")
							Count = Count + 1
							userconn.MoveNext()
						wend
						userconn.Close ()
						
						Count = Count - 1
						
						if Count >= 0 then
							for i = 0 to Count
								Table = Subject + Rtrim(Theme(i)) +"表"
								'Response.Write (Table)
								sqlstr ="drop table "+Table
								userconn.Open sqlstr,conn
							next
						end if
						
						sqlstr = "drop table "+ThemeTable
						userconn.Open sqlstr,conn
						
						sqlstr = "delete from 科目表 where 科目名 = '"+Subject+"'"
						userconn.Open sqlstr,conn
						conn.Close()
						Response.Write "<center><font size = 4 color=LightSkyBlue>您已经成功的删除了这个科目！请返回功能首页。</font></center><br>"
						Response.Write "<a href = AdminFunction.asp>返回</a>"
					%>
					</td>
				</tr>
				
				<tr>
					<td  align=center><font  color=LightSkyBlue  size=5>删除确认</font></td>
					<td></td>
				</tr>
				
				<tr>
					<td></td>
					<td  align=center>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	
	<tr>
		<td  height=20  bgcolor=LightSkyBlue></td>
	</tr>
</table>
<!--
<br>
<hr>
<center>
<font  size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</center>
</BODY>
</HTML>
-->
<% 
	EndPage
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -