⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 forum.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<% if lCase(Request.Querystring("MODE"))="best" then %>
	<img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 then Response.Write("" & strImageURL & "icon_folder_open.gif") else Response.Write("" & strImageURL & "icon_folder_closed_topic.gif") %>" border="0">&nbsp;<A href="<% =strForumUrl %>"><% Response.Write ChkString(strSubForumTitle,"display") %></A>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 then Response.Write("" & strImageURL & "icon_folder_open_topic.gif") else Response.Write("" & strImageURL & "icon_folder_closed_topic.gif") %>" border="0">&nbsp;<A href="<% =strForumUrl %>"><% Response.Write ChkString(strSubForumTitle,"display") %></A> 精华贴子区
<% else %>
	<img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 then Response.Write("" & strImageURL & "icon_folder_open_topic.gif") else Response.Write("" & strImageURL & "icon_folder_closed_topic.gif") %>" border="0">&nbsp;<% Response.Write ChkString(strSubForumTitle,"display") %>
<% end if %>
</FONT></TD>
  </TR>
  <TR>
	<TD align="right" valign="bottom"></TD>
  </TR>
</TABLE>
<%
if lCase(Request.Querystring("Mode"))<>"best" then
	strForumUrl = strForumUrl & "&Mode=best"
end if
%>
<TABLE border="0" width="100%" Align="center">
  <TR>
    <TD width="100%" align="right" valign="bottom" nowrap><font color="<% Response.Write strDefaultFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><img src="<% =strImageURL %>icon.gif">&nbsp;<A href="<% Response.Write strForumUrl %>">本版精华</A>　<img src="<% =strImageURL %>icon.gif">&nbsp;<A href="bookmark.asp">个人收藏</A>　<img src="<% =strImageURL %>icon.gif">&nbsp;<A href="cancel_replies.asp">回复通知</A><IMG src="" border=0 width="4" height=0></FONT></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>

<TABLE border="0" width="<% Response.Write strTableWidth %>" Align="center">
  <TR>
    <TD width="50%" align="left" nowrap></TD>
    <TD width="1%" align="right"></TD>
    <TD width="49%" align="right"></TD>
</TR>
</TABLE>
<% '################################## %>
<% if lCase(Request.Querystring("MODE"))<>"best" then %>

<TABLE border="0" Align="center" width="<% Response.Write strTableWidth %>">
<TR>
<TD align="left" nowrap><!--#INCLUDE FILE="inc_announce.asp" --></TD>
<TD nowrap></TD>
<FORM action="<% Response.Write Request.ServerVariables("SCRIPT_NAME") & "?" & Request.Querystring %>" method="post" name="DaysFilter">
<INPUT type="hidden" name="newsort" value="<% Response.Write SortOrder %>">
<INPUT type="hidden" name="sortimg" value="<% Response.Write SortImg %>">
<INPUT type="hidden" name="Cookie" value="1">
<TD align="left" nowrap width="12%" Align="right"><SELECT name="Days" onchange="javascript:setDays('5d');">
      <option value="0" <% if ndays = "0" then Response.Write(" SELECTED")%>>显示所有的主题</option>
      <option value="-1" <% if ndays = "-1" then Response.Write(" SELECTED")%>>显示所有开放的主题</option>
      <option value="1" <% if ndays = "1" then Response.Write(" SELECTED")%>>显示一天内的主题</option>
      <option value="2" <% if ndays = "2" then Response.Write(" SELECTED")%>>显示两天内的主题</option>
      <option value="7" <% if ndays = "7" then Response.Write(" SELECTED")%>>显示一周内的主题</option>
      <option value="14" <% if ndays = "14" then Response.Write(" SELECTED")%>>显示两周内的主题</option>
      <option value="30" <% if ndays = "30" then Response.Write(" SELECTED")%>>显示一个月内的主题</option>
      <option value="60" <% if ndays = "60" then Response.Write(" SELECTED")%>>显示两个月内的主题</option>
      <option value="120" <% if ndays = "183" then Response.Write(" SELECTED")%>>显示半年内的主题</option>
      <option value="365" <% if ndays = "365" then Response.Write(" SELECTED")%>>显示一年内的主题</option>
    </SELECT>
</TD>
</FORM>
</TR>
</TABLE>
<!--#INCLUDE FILE="online.asp"-->
<br>
<TABLE width="<% Response.Write strTableWidth  %>" border=0 Align="center"><TR>
<TD width="33%"><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 (Request.Cookies(strCookieURL & "User")("Name") = "" or Request.Cookies(strCookieURL & "User")("Pword") = "") then %>
	<% call PostNewTopic() %>
<% else %>
	&nbsp;
<% end if %>
</font></TD>
<TD align="right">
<% if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then %>
	<font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strDefaultFontSize %>"><b>
论坛版主：</b><% if (listForummanger(Request.QueryString("FORUM_ID")) <> "") then Response.Write(listForummanger(Request.QueryString("FORUM_ID"))) else Response.Write("&nbsp;") end if %>&nbsp;</font>
<% end if %>
    </TD>
  </TR>
</TABLE>
<% end if %>
<TABLE border="0" width="<% Response.Write strTableWidth  %>" cellspacing="0" cellpadding="0" align="center">
  <TR>
    <TD bgcolor="<% Response.Write strTableBorderColor %>">
    <TABLE border="0" width="100%" cellspacing="1" cellpadding="4">
      <TR>
<% '############################################ %>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=32><b><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><img name="SortImg" src="<% Response.Write  sortimg %>"  border="0" alt="" width=0 height=0>状态</font></b></TD>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=*><b>
	<% if sortorder = "1d" then %>
		<a href="javascript:setDays('1a')">
	<% else %>
		<a href="javascript:setDays('1d')">
	<% end if %>
	     <font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">主  题</font></a>[点击心情符号在新窗口中浏览]
	  </b><% '############################################ %>
<% if (AdminAllowed > 0) or (lcase(strNoCookies) = "1") then %>
<b><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><% call ForumAdminOptions() %></font></b><% end if %>
	</TD>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=80>
	  <b>
	<% if sortorder = "2d" then %>
		<a href="javascript:setDays('2a')">
	<% else %>
		<a href="javascript:setDays('2d')">
	<% end if %>
	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">作 者</font></A>
	  </b>
	</TD>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=32>
	  <b>
	<% if sortorder = "3d" then %>
		<a href="javascript:setDays('3a')">
	<% else %>
		<a href="javascript:setDays('3d')">
	<% end if %>
	     <font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">回复</font></A>
	  </b>
	</TD>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=32>
	  <b>
	<% if sortorder = "4d" then %>
		<a href="javascript:setDays('4a')">
	<% else %>
		<a href="javascript:setDays('4d')">
	<% end if %>
	<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">点击</font></A>
	  </b>
	</TD>
        <TD align="center" bgcolor="<% Response.Write strHeadCellColor %>" width=190>
	  <b>
	     <% if sortorder = "5d" then %>
	        <a href="javascript:setDays('5a')">
	     <% else %>
	        <a href="javascript:setDays('5d')">
	     <% end if %>
	     <font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strHeadFontColor %>">最后更新&nbsp; &nbsp;| 回复人&nbsp;</font></A>
	  </b>
	</TD>
      </TR>
<% if RS.EOF or RS.BOF then %>
      <TR>
	<TD colspan="7" bgcolor="<% Response.Write strForumCellColor %>"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><b>没有找到任何主题</b></font></TD>
      </TR>
<% else
	rec = 1
	do until RS.EOF or (rec = strPageSize + 1) %>
      <TR>
	<TD bgcolor="<% Response.Write strForumCellColor %>" align=center valign="center"><a href="topic.asp?TOPIC_ID=<% Response.Write rs("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><%
	    if rs("T_INPLACE") <> 1 then
		if rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rs("T_STATUS") <> 0 then
			Response.Write (ChkIsNew(rs("T_LAST_POST")))
		else
			if rs("T_LAST_POST") > Session(strCookieURL & "last_here_date") then
				Response.Write "<img src=""" & strImageURL & "icon_folder_locked_new_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""主题已锁定"">"
			else
				Response.Write "<img src=""" & strImageURL & "icon_folder_locked_" & strFolderImg & ".gif"" border=0 hspace=0 alt=""主题已锁定"">"
			end if
		end if
	    else
		Response.Write "<img src=""" & strImageURL & "icon_locktop.gif"" border=0 hspace=0 alt=""被固定在顶端的主题"">"
	    end if %></a></TD>
<%
	' ### strSubject = ChkString(left(rs("T_SUBJECT"), 34),"display")
	strTopicPaging = false
	strSubject = ChkString(rs("T_SUBJECT"), "decode")
	strScreenMode = Request.Cookies("ScreenMode")
	if strScreenMode = "7" then
		lngMaxShow = 50
	elseif strScreenMode = "9" then
		lngMaxShow = 82
	elseif strScreenMode = "12" then
		lngMaxShow = 100
	elseif strScreenMode = "" then
		lngMaxShow = 50
	end if
	if CheckWord(strSubject, lngMaxShow) = True then
		strSubject = TrueWord(strSubject, lngMaxShow, " ...")
		strTopicPaging = true
	end if
%>
	<TD bgcolor="<% Response.Write strAltForumCellColor %>" onmouseover="javascript:this.bgColor='<% Response.Write strForumCellColor %>';this.style.cursor='default';" onmouseout="javascript:this.bgColor='<% Response.Write strAltForumCellColor %>';" valign="center" align="left" >
<img src="" width=0 height=4><BR><a href="topic.asp?TOPIC_ID=<% Response.Write rs("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>" target="_blank"><img src="<% =strImageURL  & "face/" & GetFace(RS("T_FACE")) & ".gif" %>" border="0" hspace="3"></a><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if RS("T_FILENAME")<>"" then %>
	<a href="<% =usrPath %>/<% =RS("T_FILENAME") %>" target=_blank><img src="<% =strImageURL %>icon_addicon.gif" width=10 alt="该主题有一个附件，点击下载" border=0></a>
<% end if %>
<a href="topic.asp?TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>"><% =strSubject %></a></font>
<%
	if strShowPaging = "1" then
		call TopicPaging()
	end if
	Response.Write AdminFunction()
%>	</TD>
        <TD bgcolor="<% Response.Write strForumCellColor %>" valign="center" align="center"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strForumFontColor %>"><A href="pop_profile.asp?mode=display&id=<% Response.Write RS("T_AUTHOR") %>"><% Response.Write TrueWord(ChkString(rs("M_NAME"),"display"),12,"...") %></A></font></TD>
        <TD bgcolor="<% Response.Write strAltForumCellColor %>" valign="center" align="center"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strForumFontColor %>"><% Response.Write rs("T_REPLIES") %></font></TD>
        <TD bgcolor="<% Response.Write strAltForumCellColor %>" valign="center" align="center"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>" color="<% Response.Write strForumFontColor %>"><% Response.Write rs("T_VIEW_COUNT") %></font></TD>
<%	strLastAuthor = "<FONT COLOR=" & strInsistFontColor & "> | </FONT>"
	if IsNull(rs("T_LAST_POST_AUTHOR")) OR rs("T_REPLIES")=0 then
		strLastAuthor = strLastAuthor & "--------"
	else
		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 & TrueWord(rs("LAST_POST_AUTHOR_NAME"),12,"...") & "</A>"
	end if %>
        <TD bgcolor="<% Response.Write strForumCellColor %>" valign="center" nowrap><font face="<% Response.Write strDefaultFontFace %>" color="<% Response.Write strForumFontColor %>" size="<% Response.Write strFooterFontSize %>"><% Response.Write " " & ChkDate(rs("T_LAST_POST")) %> <% Response.Write ChkTimeShort(rs("T_LAST_POST")) %><% Response.Write strLastAuthor %></font></TD>
	</TR>
<%		rec = rec + 1
		RS.MoveNext
	loop
 end if
%>
    </TABLE>
    </TD>
  </TR>
</TABLE>
<TABLE width="<% Response.Write strTableWidth %>" align="center">
  <TR>
    <TD align="left" valign="top"><% Call Paging() %></TD>
    <TD align="right" valign="top"><!--#INCLUDE FILE="inc_jump_to.asp" --></TD>
  </TR>
</TABLE>
<%
	if lCase(Request.Querystring("MODE"))<>"best" then
%>
<BR>
<TABLE cellspacing=0 cellpadding=0 width="<% Response.Write strTableWidth  %>" bgcolor="<% =strTableBorderColor %>" align=center border=0 nowrap valign="bottom">
<TR><TD>
<TABLE cellspacing=1 cellpadding=3 width=100% border=0>
<TR>
<TD width="77%" bgcolor="<% Response.Write strHeadCellColor %>"><img src="" height=12 width=3><img src="<% Response.Write strImageURL %>icon_2.gif" width="10" height="10" border="0"><b> 
SHine STudio 论坛图例</b></TD>
<TD valign=right noWrap bgcolor="<% Response.Write strHeadCellColor %>" width="23%" align=center>所有时间均为 - 北京时间</TD>
</TR>
<TR><TD bgcolor="<% Response.Write strForumCellColor %>" colspan=3>
<TABLE cellspacing=0 cellpadding=0 width=98% border=0 align=center>
	<tr>
	 <td width="20%"><font color="<% =strInsistFontColor %>">打开的主题</font></td>
	 <td width="20%"><font color="<% =strInsistFontColor %>">回复超 <% =intHotTopicNum %> 次的热门贴</font></td>
	 <td width="20%"><font color="<% =strInsistFontColor %>">特殊贴子图标</font></td>
	 <TD width="20%"></TD>
        </tr>
       <TR>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_new_<% =strFolderImg %>.gif"> 有新回复的贴子</TD>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_hot_new_<% =strFolderImg %>.gif"> 上次来之后新发表</TD>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_locked_new_<% =strFolderImg %>.gif"> 上次来之后关闭的主题</TD>
	 <TD></TD>
      </TR>
      <TR>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_<% =strFolderImg %>.gif"> 没有新回复的贴子</TD>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_hot_<% =strFolderImg %>.gif"> 上次来之后无新回复</TD>
	 <TD><img src="<% Response.Write strImageURL %>icon_folder_locked_<% =strFolderImg %>.gif"> 关闭的主题，不接受回复</TD>
	 <TD><img src="<% Response.Write strImageURL %>icon_locktop.gif"> 被固定在顶端的主题</TD>
      </TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TABLE>
<%	end if %>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
Function ChkIsNew(dt)

if lCase(Request.Querystring("Mode"))="best" then
	ChkIsNew = "<img src='" & strImageURL & "icon_jh.gif' border=0 alt=""精华"">"
else
	if lcase(strHotTopic) = "1" then
		if dt > Session(strCookieURL & "last_here_date") then
			if rs("T_REPLIES") >= intHotTopicNum Then
				ChkIsNew =  "<img src='" & strImageURL & "icon_folder_hot_new_" & strFolderImg & ".gif' border=0 hspace=0 alt='新热点主题'>"
			else
				ChkIsNew =  "<img src='" & strImageURL & "icon_folder_new_" & strFolderImg & ".gif' border=0 hspace=0 alt='新主题'>"
			end if
		Else
			if rs("T_REPLIES") >= intHotTopicNum Then
				ChkIsNew =  "<img src='" & strImageURL & "icon_folder_hot_" & strFolderImg & ".gif' border=0 hspace=0 alt='热点主题'>"
			else
				ChkIsNew = "<img src='" & strImageURL & "icon_folder_" & strFolderImg & ".gif' border=0>"
			end if
		end if
	else
		if dt > Session(strCookieURL & "last_here_date") then
			ChkIsNew =  "<img src='" & strImageURL & "icon_folder_new_" & strFolderImg & ".gif' border=0 hspace=0 alt='新主题'>"
		Else
			ChkIsNew = "<img src='" & strImageURL & "icon_folder_" & strFolderImg & ".gif' border=0>"
		end if
	end if
end if
End Function

sub PostNewTopic()
%>

<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><%
'############### 读/写 权限 ###########################
if cInt(strPrivateForums) < 11 or AdminAllowed = 1 then
	if rsCStatus("CAT_STATUS") = 0 or rsFStatus("F_STATUS") = 0 then
123

⌨️ 快捷键说明

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