📄 active.asp
字号:
<%
'########## 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" -->
<%
'## 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
ActiveSince = Request.Cookies(strCookieURL & "ActiveSince")
'## Do Cookie stuffs with show last date
if Request.form("cookie") = "2" then
ActiveSince = Request.Form("ShowSinceDateTime")
if strSetCookieToForum = 1 then
Response.Cookies(strCookieURL & "ActiveSince").Path = strCookieURL
end if
Response.Cookies(strCookieURL & "ActiveSince") = ActiveSince
end if
WhichTopics = Request.Form("ShowWhichTopics")
if WhichTopics = "" then WhichTopics = "All"
Select Case ActiveSince
Case "LastVisit"
lastDate = ""
Case "LastHour"
lastDate = DateToStr(DateAdd("h",-1,strForumTimeAdjust))
Case "LastDay"
lastDate = DateToStr(DateAdd("d",-1,strForumTimeAdjust))
Case "LastWeek"
lastDate = DateToStr(DateAdd("ww",-7,strForumTimeAdjust))
Case "LastMonth"
lastDate = DateToStr(DateAdd("m",-1,strForumTimeAdjust))
Case "Registration"
lastDate = "All"
Case Else
lastDate = ""
End Select
%>
<!--#INCLUDE FILE="inc_top.asp" -->
<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) top.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(Request.Cookies(strUniqueID & "User")("Name"))
Session(strCookieURL & "last_here_date") = ReadLastHereDate(Request.Cookies(strUniqueID & "User")("Name"))
lastDate = Session(strCookieURL & "last_here_date")
ActiveSince = " "
end if
'## Forum_SQL - Get all active topics from last visit
strsql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, "
strsql = strsql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.T_REPLIES, " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR, " & strTablePrefix & "TOPICS.T_VIEW_COUNT "
strsql = strsql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS "
strsql = strsql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY "
strsql = strsql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) "
if WhichTopics = "My" then
strsql = strsql & " WHERE "
strsql = strsql & " (" & strTablePrefix & "TOPICS.T_AUTHOR = " & getmemberID(strDBNTUserName) & " "
strsql = strsql & " OR " & strTablePrefix & "REPLY.R_AUTHOR = " & getmemberID(strDBNTUserName) & ")"
if lastdate <> "All" then strsql = strsql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
elseif WhichTopics = "All" then
strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
elseif WhichTopics = "Bookmark" then
strsql = strsql & " WHERE "
strsql = strsql & " EXISTS (SELECT * FROM " & strTablePrefix & "BOOKMARKS WHERE " & strTablePrefix & "BOOKMARKS.B_MemberID =" & getmemberID(strDBNTUserName) & " "
strsql = strsql & " AND " & strTablePrefix & "BOOKMARKS.B_TopicID = " & strTablePrefix & "TOPICS.TOPIC_ID )"
if lastdate <> "All" then strsql = strsql & " AND " & strTablePrefix & "TOPICS.T_LAST_POST > '" & lastDate & "'"
end if
strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.T_LAST_POST DESC;"
set rs = my_Conn.Execute (strSql)
%>
<table width="100%" border=0>
<tr>
<td ><form name="LastDateFrm" action="active.asp" method="post">
<select name="ShowWhichTopics" size="1" onchange="SetLastDate();">
<option value="All" <% if WhichTopics = "All" or WhichTopics = "" then Response.Write(" SELECTED")%>> 全 部</option>
<% If strDBNTUserNAme <> "" then %>
<option value="My" <% if WhichTopics = "My" then Response.Write(" SELECTED")%>> 我的</option>
<% on error resume next
my_conn.execute "SELECT * FROM " & strTablePrefix & "BOOKMARKS"
if err.number = 0 then%>
<option value="Bookmark" <% if WhichTopics = "Bookmark" then Response.Write(" SELECTED")%>> 收藏夹中的</option>
<% Else
'do nothing
End If
End if%>
</select>
<select name="ShowSinceDateTime" size="1" onchange="SetLastDate();">
<option value="LastVisit" <% if ActiveSince = "LastVisit" or ActiveSince = "" then Response.Write(" SELECTED")%>> 自从上次 <%= ChkDate(Session(strCookieURL & "last_here_date")) %> 光临之后 </option>
<option value="LastHour" <% if ActiveSince = "LastHour" then Response.Write(" SELECTED")%>> 自从前一个钟头</option>
<option value="LastDay" <% if ActiveSince = "LastDay" then Response.Write(" SELECTED")%>> 自从昨天</option>
<option value="LastWeek" <% if ActiveSince = "LastWeek" then Response.Write(" SELECTED")%>> 自从上个星期</option>
<option value="LastMonth" <% if ActiveSince = "LastMonth" then Response.Write(" SELECTED")%>> 自从上个月<//option>
<% If WhichTopics <> "All" then %>
<option value="Registration" <% if ActiveSince = "Registration" or ActiveSince = "All" then Response.Write(" SELECTED")%>> 自从注册</option>
<% End If %>
</select>
<input type="hidden" name="Cookie" value="2">
</form>
</font>
</td>
<td align="right">
<form name="ReloadFrm" action="active.asp" method="post"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<select name="RefreshTime" size="1" onchange="autoReload();">
<option value="0" <% if nRefreshTime = "0" then Response.Write(" SELECTED")%>>不要自动重新整理</option>
<option value="1" <% if nRefreshTime = "1" then Response.Write(" SELECTED")%>>每分钟都重新整理</option>
<option value="5" <% if nRefreshTime = "5" then Response.Write(" SELECTED")%>>每隔五分钟重新整理</option>
<option value="10" <% if nRefreshTime = "10" then Response.Write(" SELECTED")%>>每隔十分钟重新整理</option>
<option value="15" <% if nRefreshTime = "15" then Response.Write(" SELECTED")%>>每隔十五分钟重新整理</option>
<option value="30" <% if nRefreshTime = "30" then Response.Write(" SELECTED")%>>每隔半个钟头重新整理</option>
</select>
<input type="hidden" name="Cookie" value="1">
</font>
</form>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="1" cellpadding="2" align="center" bgcolor="<% =strTableBorderColor %>">
<tr>
<form name="MarkRead" action="active.asp" method="post">
<input type="hidden" name="AllRead" value="Y">
<td align="center" bgcolor="<% =strHeadCellColor %>" valign="center" width="20">
<%If not(rs.EOF or rs.BOF) and (mLev > 0) then %>
<input type="image" src="<%=strImageURL %>icon_topic_all_read.gif" value="Mark all read" id=submit1 name=submit1 alt="Mark all topics as read" height="15" width="15" border="0" hspace="0" onclick>
<% else %>
<% end if %>
</td>
</form>
<td align="center" bgcolor="<% =strHeadCellColor %>" width="50%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">主题</font></td>
<td align="center" bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">作者</font></td>
<td align="center" bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">回复</font></td>
<td align="center" bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">人气</font></td>
<td align="center" bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">最新文章</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -