active.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%
Dim strFolderImg
Randomize
strFolderImg = (Int(5 * Rnd))		' ### 产生随机数

'## Do Cookie stuffs with reload
nRefreshTime = Request.Cookies(strCookieURL & "Reload")

if Request.form("cookie") = "1" then
    if strSetCookieToForum = 1 then	
      Response.Cookies(strCookieURL & "Reload").Path = strCookieURL
	end if
	Response.Cookies(strCookieURL & "Reload") = Request.Form("RefreshTime")
	Response.Cookies(strCookieURL & "Reload").expires = strForumTimeAdjust + 365
	nRefreshTime = Request.Form("RefreshTime")
end if

if nRefreshTime = "" then
	nRefreshTime = 0
end if

'## Do Cookie stuffs with show last date
if Request.form("cookie") = "2" then
	MostRecent = Request.Form("ShowSinceDateTime")
end if
if MostRecent = "" then mostRecent = "10"

%>
<script language="JavaScript">
<!--
function autoReload()
{
	document.ReloadFrm.submit()
}
//-->
</script>
<script language="JavaScript">
<!--
function SetLastDate()
{
	document.LastDateFrm.submit()
}
//-->
</script>
<script language="JavaScript">
<!--
function jumpTo(s) {if (s.selectedIndex != 0) location.href = s.options[s.selectedIndex].value;return 1;}
// -->
</script>
<%
if IsEmpty(Session(strCookieURL & "last_here_date")) then
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if
if lastDate = "" then
	lastDate = Session(strCookieURL & "last_here_date")
end if
if Request.Form("AllRead") = "Y" then
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
	lastDate = Session(strCookieURL & "last_here_date")
	MostRecent = ""
end if

'## Forum_SQL - Get all active topics from last visit
strSql = "SELECT top " & MostRecent & " " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, "
strSql = strSql & strTablePrefix & "TOPICS.T_VIEW_COUNT, " & strTablePrefix & "TOPICS.FORUM_ID, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.CAT_ID, "
strSql = strSql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_MAIL, "
strSql = strSql & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_REPLIES, "
strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.T_LAST_POST, " & strMemberTablePrefix & "MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME "
strSql = strSql & "FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "FORUM, "
strSql = strSql & strTablePrefix & "TOPICS, " & strMemberTablePrefix & "MEMBERS AS " & strMemberTablePrefix & "MEMBERS_1 "
strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = " & strMemberTablePrefix & "MEMBERS_1.MEMBER_ID  "
strSql = strSql & "AND " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID "
strSql = strSql & "AND " & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID "
strSql = strSql & "AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR "
'strSql = strSql & "AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.T_LAST_POST DESC;"


set rs = my_Conn.Execute (strSql)

%>
<% '################################## %>
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <form name="LastDateFrm" action="<% Response.Write Request.ServerVariables("URL") %>" method="post">
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0" WIDTH="15" HEIGHT="15"><img src="<%=strImageURL %>icon_folder_open_topic.gif" border="0" WIDTH="15" HEIGHT="15">&nbsp;最多显示最近
	<select name="ShowSinceDateTime" size="1" onchange="SetLastDate();">
	<option value="5" <% if MostRecent = "5" then Response.Write(" SELECTED")%>>&nbsp;5&nbsp;</option>
	<option value="10" <% if MostRecent = "10" or MostRecent = "" then Response.Write(" SELECTED")%>>&nbsp;10</option>
	<option value="25" <% if MostRecent = "25" then Response.Write(" SELECTED")%>>&nbsp;25</option>
	<option value="50" <% if MostRecent = "50" then Response.Write(" SELECTED")%>>&nbsp;50</option>
	</select> 主题
	</FONT></TD>
    <input type="hidden" name="Cookie" value="2">
    </form>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% '################################## %>
<BR>
<table border="0" width="<% Response.Write strTableWidth  %>" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
    <table border="0" width="100%" cellspacing="1" cellpadding="4">
      <tr>
        <td width=26 align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">状态</font></b></td>
        <td width=* align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">主&nbsp;&nbsp;题</font></b></td>
        <td width=70 align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">作者</font></b></td>
        <td width=28 align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">回复</font></b></td>
        <td width=28 align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">点击</font></b></td>
        <td width=138 align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最后更新 | 回复人</font></b></td>
<% if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %>
        <td align="center" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">管理操作</font></b></td>
<% end if %>
      </tr>
<%If rs.EOF or rs.BOF then %>
      <tr>
        <td colspan="6" bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>没有找到任何有新文章的主题！</b></font></td>
<% if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %>
        <td align="center" bgcolor="<% =strForumCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;</font></b></td>
<% end if %>
      </tr>
<%else
	currForum = 0
	fDisplayCount = 0

	do until rs.EOF

'## Forum_SQL - Find out if the Category is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & rs("CAT_ID")

set rsCStatus = my_Conn.Execute (StrSql)

'## Forum_SQL - Find out if the Topic is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "FORUM.F_STATUS "
strSql = strSql & " FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & rs("FORUM_ID")

set rsFStatus = my_Conn.Execute (StrSql)
		if ChkForumAccess(rs("FORUM_ID")) then
			if (mLev = 4) or ((chkForumModerator(rs("FORUM_ID"), Session(strCookieURL & "username"))= "1") and mLev = 3) or ((chkForumModerator(rs("FORUM_ID"), Request.Cookies(strCookieURL & "User")("Name")) = "1") and mlev = 3) or (lcase(strNoCookies) = "1") then
 				AdminAllowed = 1
 			else
 				AdminAllowed = 0
 			end if
			fDisplayCount = fDisplayCount + 1
			if currForum <> rs("FORUM_ID") then %>
				<tr>
					<td height="20" colspan="6" bgcolor="<% =strCategoryCellColor %>" valign="center"><a href="<% Response.Write("FORUM.asp?FORUM_ID=" & rs("FORUM_ID") & "&CAT_ID=" & rs("CAT_ID")) %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><b><% =ChkString(rs("F_SUBJECT"),"display") %></b></font></a><% call ForumAdminOptions() %></td>
<%					if (AdminAllowed = 1) or (lcase(strNoCookies) = "1") then %>
						<td align="center" bgcolor="<% =strCategoryCellColor %>" nowrap valign="center"></td>
					<% elseif (mLev = 3) then %>
						<td align="center" bgcolor="<% =strCategoryCellColor %>" nowrap valign="center">　</td>
<%					end if %>
				</tr>
<%			end if %>
			<tr>
			<td bgcolor="<% =strAltForumCellColor %>" align="center" valign="center">
<%			if rsCStatus("CAT_STATUS") <> 0 and rsFstatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then