deletetopic.asp

来自「实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用」· ASP 代码 · 共 27 行

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%
iDeleteID = Request.Form("topics")


If IsLoggedOn Then
	Call DoPageHeader
	Call OpenDBConn
	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
			sSQL = ""
			sSQL = sSQL & "DELETE FROM Categories WHERE ID = " & SQLVal(iDeleteID)
				GobjConnect.Execute(sSQL)
			adsSQL = ""
			adsSQL = adsSQL & "DELETE FROM Auctions WHERE CategoryID = " & SQLVal(iDeleteID)
				GobjConnect.Execute(adsSQL)
					Response.Write("<CENTER><BR>目录已经成功删除了<BR><BR>")
	Call DoPageFooter
	Call CloseDBConn
Else
	Response.Redirect "adminlogin.asp"
End If


%>