topic.asp

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

	strSql = "UPDATE " & strTablePrefix & "TOPICS "
	strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_VIEW_COUNT = (" & strTablePrefix & "TOPICS.T_VIEW_COUNT + 1) "
	strSql = strSql & " WHERE (" & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") & ");"

	my_conn.Execute (strSql)

	set rs = nothing

End Sub

sub DisplayIP()
	usr = (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName))
	if (chkUser((STRdbntUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 4) then
		usr = 1
	end if
	if usr then
		if Request.QueryString("TOPIC_ID") <> "" then

			'## Forum_SQL
			strSql = "SELECT " & strTablePrefix & "TOPICS.T_IP, " & strTablePrefix & "TOPICS.T_SUBJECT "
			strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
			strSql = strSql & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID")

			rsIP = my_Conn.Execute(strSql)

			IP = rsIP("T_IP")
			Title = rsIP("T_Subject")
		else
			if Request.QueryString("REPLY_ID") <> "" then
				'## Forum_SQL
				strSql = "SELECT " & strTablePrefix & "REPLY.R_IP "
				strSql = strSql & " FROM " & strTablePrefix & "REPLY "
				strSql = strSql & " WHERE REPLY_ID = " & Request.QueryString("REPLY_ID")

				rsIP = my_Conn.Execute(strSql)

				IP = rsIP("R_IP")
			end if
		end if
		set rsIP = nothing
 %>
		<P align=center><b>查看会员IP地址：</b><br>
		<% Response.Write ip %></P>
<%	else %>
		<p align=center><b>只有版主和管理员才能执行此功能</B></p>
<%
	end If
end sub

sub PostingOptions()
 %>
    <font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">
<%
	If (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (STRdbntUserName = "") Then
	'######################## 读/回复 权限 ###########################
		if cInt(strPrivateForums) < 11 or AdminAllowed = 1 then
			if ((rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1)) then %>
				<a href="post.asp?method=Topic&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><img src="<% Response.Write strImageURL %>newthread.gif" alt="发表新主题" border=0></a>
<%			else
				If (AdminAllowed = 1) Then %>
					<a href="post.asp?method=Topic&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><img src="<% Response.Write strImageURL %>newthread.gif" alt="发表新主题" border=0></a>
<%				End If
			End If
		End If
	'######################## 读/回复 权限 ########################### %>
<%		If (cint(strPrivateForums) <> 10 and cint(strPrivateForums) <> 12) or AdminAllowed = 1 then
			If (rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1) and (rsTStatus("T_STATUS") = 1) Then %>
				<a href="post.asp?method=Reply&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>newreply.gif" border=0 alt="回复主题"></a>
<%			Else
				If (AdminAllowed = 1)  Then %>
					<a href="post.asp?method=Reply&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>newreply.gif" border=0 alt="回复主题"></a>
<%				End If
			end if
		end if %>
<%	end if %>
    </font>
	<%'############### READ/WRITE ACCESS ###########################%>
	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><b>
<%
	If AdminAllowed <> 1 Then
		SELECT CASE cInt(strPrivateForums)
			CASE 10
'				Response.Write "只有管理者和版主可以在本论坛回复主题"
			CASE 11
'				Response.Write "只有管理者和版主可以在本论坛发表新主题"
			CASE 12
'				Response.Write "这是只读论坛，无法发表"
			CASE else
		END SELECT
	end if
%>
	</b></font>
	<%'############### READ/WRITE ACCESS ###########################%>
<%
end sub

sub AdminOptions()
%>
	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">
<%	if STRdbntUserName <> "" then %>
		<a href="bookmark.asp?mode=add&id=<% Response.Write Request.querystring("Topic_ID")%>"><img border="0" src="<% Response.Write strImageURL %>icon_fav.gif" border=0 alt="将本主题添加进收藏夹&关注本贴"></A>
<%	end if %>
	<a href="print.asp?<% Response.Write Request.QueryString%>"><img border="0" src="<% Response.Write strImageURL %>printpage.gif" border=0 alt="把本主题输出到打印机"></a>
	<a href=#><span style="CURSOR: hand" onClick="window.external.AddFavorite('<% = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("Path_Info") & "?" & Request.QueryString %>', ' <% =strForumTitle %> - <% =strTopicTitle %>')"><img border="0" src="<% Response.Write strImageURL %>fav_add1.gif" border=0 alt="把本贴加入 IE 收藏夹"></span></A>
<%
	if (mlev = 4 or mlev = 3 or mlev = 2 or mlev = 1) or (lcase(strNoCookies) = "1") or (STRdbntUserName = "") then
		if (lcase(strEmail) = "1") then
			if (mlev <> 0) or (mlev = 0 and strLogonForMail <> "1") then
				Response.Write "<a href=""JavaScript:openWindow('pop_send_to_friend.asp?url=" & strForumURL & "link.asp&TOPIC_ID=" & Request.QueryString("TOPIC_ID") & "')""><img border=0 src=""" & strImageURL & "icon_emailtofriend.gif"" border=0 alt=""将本主题寄给朋友""></a>&nbsp;"
			end if
		end if
	end if

if (AdminAllowed = 1) then
	if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then
		if (rsCStatus("CAT_STATUS") = 0) then
			if (mlev = 4) then %>
				<a href="JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>')"><img border="0" src="<% Response.Write strImageURL %>icon_folder_unlocked.gif" alt="解开分类锁定" border=0></a>
<%			else %>
				<img border="0" src="<% Response.Write strImageURL %>icon_folder_unlocked.gif" alt="分类已锁定" border=0>
<%			end if
		else
			if (rsFStatus("F_STATUS") = 0) then %>
				<a href="JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>')"><img border="0" src="<% Response.Write strImageURL %>icon_folder_unlocked.gif" alt="解开论坛锁定" border=0></a>
<%			else
				if (rsTStatus("T_STATUS") <> 0) then %>
					<a href="JavaScript:openWindow('pop_lock.asp?mode=Topic&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>')"><img border="0" src="<% Response.Write strImageURL %>icon_folder_locked.gif" alt="锁定主题" border=0></a>
<%				else %>
					<a href="JavaScript:openWindow('pop_open.asp?mode=Topic&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>')"><img border="0" src="<% Response.Write strImageURL %>icon_folder_unlocked.gif" alt="解开主题锁定" border=0></a>
<%				end if
			end if
		end if %>
<%		if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %>
			<a href="post.asp?method=EditTopic&REPLY_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>edit.gif" alt="编辑主题" border="0" hspace="0"></a>
<%		end if %>
		<a href="JavaScript:openWindow('pop_delete.asp?mode=Topic&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>')"><img border="0" src="<% Response.Write strImageURL %>icon_folder_delete.gif" alt="删除主题" border=0></a>
		<a href="post.asp?method=Topic&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>icon_folder_new_topic.gif" alt="发表新主题" border=0></a>
		<a href="post.asp?method=Reply&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>icon_reply_topic.gif" alt="回复主题" border=0></a>
<%	end if %>
    </font>
<%
End If
end sub

sub Paging()
	if maxpages > 1 then
		sScriptName = Request.ServerVariables("script_name")
		if Request.QueryString("whichpage") = "" then
			sPageNumber = 1
		else
			sPageNumber = Request.QueryString("whichpage")
		end if

		ref2 = "&FORUM_ID=" & Request.QueryString("FORUM_ID")
		ref2 = ref2 & "&TOPIC_ID=" & Request.QueryString("TOPIC_ID")
		ref2 = ref2 & "&CAT_ID=" & Request.QueryString("CAT_ID")
		'ref2 = ref2 & "&Topic_Title=" & ChkString(Request.QueryString("Topic_Title"),"urlpath")
		'ref2 = ref2 & "&Forum_Title=" & ChkString(Request.QueryString("FORUM_Title"),"urlpath")

		'####################################
		if sortorder = "1" then
			ref2 = ref2 & "&sort=" & sortorder
		else
			if sortorder = "2" then
				ref2 = ref2 & "&sort=" & sortorder
			end if
		end if
		'####################################

		ref = "<B>[&nbsp;"
		if myPage-10 > 0 then
			ref = ref & "<A HREF=""" & sScriptName
			ref = ref & "?whichpage=" & StartPageNum - 1
			ref = ref & ref2
			ref = ref & """>←</a>&nbsp;"
		end if

		For I = StartPageNum to EndPageNum
			if I <> myPage then
				ref = ref & "<A href=""" & sScriptName & "?whichpage=" & I
				ref = ref & ref2
				ref = ref & """>" & I & "</a>&nbsp;"
			else
				ref = ref & "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & " color=" & strInsistFontColor & ">" & I & "</FONT>&nbsp;"
			end if
		Next

		if EndPageNum < maxpages then
			ref = ref & "<A href=""" & sScriptName & "?whichpage=" & EndPageNum + 1
			ref = ref & ref2
			ref = ref & """>→</a>&nbsp;"
		end if
		ref = ref & "]</B>"
		str_Table = "<TABLE border=0>" & vbCrLf & "<TR>" & vbCrLf
		str_Table = str_Table & "<TD valign=""top""><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & "><b>主题共有 " & maxpages & " 页：</font></TD>" & vbCrLf
		str_Table = str_Table & "<TD valign=""top""><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">" & ref & "</font></TD>" & vbCrLf & "</TR>" & vbCrLf & "</TABLE>" & vbCrLf
	else
		str_Table = "<TABLE border=0>" & vbCrLf & "<TR>" & vbCrLf
		str_Table = str_Table & "<TD valign=""top""><font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & ">该主题只有一页</font></TD>" & vbCrLf & "</TR>" & vbCrLf & "</TABLE>" & vbCrLf
	end if
	Response.Write str_Table
	set str_Table = Nothing
end sub

Sub Topic_nav()
    set rsLastPost = Server.CreateObject("ADODB.Recordset")

    strSql = "SELECT T_LAST_POST FROM " & strTablePrefix & "TOPICS "
    strSql = strSql & "WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID")

    set rsLastPost = my_Conn.Execute (StrSql)

    T_LAST_POST = rsLastPost("T_LAST_POST")

    strSQL = "SELECT T_SUBJECT, TOPIC_ID "
    strSql = strSql & "FROM " & strTablePrefix & "TOPICS "
    strSql = strSql & "WHERE T_LAST_POST > '" & T_LAST_POST
    strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID")
    strSql = strSql & " ORDER BY T_LAST_POST;"

    set rsPrevTopic = my_conn.Execute (strSQL)

    strSQL = "SELECT T_SUBJECT, TOPIC_ID "
    strSql = strSql & "FROM " & strTablePrefix & "TOPICS "
    strSql = strSql & "WHERE T_LAST_POST < '" & T_LAST_POST
    strSql = strSql & "' AND FORUM_ID=" & Request.QueryString("Forum_ID")
    strSql = strSql & " ORDER BY T_LAST_POST DESC;"

    set rsNextTopic = my_conn.Execute (strSQL)

    if rsPrevTopic.EOF then
        prevTopic = "<IMG src=""" & strImageURL & "icon_blank.gif"" alt=""上一个主题"" border=""0"" align=""absmiddle"" hspace=""6"">"
    else
        prevTopic = "<a href=topic.asp?cat_id=" & request.queryString("CAT_ID") & _
                    "&FORUM_ID=" & Request.QueryString("FORUM_ID") & _
                    "&TOPIC_ID=" & rsPrevTopic("TOPIC_ID") & _
                    "><IMG src=""" & strImageURL & "nextthread.gif"" alt=""上一个主题"" border=""0"" align=""absmiddle"" hspace=""6""></a>"
    end if

    if rsNextTopic.EOF then
        NextTopic = "<IMG src=""" & strImageURL & "icon_blank.gif"" alt=""上一个主题"" border=""0"" align=""absmiddle"" hspace=""6"">"
    else
        NextTopic = "<a href=topic.asp?cat_id=" & request.queryString("CAT_ID") & _
                    "&FORUM_ID=" & Request.QueryString("FORUM_ID") & _
                    "&TOPIC_ID=" & rsNextTopic("TOPIC_ID") & _
                    "><IMG src=""" & strImageURL & "prethread.gif"" alt=""下一个主题"" border=""0"" align=""absmiddle"" hspace=""6""></a>"
    end if
    Response.Write (NextTopic)
    Response.Write ("<a href=""javascript:this.location.reload()""><IMG src=""" & strImageURL & "refresh.gif"" alt=""刷新"" border=0 align=""absmiddle"" hspace=""6""></a>")
    Response.Write (PrevTopic)

    rsLastPost.close
    rsPrevTopic.close
    rsNextTopic.close
    set rsLastPost = nothing
    set rsPrevTopic = nothing
    set rsNextTopic = nothing

end sub
%>