active.asp

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

				if lcase(strHotTopic) = "1" then
					if rs("T_REPLIES") >= intHotTopicNum Then %>
						<a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>"><img src="<%=strImageURL %>icon_folder_hot_new_<% =strFolderImg %>.gif" border="0" hspace="0" alt="热点主题"></a>
<%					else%>
						<a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>"><img src="<%=strImageURL %>icon_folder_new_<% =strFolderImg %>.gif" alt="新主题" border="0"></a>
<%					end if
				end if
			else %>
			<a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<%=rs("CAT_ID") %>"><img src="<%=strImageURL %>icon_folder_locked_new_<% =strFolderImg %>.gif" <% if rsCStatus("CAT_STATUS") = 0 then
				Response.Write ("alt='分类已被锁定'")
			elseif rsFStatus("F_STATUS") = 0 then
				Response.Write ("alt='论坛已被锁定'")
			else
				Response.Write ("alt='主题已被锁定'")
			end if
			Response.Write (" border=0></a>")
			end if %>
			</td>
			<td bgcolor="<% =strForumCellColor %>" valign="center" onmouseover="javascript:this.bgColor='<% Response.Write strAltForumCellColor %>';this.style.cursor='default';" onmouseout="javascript:this.bgColor='<% Response.Write strForumCellColor %>';"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %></a>&nbsp;</font><% if strShowPaging = "1" then TopicPaging() end if%></td>
			<td bgcolor="<% =strAltForumCellColor %>" valign="center" align="center">
<%
			strLastAuthor = ""
			if rs("T_LAST_POST_AUTHOR")<>"" then
				if strUseExtendedProfile then
					strLastAuthor = strLastAuthor & "<a href=""pop_profile.asp?mode=display&id="& rs("T_AUTHOR") & """>"
				else
					strLastAuthor = strLastAuthor & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rs("T_AUTHOR") & "')"">"
				end if
				strLastAuthor = strLastAuthor & ChkString(rs("M_NAME"),"display") & "</a>"
			end if
%>
			<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><% =strLastAuthor %></font></A></td>

			<td bgcolor="<% =strForumCellColor %>" valign="center" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><B><% =rs("T_REPLIES") %></B></font></td>
			<td bgcolor="<% =strForumCellColor %>" valign="center" align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strForumFontColor %>"><B><% =rs("T_VIEW_COUNT") %></B></font></td>
<%
			if IsNull(rs("T_LAST_POST_AUTHOR")) then
				strLastAuthor = ""
			else
				strLastAuthor = "<br>发言："
				if strUseExtendedProfile then
					strLastAuthor = strLastAuthor & "<a href=""pop_profile.asp?mode=display&id="& rs("T_LAST_POST_AUTHOR") & """>"
				else
					strLastAuthor = strLastAuthor & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rs("T_LAST_POST_AUTHOR") & "')"">"
				end if
				strLastAuthor = strLastAuthor & rs("LAST_POST_AUTHOR_NAME") & "</a>"
			end if
%>
			<td bgcolor="<% =strAltForumCellColor %>" valign="center" align="center" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strForumFontColor %>"><b><% =ChkDate(rs("T_LAST_POST")) %></b>&nbsp;<% =ChkTime(rs("T_LAST_POST")) %><%=strLastAuthor%></font></td>
<%			if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
				<td bgcolor="<% =strForumCellColor %>" valign="center" align="center" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%				if rsCStatus("CAT_STATUS") = 0 then %>
					<a href="JavaScript:openWindow('pop_open.asp?mode=Category&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_unlock.gif" alt="解除该分类的锁定状态" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
<%				else
					if rsFStatus("F_STATUS") = 0 then %>
						<a href="JavaScript:openWindow('pop_open.asp?mode=Forum&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_unlock.gif" alt="解除该论坛的锁定状态" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
<%					else
						if rs("T_STATUS") <> 0 then %>
							<a href="JavaScript:openWindow('pop_lock.asp?mode=Topic&amp;TOPIC_ID=<% =rs("TOPIC_ID")%>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_lock.gif" alt="锁定主题" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
<%						else %>
							<a href="JavaScript:openWindow('pop_open.asp?mode=Topic&amp;TOPIC_ID=<% =rs("TOPIC_ID")%>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_unlock.gif" alt="解除该主题的锁定状态" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
<%						end if
					end if
				end if
				if (AdminAllowed = 1) or (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0) then %>
					<a href="post.asp?method=EditTopic&amp;TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>&amp;auth=<% =rs("T_AUTHOR") %>"><img src="<%=strImageURL %>icon_pencil.gif" alt="编辑主题" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
<%				end if %>
				<a href="JavaScript:openWindow('pop_delete.asp?mode=Topic&amp;TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_trashcan.gif" alt="删除主题" border="0" hspace="0" WIDTH="12" HEIGHT="12"></a>
				<a href="post.asp?method=Reply&amp;TOPIC_ID=<% =rs("TOPIC_ID") %>&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>"><img src="<%=strImageURL %>icon_reply_topic.gif" alt="发表回复" height="15" width="15" border="0"></a>
				</font></b>
				</td>
<%			elseif (mLev = 3) then%>
				<td bgcolor="<% =strForumCellColor %>" valign="center" align="center" nowrap>　</td>
<%			end if %>
			</tr>	
<%		end if	
		currForum = rs("FORUM_ID") %>
<%		rs.MoveNext
	loop
	if fDisplayCount = 0 then %>
		  <tr>
		 <td colspan="6" bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>No Active Topics Found</b></font></td>
<%		 if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
			<td align="center" bgcolor="<% =strForumCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;</font></b></td>
<%		end if
	end if
 end if %>
    </table>
    </td>
  </tr>
</table>
<table width="<% Response.Write strTableWidth  %>" border="0" align="center">
  <tr>
    <td>
    &nbsp;
    </td>
    <td align="right">
    <!--#INCLUDE FILE="inc_jump_to.asp" -->
    </td>
  </tr>
</table>
<!--#INCLUDE FILE="inc_adv.asp" -->
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
sub ForumAdminOptions()

	if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then
		if rsCStatus("CAT_STATUS") = 0 then
			if mlev = 4 then
				Response.Write "          ［<a href=""JavaScript:openWindow('pop_open.asp?mode=Category&CAT_ID=" & RS("CAT_ID") & "')"">解除锁定</a>" & vbcrlf
			else
				Response.Write "          ［<a href=""JavaScript:openWindow('pop_lock.asp?mode=Category&CAT_ID=" & rs("CAT_ID") & "')"">锁定分类</a>" & vbcrlf
			end if
		else
			if rsFStatus("F_STATUS") <> 0 then
				Response.Write "          ［<a href=""JavaScript:openWindow('pop_lock.asp?mode=Forum&FORUM_ID=" & RS("FORUM_ID") & "&CAT_ID=" & RS("CAT_ID") & "')"">锁定论坛</a>" & vbcrlf
			else
				Response.Write "          ［<a href=""JavaScript:openWindow('pop_open.asp?mode=Forum&FORUM_ID=" & RS("FORUM_ID") & "&CAT_ID=" & RS("CAT_ID") & "')"">解除锁定</a>" & vbcrlf
			end if
		end if
		if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0) or (AdminAllowed = 1) then
			Response.Write "          | <a href=""post.asp?method=EditForum&FORUM_ID=" & rs("FORUM_ID") & "&CAT_ID=" & RS("CAT_ID") & "&type=0"">修改论坛</a>" & vbcrlf
		end if

		Response.Write "          | <a href=""JavaScript:openWindow('pop_delete.asp?mode=Forum&FORUM_ID=" & RS("FORUM_ID") & "&CAT_ID=" & RS("CAT_ID") & "')"">删除分类</a>" & vbcrlf
		Response.Write "          | <a href=""post.asp?method=Topic&FORUM_ID=" & rs("FORUM_ID") & "&CAT_ID=" & RS("CAT_ID") & """>发表主题</a>］" & vbcrlf
	end if

end sub

sub ForumAdminOptions2()

	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&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_folder_unlocked.gif" alt="解除该分类的锁定状态" height="15" width="15" border="0"></a>
<%			else %>
    <img src="<%=strImageURL %>icon_folder_locked.gif" alt="锁定分类" height="15" width="15" border="0">
<%			end if
		else
			if rsFStatus("F_STATUS") <> 0 then %>
    <a href="JavaScript:openWindow('pop_lock.asp?mode=Forum&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_folder_locked.gif" alt="锁定论坛" height="15" width="15" border="0"></a>
<%			else %>
    <a href="JavaScript:openWindow('pop_open.asp?mode=Forum&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_folder_unlocked.gif" alt="解除该论坛的锁定状态" height="15" width="15" border="0"></a>
<%			end if
		end if
		if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0) or (AdminAllowed = 1) then %>
          <a href="post.asp?method=EditForum&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>&amp;type=0"><img src="<%=strImageURL %>icon_folder_pencil.gif" alt="修改该论坛属性" border="0" hspace="0" WIDTH="15" HEIGHT="15"></a>
<%		end if %>
    <a href="JavaScript:openWindow('pop_delete.asp?mode=Forum&amp;FORUM_ID=<% =rs("FORUM_ID") %>&amp;CAT_ID=<% =rs("CAT_ID") %>')"><img src="<%=strImageURL %>icon_folder_delete.gif" alt="删除该论坛" height="15" width="15" border="0"></a>
    <a href="post.asp?method=Topic&amp;FORUM_ID=<% =rs("FORUM_ID")%>&amp;CAT_ID=<% =rs("CAT_ID")%>"><img src="<%=strImageURL %>icon_folder_new_topic.gif" alt="在该论坛发表新主题" height="15" width="15" border="0"></a>
<%	end if

end sub

sub TopicPaging()
    mxpages = (rs("T_REPLIES") / strPageSize)
    if mxPages <> cint(mxPages) then
        mxpages = int(mxpages) + 1
    end if
    if mxpages > 1 then
		Response.Write("<table border=0 cellspacing=0 cellpadding=0><tr><td valign=""center""><font face=" & strDefaultFontFace & " size=" & strFooterFontSize & "><img src="""& strImageURL &"icon_posticon.gif"" border=""0""></font></td>")
		for counter = 1 to mxpages
			ref = "<td align=right valign=""center"" bgcolor=" & strForumCellColor  & "><font face=" & strDefaultFontFace & " size=" & strFooterFontSize & ">"
			if ((mxpages > 9) and (mxpages > strPageNumberSize)) or ((counter > 9) and (mxpages < strPageNumberSize)) then
				ref = ref & "&nbsp;"
			end if
			ref = ref & widenum(counter) & "<a href='topic.asp?"
            		ref = ref & "TOPIC_ID=" & rs("TOPIC_ID")
		        ref = ref & "&FORUM_ID=" & rs("FORUM_ID")
		        ref = ref & "&CAT_ID=" & rs("CAT_ID")
		        'ref = ref & "&Topic_Title=" & ChkString(left(rs("T_SUBJECT"), 50),"urlpath")
		        'ref = ref & "&Forum_Title=" & ChkString(rs("F_SUBJECT"),"urlpath")
			ref = ref & "&whichpage=" & counter
			ref = ref & "'>" & counter & "</a></font></td>"
			Response.Write ref
			if counter mod strPageNumberSize = 0 then
				Response.Write("</tr><tr><td>&nbsp;</td>")
			end if
		next
        Response.Write("</tr></table>")
	end if
end sub
%>