📄 default.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
		strSql = strSql & "LEFT JOIN " & strMemberTablePrefix & "MEMBERS ON "
		strSql = strSql & strTablePrefix & "FORUM.F_LAST_POST_AUTHOR = "
		strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
		strSql = strSql & " WHERE " & strTablePrefix & "FORUM.CAT_ID = " & rs("CAT_ID") & " "
		strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.FORUM_ORDER ASC"
		strSql = strSql &  ", " & strTablePrefix & "FORUM.F_SUBJECT ASC;"

		set rsForum =  my_Conn.Execute (strSql)
				
		chkDisplayHeader = true
				
		if rsForum.eof or rsForum.bof then
%>

      <TR>

        <TD bgcolor="<% Response.Write strCategoryCellColor %>" colspan="<% Response.Write sGetColspan(7, 6)%>">
<%		' This code will specify whether or not to show the forums under a category
		HideForumCat = "HideCat" & rs("Cat_ID")
		If Request.Cookies(HideForumCat) = "Y" then %>
<%			if (InStr(1, ScriptName, "default.asp", 1)) then %>
			        <a href="<% Response.Write ScriptName & "?" %><% Response.Write HideForumCat & "=N" %>"><img src="<% Response.Write strImageURL %>icon_1.gif" width="10" height="10" border="0"></a>
<%			else %>
				<a href="<% Response.Write ScriptName & "default.asp?" %><% Response.Write HideForumCat & "=N" %>"><img src=<% Response.Write strImageURL %>icon_1.gif" width="10" height="10" border="0"></a>
<%			end if %>
<%		Else %>
<%			if (InStr(1, ScriptName, "default.asp", 1)) then %>
				<a href="<% Response.Write ScriptName & "?" %><% Response.Write HideForumCat & "=Y" %>"><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"></a>
<%			else %>
				<a href="<% Response.Write ScriptName & "default.asp?" %><% Response.Write HideForumCat & "=Y" %>"><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"></a>
<%			end if %>
<%		end if %>
<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strCategoryFontColor %>" size"+1"><b><% Response.Write ChkString(rs("CAT_NAME"),"display") %></b></font>
<%		if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %>
		        <!--TD bgcolor="<% Response.Write strCategoryCellColor %>" align=center valign=top nowrap ---><b><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">
<%			call CategoryAdminOptions() %>
	</font></b></TD>
<%		end if %>
      </TR>
<%
			Response.Write "  <TR>" & vbCrLf
			Response.Write "    <TD bgcolor=""" & strForumCellColor & """ colspan=" & sGetColspan(7, 6)
			Response.Write "><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<b>没有任何论坛</b></font></TD>" & vbCrLf
			if (mlev = 4 or mlev = 3) then
'				Response.Write "    <TD bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """>&nbsp;</font></TD>" & vbCrLf
			end if
			Response.Write "  </TR>" & vbCrLf
		else
			blnHiddenForums = false
			
			do until rsForum.Eof
				newposts = 0
				if ChkDisplayForum(rsForum("FORUM_ID")) then
					if rsForum("F_TYPE") <> "1" then
						intPostCount  = intPostCount + rsForum("F_COUNT")
						intTopicCount = intTopicCount + rsForum("F_TOPICS")
						intForumCount = intForumCount + 1
						if rsForum("F_LAST_POST") > strLastPostDate then
							strLastPostDate = rsForum("F_LAST_POST")
							intLastPostForum_ID = rsForum("FORUM_ID")
						end if
					end if
					if chkDisplayHeader then
%>

      <TR>
        <TD bgcolor="<% Response.Write strCategoryCellColor %>" colspan="<% Response.Write sGetColspan(7, 6)%>">
<%		' This code will specify whether or not to show the forums under a category
		HideForumCat = "HideCat" & rs("Cat_ID")
		If Request.Cookies(HideForumCat) = "Y" then %>
<%			if (InStr(1, ScriptName, "default.asp", 1)) then %>
			        <a href="<% Response.Write ScriptName & "?" %><% Response.Write HideForumCat & "=N" %>">
					<% If newposts = 1 then %>
						<img src="<% Response.Write strImageURL %>icon_plus_new.gif" width="10" height="10" border="0"></a>
					<%
					Else  %>
						<img src="<% Response.Write strImageURL %>icon_1.gif" width="10" height="10" border="0"></a>
					<% End If %>
<%			else %>
				<a href="<% Response.Write ScriptName & "default.asp?" %><% Response.Write HideForumCat & "=N" %>">
					<% If newposts = 1 then %>
						<img src="<% Response.Write strImageURL %>icon_plus_new.gif" width="10" height="10" border="0"></a>
					<%
					Else  %>
						<img src="<% Response.Write strImageURL %>icon_1.gif" width="10" height="10" border="0"></a>
					<% End If %>
<%			end if %>
<%		Else %>
<%			if (InStr(1, ScriptName, "default.asp", 1)) then %>
				<a href="<% Response.Write ScriptName & "?" %><% Response.Write HideForumCat & "=Y" %>"><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"></a>
<%			else %>
				<a href="<% Response.Write ScriptName & "default.asp?" %><% Response.Write HideForumCat & "=Y" %>"><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"></a>
<%			end if %>
<%		end if %>
<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strCategoryFontColor %>" size"+1"><b><% Response.Write ChkString(rs("CAT_NAME"),"display") %></b></font>
<%						if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then
							Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
							call CategoryAdminOptions()
							Response.Write "</font></b></TD>" & vbcrlf
						end if
						Response.Write "</TR>" & vbcrlf
						chkDisplayHeader = false
					end if
if Request.Cookies(HideForumCat) <> "Y" then
  					Response.Write	"<TR>" & vbcrlf & "<TD bgcolor=""" & strAltForumCellColor & """ align=center valign=center>" & vbcrlf
					if rsForum("F_TYPE") = 0 then
						if rs("CAT_STATUS") = 0 then
							Response.Write "<a href=""forum.asp?FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID") & """>"
							if rsForum("F_LAST_POST") > Session(strCookieURL & "last_here_date") then
								Response.Write "<img src=""" & strImageURL & "icon_folder_locked_new_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""分类已锁定""></a>"
							else
								Response.Write "<img src=""" & strImageURL & "icon_folder_locked_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""分类已锁定""></a>"
							end if
						else
							if rsForum("F_STATUS") <> 0 then
								Response.Write ChkIsNew(rsForum("F_LAST_POST"),"")
'								Response.Write "<a href=""forum.asp?FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID") & "&Forum_Title=" & """>" & ChkIsNew(rsForum("F_LAST_POST"),"") & "</a>"
							else
'								Response.Write "<a href=""forum.asp?FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID") & """>"
								if rsForum("F_LAST_POST") > Session(strCookieURL & "last_here_date") then
									Response.Write "<img src=""" & strImageURL & "icon_folder_locked_new_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""论坛已锁定""></a>"
								else
									Response.Write "<img src=""" & strImageURL & "icon_folder_locked_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""论坛已锁定""></a>"
								end if
							end if
						end if
					else
						if  rsForum("F_TYPE") = 1 then
							Response.Write "<img src=""" & strImageURL & "icon_url.gif"" height=16 width=16 border=0 hspace=0>"
'							Response.Write "<a href=""" & rsForum("F_URL") & """ target=""_blank""><img src=""" & strImageURL & "icon_url.gif"" height=16 width=16 border=0 hspace=0></a>"
						end if
					end if
					Response.Write	"</TD>" & vbcrlf
%>
	<TD <% if rsForum("F_TYPE") = 1 then Response.Write(" colspan=1") %> bgcolor="<% Response.Write strForumCellColor %>" valign="top">
        <font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="<% if rsForum("F_TYPE") = 0 then Response.Write("forum.asp?FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID")) else if rsForum("F_TYPE") = 1 then Response.Write(rsForum("F_URL") & """ target=""_blank") end if %>"><% Response.Write ChkString(rsForum("F_SUBJECT"),"display") %></a>
<%					if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %>
<%						call ForumAdminOptions %>
<%					end if %><br>
	<font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strFooterFontSize %>"><%if rsForum("F_DESCRIPTION") <> " " then Response.Write("") %><% Response.Write  rsForum("F_DESCRIPTION") %></font></TD>

<% '### 输出管理员名单 ### %>
<%					if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then %>
	<TD bgcolor="<% Response.Write strAltForumCellColor %>" align=center valign=center><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strDefaultFontSize %>">
<%	if (listForumModerators(rsForum("FORUM_ID")) <> "") then
		Response.Write(listForumModerators(rsForum("FORUM_ID")))
	else
		Response.Write("&nbsp;")
	end if %></font></TD>
<%					end if %>
<% '### 输出管理员名单 ### %>

<%	if rsForum("F_TYPE") = 1 then %>
		<TD bgcolor="<% Response.Write strForumCellColor %>" colspan="4" align=center valign=center><% if rsForum("F_URLIMAGE") <> "" then %><a href="<% Response.Write  rsForum("F_URL")%>" target="_blank"><img src="<% Response.Write rsForum("F_URLIMAGE")%>" border=0 hspace=0></a><% End If %></TD>
<%	end if %>

<%	if rsForum("F_TYPE") = 0 then %>
		<TD bgcolor="<% Response.Write strForumCellColor %>" align=center valign=center><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strDefaultFontSize %>"><B>
<%		if IsNull(rsForum("F_TOPICS")) then
			Response.Write "0"
		else
			if Instr(ChkIsNew(rsForum("F_LAST_POST"),""), "icon_folder_new_" & strFolderImg & ".gif") > 0 then
				Response.Write "<font color=" & strInsistFontColor & ">" & rsForum("F_TOPICS") & "</FONT>"
			else
				Response.Write rsForum("F_TOPICS")
			end if
		end if %>
		</B></FONT></TD>
		<TD bgcolor="<% Response.Write strForumCellColor %>" align=center valign=center><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strDefaultFontSize %>"><B>
<%		if IsNull(rsForum("F_COUNT")) then
			Response.Write "0"
		else
			if Instr(ChkIsNew(rsForum("F_LAST_POST"),""), "icon_folder_new_" & strFolderImg & ".gif") > 0 then
				Response.Write "<font color=" & strInsistFontColor & ">" & rsForum("F_COUNT") & "</FONT>"
			else
				Response.Write rsForum("F_COUNT")
			end if
		end if %>
		</B></FONT></TD>

<%		if IsNull(rsForum("F_LAST_REPLY")) then
			strLast_Reply ="没有任何帖子" & "<br>"
		else
			if Trim(rsForum("F_LAST_REPLY")) <> "0" then
				set rs_reply = Server.CreateObject("ADODB.RecordSet")

				strSql = "SELECT " & strTablePrefix & "TOPICS.T_SUBJECT  FROM " & strTablePrefix & "TOPICS "
				strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & rsForum("F_LAST_REPLY")

				set rs_reply = my_Conn.Execute (strSql)
				strLast_Subject = rs_reply("T_SUBJECT")
				strLast_Reply = "主题： <a href=topic.asp?TOPIC_ID=" & rsForum("F_LAST_REPLY") & "&FORUM_ID=" & rsForum("FORUM_ID") & "&CAT_ID=" & rsForum("CAT_ID") & " title=""" & strLast_Subject & """>" & TrueWord(strLast_Subject,18," ...") & "</a><br>"
				rs_reply.close
				set rs_reply = nothing

			elseif Trim(rsForum("F_LAST_REPLY")) = "0" And Trim(rsForum("F_TOPICS")) <> "0" then
				strLast_Reply = "主题： 暂无新帖" & "<br>"
			else
				strLast_Reply = "没有帖子" & "<br>"
			end if
		end if
		
		if IsNull(rsForum("MEMBER_ID")) then
			strLastUser = ""
		else
			strLastUser = "&nbsp;最后发表： "
			if strUseExtendedProfile then
				strLastUser = strLastUser & "<a href=""pop_profile.asp?mode=display&id="& RsForum("MEMBER_ID") & """>"
			else
				strLastUser = strLastUser & "<a href=""JavaScript:openWindow2('pop_profile.asp?mode=display&id=" & rsForum("MEMBER_ID") & "')"">"
			end if
			strLastUser = strLastUser & rsForum("M_NAME") & "</a>&nbsp; <img src=" & strImageURL & "lastpost.gif width=11 height=10><br>"
		end if %>

        <TD bgcolor="<% Response.Write strAltForumCellColor %>" valign=center nowrap><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strFooterFontSize %>">&nbsp;<% Response.Write strLast_Reply %><% Response.Write strLastUser %>&nbsp;<% Response.Write ChkDate(rsForum("F_LAST_POST")) %> <% Response.Write ChkTime(rsForum("F_LAST_POST")) %></font></TD>
	<% ' ##### 新增功能：添加到收藏夹 By Guozi ##### %>
	<TD bgcolor="<% Response.Write strAltForumCellColor %>" align=center valign=center nowrap><span style="CURSOR: hand" onClick="window.external.AddFavorite('<% Response.Write( strForumURL & "Link.asp?FORUM_ID=" & rsForum("FORUM_ID")) %>', '<% =strForumTitle %> - <% Response.Write RsForum("F_SUBJECT") %>')"><IMG SRC="<% Response.Write strImageURL %>fav_add_new.gif" BORDER="0" width=15 height=15 ALT="将<% Response.Write RsForum("F_SUBJECT") %>添加到收藏夹"></span></TD>
	<% ' ##### 新增功能：添加到收藏夹 By Guozi ##### %>
<%					else %>
<%						if rsForum("F_TYPE") = 1 then %>
<%					'## Do Nothing %>
<%						end if %>
<%					end if %>
		</TR>
<%				end if %>
<%	end if %>
<%				rsForum.movenext %>
<%			loop %>
<%		end if %>
<%		rs.MoveNext %>
<%	loop %>
<% end if %>
    </TABLE>
    </TD>
  </TR>
</TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -