inc_jump_to.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!-- JUMP TO -->

    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    <select name="SelectMenu" size="1" onchange="jumpTo(this)">
<!-- <select name="SelectMenu" size="1" onchange="jumpTo(document.Stuff.SelectMenu)"> -->
      <option value="./">跳转论坛至...</option>
<%
	'## Get all Forum Categories From DB
	strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_NAME "
	strSql = strSql & " FROM " & strTablePrefix & "CATEGORY"
	strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_NAME"
	
	set rsCat = my_conn.Execute (strSql)

	do until rsCat.eof '## Grab the Categories.

		'##  Build SQL to get forums via category
		'## Forum_SQL
		strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_TYPE, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_URL, " & strTablePrefix & "FORUM.CAT_ID "
		strSql = strSql & " FROM " & strTablePrefix & "FORUM "
		strSql = strSql & " WHERE " & strTablePrefix & "FORUM.CAT_ID = " & rsCat("CAT_ID")
		strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.F_SUBJECT ASC;"

		set rsForum =  my_Conn.Execute (StrSql)

		if rsForum.eof or rsForum.bof then
			'nothing
		else
			iNewCat = rsForum("CAT_ID")
			iOldCat = 0
			do until rsForum.Eof
				if ChkForumAccess(rsForum("FORUM_ID")) then
					if iNewCat <> iOldCat Then
						Response.Write "      <option value='default.asp'>╋ " & rsCat("CAT_NAME") & "</option>" & vbCrLf
						iOldCat = iNewCat
					end if
					if rsForum("F_TYPE") = 0 then
						Response.Write "      <option value='forum.asp?FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID") & "'"
					else
						if rsForum("F_TYPE") = 1 then
							Response.Write "<option value='" & rsForum("F_URL") & "'"
						end if
					end if
					if rsForum("FORUM_ID") = Request.Querystring("Forum_ID") then
						Response.Write(" SELECTED")
					end if
					Response.Write ">&nbsp;&nbsp;├" & rsForum("F_SUBJECT")& "</option>" & vbCrLf
				end if
				rsForum.MoveNext
			loop
		end if
		rsCat.MoveNext
	loop
%>
      <option value="">&nbsp;--------------------
      <option value="<% =strHomeURL %>">┠ 返回主页
      <option value="active.asp">┠ 最新文章
      <option value="faq.asp">┠ 帮助说明
      <option value="members.asp">┠ 会员列表
      <option value="search.asp">┠ 论坛搜索
    </select>
</font>
<!-- END JUMP TO -->