forumjump.asp

电子商务网络购物系统

<span class="text">论坛跳转</span>
	 <select onChange="ForumJump(this)" name="SelectJumpForum">
           <option value="" selected>-- 选择论坛 --</option>
<%

Dim rsBBSJumpForum
Dim strJumpCatName
Dim intJumpCatID
Dim strJumpForumName
Dim lngJumpfid	
Dim intReadPermission

Dim blnTempRead
Dim blnTempPost
Dim blnTempReply
Dim blnTempEdit
Dim blnTempDelete
Dim blnTempPriority
Dim blnTempPollCreate
Dim blnTempVote
Dim blnTempAttachments
Dim blnTempImageUpload 

blnTempRead = blnRead
blnTempPost = blnPost
blnTempReply = blnReply
blnTempEdit = blnEdit
blnTempDelete = blnDelete
blnTempPriority = blnPriority
blnTempPollCreate = blnPollCreate
blnTempVote = blnVote
blnTempAttachments = blnAttachments
blnTempImageUpload = blnImageUpload

Set rsBBSJumpForum = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT timesboard.boardname, timesboard.boardid FROM timesboard ORDER BY timesboard.boardnum ASC;"
rsConn.Open strSQL, adoCon
Do while NOT rsConn.EOF 
	strJumpCatName = rsConn("boardname")
	intJumpCatID = Cint(rsConn("boardid"))	
	Response.Write vbCrLf & "		<option value="""">" & strJumpCatName & "</option>"
	strSQL = "SELECT timesbbs.* FROM timesbbs WHERE timesbbs.boardid = " & intJumpCatID & " ORDER BY timesbbs.bbsnum ASC;"
	rsBBSJumpForum.Open strSQL, adoCon
	Do while NOT rsBBSJumpForum.EOF 
		strJumpForumName = rsBBSJumpForum("bbsname")
		lngJumpfid = CLng(rsBBSJumpForum("bbsid"))
		intReadPermission = CInt(rsBBSJumpForum("Read"))
		Call forumPermisisons(lngJumpfid, intGroupID, intReadPermission, 0, 0, 0, 0, 0, 0, 0, 0, 0)
		If blnRead OR blnAdmin OR blnModerator Then
			Response.Write vbCrLf & "		<option value=""topic.asp?fid=" & lngJumpfid & """>&nbsp;&nbsp;-&nbsp;" & strJumpForumName & "</option>"		
		End If
		rsBBSJumpForum.MoveNext
	Loop
	rsBBSJumpForum.Close
	rsConn.MoveNext
Loop
rsConn.Close
Set rsBBSJumpForum = Nothing
blnRead = blnTempRead
blnPost = blnTempPost
blnReply = blnTempReply
blnEdit = blnTempEdit
blnDelete = blnTempDelete
blnPriority = blnTempPriority
blnPollCreate = blnTempPollCreate
blnVote = blnTempVote
blnAttachments = blnTempAttachments
blnImageUpload = blnTempImageUpload

%>	</select>