newtopics.asp

电子商务网络购物系统

<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<%
Response.Buffer = True
Dim dtmstartdate
Dim rsST	
Dim rsBBS	
Dim intForumID	
Dim strForumName
Dim lngNumberOfReplies
Dim lngTopicID	
Dim strSubject	
Dim strTopicStartUsername 	
Dim lngTopicStartUserID
Dim lngNumberOfViews
Dim lngLastEntryMessageID	
Dim strLastEntryUsername
Dim lngLastEntryUserID
Dim dtmLastEntryDate
Dim intRecordPositionPageNum
Dim intTotalNumOfPages
Dim intRecordLoopCounter	
Dim intTopicPageLoopCounter	
Dim intLinkPageNum
Dim intShowTopicsFrom
Dim strShowTopicsFrom
Dim blnForumLocked
Dim blnTopicLocked
Dim intPriority
Dim dblActiveFrom
Dim intNumberOfTopicPages	
Dim intTopicPagesLoopCounter
Dim blnNewPost	
Dim intForumReadRights
Dim strForumPassword
Dim strForumPaswordCode
Dim blnForumPasswordOK
Dim lngPollID	

If Request.QueryString("pn") = "" OR Request.QueryString("pn") = 0 Then
	intRecordPositionPageNum = 1
Else
	intRecordPositionPageNum = CInt(Request.QueryString("pn"))
End If

If Request.Cookies("active") <> "" Then
	intShowTopicsFrom = CInt(Request.Cookies("active"))
ElseIf Session("dtmLastVisit") < CDate(Request.Cookies("FLVST")("LTVST")) Then
	intShowTopicsFrom = 1 
Else
	intShowTopicsFrom = 7
End If
Select Case intShowTopicsFrom
	Case 1
		strShowTopicsFrom = "上次访问" & " " & DateFormat(Session("dtmLastVisit"), saryDateTimeData) & "  " & TimeFormat(Session("dtmLastVisit"), saryDateTimeData)
		dblActiveFrom = DateDiff("d", Session("dtmLastVisit"), Now()) + 1
	case 2
		strShowTopicsFrom = "前15分钟"
		dblActiveFrom = 1
	case 3
		strShowTopicsFrom = "前30分钟"
		dblActiveFrom = 1
	Case 4
		strShowTopicsFrom = "前45分钟"
		dblActiveFrom = 1
	Case 5
		strShowTopicsFrom = "前1小时"
		dblActiveFrom = 1
	Case 6
		strShowTopicsFrom = "前2小时"
		dblActiveFrom = 1
	Case 7
		strShowTopicsFrom = "前4小时"
		dblActiveFrom = 1
	Case 8
		strShowTopicsFrom = "前6小时"
		dblActiveFrom = 1
	Case 9
		strShowTopicsFrom = "前8小时"
		dblActiveFrom = 1
	Case 10
		strShowTopicsFrom = "前12小时"
		dblActiveFrom = 1
	Case 11
		strShowTopicsFrom = "前16小时"
		dblActiveFrom = 1
	Case 12
		strShowTopicsFrom = "前一天"
		dblActiveFrom = 1
	Case 13
		strShowTopicsFrom = "前一周"
		dblActiveFrom = 7
	Case 14
		strShowTopicsFrom = "前一个月"
		dblActiveFrom = 28
End Select

%>
<title><% = strMainForumName %>:论坛新帖</title>

<script  language="JavaScript">
function ShowTopics(Show){

   	strShow = escape(Show.options[Show.selectedIndex].value);
   	document.cookie = "active=" + strShow

   	if (Show != "") self.location.href = "newtopics.asp?pn=1";
	return true;
}
// -->
</script>

<table width="96%" border="0" cellspacing="0" cellpadding="1" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="newtopics.asp" class="boldLink">论坛新帖</a><br /></td>
 </tr>
</table>
      <table width="96%" border="0" cellspacing="0" cellpadding="4" align="center">
        <tr>
          <form>
		  <td align="left" width="50%"><a href="messpost.asp?mode=new&fid=<% = intForumID %>" target="_self"><img src="images/postnew.gif" border="0" align="absmiddle" alt="发表新主题"></a>
   <%
If blnPollCreate = True Then %>
<a href="poll.asp?fid=<%= intForumID %>"  target="_self"><img src="images/newpoll.gif"  border="0" align="absmiddle" alt="发起投票"></a>
<% End If %></td>
		  
            <td align="right"><span class="text">显示贴子:</span>
              <select name="show" onChange=ShowTopics(this)>
                <option value="1" <% If intShowTopicsFrom = 1 Then Response.Write "selected" %>><% = DateFormat(Session("dtmLastVisit"), saryDateTimeData) & "  " & TimeFormat(Session("dtmLastVisit"), saryDateTimeData) %></option>
                <option value="2" <% If intShowTopicsFrom = 2 Then Response.Write "selected" %>>前十五分钟</option>
                <option value="3" <% If intShowTopicsFrom = 3 Then Response.Write "selected" %>>前三十分钟</option>
                <option value="4" <% If intShowTopicsFrom = 4 Then Response.Write "selected" %>>前四十五分钟</option>
                <option value="5" <% If intShowTopicsFrom = 5 Then Response.Write "selected" %>>前一个小时</option>
                <option value="6" <% If intShowTopicsFrom = 6 Then Response.Write "selected" %>>前二个小时</option>
                <option value="7" <% If intShowTopicsFrom = 7 Then Response.Write "selected" %>>前四个小时</option>
                <option value="8" <% If intShowTopicsFrom = 8 Then Response.Write "selected" %>>前六个小时</option>
                <option value="9" <% If intShowTopicsFrom = 9 Then Response.Write "selected" %>>前八个小时</option>
                <option value="10" <% If intShowTopicsFrom = 10 Then Response.Write "selected" %>>前十二个小时</option>
                <option value="11" <% If intShowTopicsFrom = 11 Then Response.Write "selected" %>>前十六个小时</option>
                <option value="12" <% If intShowTopicsFrom = 12 Then Response.Write "selected" %>>从昨天开始</option>
                <option value="13" <% If intShowTopicsFrom = 13 Then Response.Write "selected" %>>从上星期开始</option>
                <option value="14" <% If intShowTopicsFrom = 14 Then Response.Write "selected" %>>从上个月开始</option>
              </select>
            </td>
          </form>
        </tr>
      </table>

   <table align="center" width="96%" border="0" cellspacing="1" cellpadding="3" height="14" bgcolor="<% = strTableBgColour %>">
    <tr height="25" class="tHeading" align="center">
     <td width="40" nowrap="nowrap" background="<% = strTableTitleBgImage %>">状态</td>
     <td width="58%" align="left" background="<% = strTableTitleBgImage %>">主题</td>
     <td width="120" nowrap background="<% = strTableTitleBgImage %>">作者</td>
     <td width="50" nowrap background="<% = strTableTitleBgImage %>">回复</td>
     <td width="50" nowrap background="<% = strTableTitleBgImage %>">浏览</td>
     <td width="120" colspan="2" background="<% = strTableTitleBgImage %>">最后发表</td>
	</tr>
    <%
Set rsBBS = Server.CreateObject("ADODB.Recordset")
rsBBS.CursorType = 1
	strSQL = "SELECT timesbbs.bbsname, timesbbs.Password, timesbbs.codes, timesbbs.[Read], timestopic.* "
	strSQL = strSQL & "FROM timesboard, timesbbs, timestopic "
	strSQL = strSQL & "WHERE ((timesboard.boardid = timesbbs.boardid AND timesbbs.bbsid = timestopic.bbsid) AND (timesbbs.Read = True) AND (timestopic.lastdtm > " & strDatabaseDateFunction & " - " & dblActiveFrom & "))"
	strSQL = strSQL & "ORDER BY timesboard.boardnum ASC, timesbbs.bbsnum ASC, timestopic.lastdtm DESC;"

rsBBS.Open strSQL, adoCon
Select Case intShowTopicsFrom
	Case 1
		rsBBS.Filter = "lastdtm > #" & CDate(Session("dtmLastVisit")) & "#"
	case 2
		rsBBS.Filter = "lastdtm > #" & DateAdd("n", -15, Now()) & "#"
	case 3
		rsBBS.Filter = "lastdtm > #" & DateAdd("n", -30, Now()) & "#"
	Case 4
		rsBBS.Filter = "lastdtm > #" & DateAdd("n", -45, Now()) & "#"
	Case 5
		rsBBS.Filter = "lastdtm > #" & DateAdd("h", -1, Now()) & "#"
	Case 6
		rsBBS.Filter = "lastdtm > #" & DateAdd("h", -2, Now()) & "#"