📄 category.asp

📁 一个不错的ASP论坛源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: cgier@21cn.com                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<%
strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = Request.Form("Name")
if strAuthType = "nt" then
	strDBNTUserName = Session(strCookieURL & "userID")
	strDBNTFUserName = Session(strCookieURL & "userID")
end if

if strAutoLogon = 1 then
	if (ChkAccountReg() <> "1") then
		Response.Redirect "register.asp?mode=DoIt"
	end if
end if

if IsEmpty(Session(strCookieURL & "last_here_date")) then
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTUserName)
end if

	set rs1 = Server.CreateObject("ADODB.Recordset")

	'## Forum_SQL
	strSql = "SELECT " & strTablePrefix & "TOTALS.P_COUNT, " & strTablePrefix & "TOTALS.T_COUNT, " & strTablePrefix & "TOTALS.U_COUNT "
	strSql = strSql & " FROM " & strTablePrefix & "TOTALS"

	rs1.open strSql, my_Conn

	Users = rs1("U_COUNT")
	Topics = rs1("T_COUNT")
	Posts = rs1("P_COUNT")

	rs1.Close
	set rs1 = nothing

'## Forum_SQL - Get all Forums From DB
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_ID, " & strTablePrefix & "CATEGORY.CAT_STATUS, " 
strSql = strSql & strTablePrefix & "CATEGORY.CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE ("  & strTablePrefix & "CATEGORY.CAT_ID = " & intQS_CATID & ")"
strSql = strSql & " ORDER BY " & strTablePrefix & "CATEGORY.CAT_NAME ASC;"

set rs = my_Conn.Execute (strSql)
%>

<table border=0 width="95%" cellspacing=0 cellpadding=0 align=center>
  <tr>
    <td>
<%
ShowLastHere = (cint(ChkUser2(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"))) > 0)
if strShowStatistics <> "1" then
%>
    <table width="100%" border="0">
      <tr>
        <td>
<%
	if ShowLasthere then 
%>
        <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">上次登陆时间 - <% =ChkDate(Session(strCookieURL & "last_here_date")) %> <% =ChkTime(Session(strCookieURL & "last_here_date")) %></font>
<%
	else
%>
        &nbsp;
<%
	end if
%>
        </td>
        <td align=right><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">共 <% =Topics %> 个主题，文章 <% =Posts %> 篇，注册会员总数：  <% =Users %>&nbsp;&nbsp;</font></td>
      </tr>
    </table>
<%
else
	Response.Write("&nbsp;&nbsp;")
end if
%>
    </td>  
  </tr>
  <tr>
    <td bgcolor="<% =strTableBorderColor %>">
    <table border=0 width="100%" cellspacing=1 cellpadding=4>
      <tr>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b>&nbsp;</td>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">论坛列表</font></b></td>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">主题</font></b></td>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">文章</font></b></td>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最后发表</font></b></td>
<% 
if (strShowModerators = "1") or (mlev = 4 or mlev = 3) then 
%>
        <td align=center bgcolor="<% =strHeadCellColor %>" nowrap valign="top"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">版主</font></b></td>
<%
end if 
if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then %>
        <td align=center bgcolor="<% =strHeadCellColor %>"><% PostingOptions() %></td>
<%
end if
%>
      </tr>
<% 
if rs.EOF or rs.BOF then
%>
      <tr>
        <td bgcolor="<% =strCategoryCellColor %>" colspan="<%=sGetColspan(6, 5)%>"><font face="<% =strDefaultFontFace %>" color="<% =strCategoryFontColor %>" size="<% =strDefaultFontSize %>" valign="top"><b>没有找到分类或论坛</b></font></td>
<%
	if (mlev = 4 or mlev = 3) then 
%>
        <td bgcolor="<% =strCategoryCellColor %>"><font face="<% =strDefaultFontFace %>" color="<% =strCategoryFontColor %>" size="<% =strDefaultFontSize %>" valign="top">&nbsp;</font></td>
<%
	end if 
%>
      </tr>
<%
else
	intPostCount  = 0
	intTopicCount = 0
	intForumCount = 0
	strLastPostDate = ""
	do until rs.EOF 

		'## Forum_SQL - Build SQL to get forums via category
		strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " 
		strSql = strSql & strTablePrefix & "FORUM.F_STATUS, " 
		strSql = strSql & strTablePrefix & "FORUM.CAT_ID, " 
		strSql = strSql & strTablePrefix & "FORUM.F_SUBJECT, " 
		strSql = strSql & strTablePrefix & "FORUM.F_URL, " 
		strSql = strSql & strTablePrefix & "FORUM.F_DESCRIPTION, " 
		strSql = strSql & strTablePrefix & "FORUM.CAT_ID, " 
		strSql = strSql & strTablePrefix & "FORUM.F_TOPICS, " 
		strSql = strSql & strTablePrefix & "FORUM.F_COUNT, " 
		strSql = strSql & strTablePrefix & "FORUM.F_LAST_POST, " 
		strSql = strSql & strTablePrefix & "FORUM.F_STATUS, " 
		strSql = strSql & strTablePrefix & "FORUM.F_TYPE,  " 
		strSql = strSql & strTablePrefix & "FORUM.F_PRIVATEFORUMS,  " 
		strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " 
		strSql = strSql & strMemberTablePrefix & "MEMBERS.M_NAME " 
		strSql = strSql & "FROM " & strTablePrefix & "FORUM " 
		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.F_SUBJECT ASC;"

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

      <tr>
        <td bgcolor="<% =strCategoryCellColor %>" colspan="<%=sGetColspan(6, 5)%>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" valign="top"><b><% =ChkString(rs("CAT_NAME"),"display") %></b></font></td>
<%
			if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then 
%>
        <td bgcolor="<% =strCategoryCellColor %>" align=center valign=top nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% call CategoryAdminOptions() %></font></b></td>
<%
			end if 
%>
      </tr>
<%
			Response.Write	"  <tr>" & vbCrLf & _
							"    <td bgcolor=""" & strForumCellColor & """ colspan=""" & sGetColspan(6, 5)
			Response.Write """><font face=""" & strDefaultFontFace & """ color=""" & strForumFontColor & """ size=""" & strDefaultFontSize & """><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
				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
						Response.Write	"      <tr>" & vbcrlf & _
										"        <td bgcolor=""" & strCategoryCellColor & """ colspan=""" & sGetColspan(6, 5)
						Response.Write """ valign=top><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>" & ChkString(rs("CAT_NAME"),"display") & "</b></font></td>" & vbcrlf 
						if (mlev = 4 or mlev = 3) or (lcase(strNoCookies) = "1") then 
							Response.Write "        <td bgcolor=""" & strCategoryCellColor & """ align=center valign=top nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
							call CategoryAdminOptions()
							Response.Write "</font></b></td>" & vbcrlf 
						end if
12 下一页
💿 文件大小 916 K
👤 上传用户 qingriwanxia
📂 所属分类书籍源码
🏷️ 相关标签

#ASP #论坛 #源码
⌨️ 快捷键说明

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