delforum.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 35 行

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Server.ScriptTimeout =  1000

Dim intForumID
Dim lngPollID

intForumID = CInt(Request.QueryString("fid"))
strSQL = "SELECT timestopic.* FROM timestopic WHERE timestopic.bbsid ="  & intForumID & ";"
rsConn.Open strSQL, adoCon
Do While NOT rsConn.EOF
	strSQL = "DELETE FROM timespost WHERE timespost.topicid ="  & CLng(rsConn("topicid")) & ";"
	adoCon.Execute(strSQL)
	lngPollID = CLng(rsConn("pollid"))
	If lngPollID > 0 Then
		strSQL = "DELETE FROM timeschoice WHERE timeschoice.pollid =" & lngPollID & ";"
		adoCon.Execute(strSQL)
		strSQL = "DELETE FROM timespoll WHERE timespoll.pollid =" & lngPollID & ";"
		adoCon.Execute(strSQL)
	End If
	rsConn.MoveNext
Loop
strSQL = "DELETE FROM timesaccess WHERE timesaccess.bbsid ="  & intForumID & ";"
adoCon.Execute(strSQL)
strSQL = "DELETE FROM timestopic WHERE timestopic.bbsid ="  & intForumID & ";"
adoCon.Execute(strSQL)
strSQL = "DELETE FROM timesbbs WHERE timesbbs.bbsid ="  & intForumID & ";"
adoCon.Execute(strSQL)
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect "disforum.asp"
%>