?? 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 + -