• Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint
Share this Page URL
Help

Week: 3 At a Glance > Day 16—Message List (index.asp)

Day 16—Message List (index.asp)

The bulletin board message listing must pass values back to itself to use in the SORT BY clause of the query. When creating the page, you added these values by hand. The main message listing page is presented here:

<%@LANGUAGE="VBSCRIPT"%> <!--#include file="../Connections/connChapter16.asp" -->
<%
Dim rsMessageList__MMColParam
rsMessageList__MMColParam = "0"
if (Request("MM_EmptyValue")  <> "") then rsMessageList__MMColParam =
Request("MM_EmptyValue")
%> <%
Dim rsMessageList__varSortby
rsMessageList__varSortby = "ID"
if (Request("sortby")  <> "") then rsMessageList__varSortby = Request("sortby")
%> <%
Dim rsMessageList__varSearchterm
rsMessageList__varSearchterm = "%"
if (Request("searchterm")  <> "") then rsMessageList__varSearchterm =
Request("searchterm")
%> <%
set rsMessageList = Server.CreateObject("ADODB.Recordset")
rsMessageList.ActiveConnection = MM_connChapter16_STRING
rsMessageList.Source = "SELECT ID, subject, iconURL, author  FROM message  WHERE
hidden = " + Replace(rsMessageList__MMColParam, "'", "''") + " AND (subject LIKE
'%" + Replace(rsMessageList__varSearchterm, "'", "''") + "%' OR author LIKE '%" +
Replace(rsMessageList__varSearchterm, "'", "''") + "%' OR body LIKE '%" +
Replace(rsMessageList__varSearchterm, "'", "''") + "%')  ORDER BY '" +
Replace(rsMessageList__varSortby, "'", "''") + "'"
rsMessageList.CursorType = 0
rsMessageList.CursorLocation = 2
rsMessageList.LockType = 3
rsMessageList.Open()
rsMessageList_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 8
Dim Repeat1__index
Repeat1__index = 0
rsMessageList_numRows = rsMessageList_numRows + Repeat1__numRows
%> <%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats
variables

' set the record count
rsMessageList_total = rsMessageList.RecordCount

' set the number of rows displayed on this page
If (rsMessageList_numRows < 0) Then
  rsMessageList_numRows = rsMessageList_total
Elseif (rsMessageList_numRows = 0) Then
  rsMessageList_numRows = 1
End If
' set the first and last displayed record
rsMessageList_first = 1
rsMessageList_last  = rsMessageList_first + rsMessageList_numRows - 1

' if we have the correct record count, check the other stats
If (rsMessageList_total <> -1) Then
  If (rsMessageList_first > rsMessageList_total) Then rsMessageList_first =
rsMessageList_total
  If (rsMessageList_last > rsMessageList_total) Then rsMessageList_last =
rsMessageList_total
  If (rsMessageList_numRows > rsMessageList_total) Then rsMessageList_numRows =
rsMessageList_total
End If
%> <%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsMessageList_total = -1) Then

  ' count the total records by iterating through the recordset
  rsMessageList_total=0
  While (Not rsMessageList.EOF)
    rsMessageList_total = rsMessageList_total + 1
    rsMessageList.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsMessageList.CursorType > 0) Then
    rsMessageList.MoveFirst
  Else
    rsMessageList.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsMessageList_numRows < 0 Or rsMessageList_numRows > rsMessageList_total)
Then
    rsMessageList_numRows = rsMessageList_total
  End If

  ' set the first and last displayed record
  rsMessageList_first = 1
  rsMessageList_last = rsMessageList_first + rsMessageList_numRows - 1
  If (rsMessageList_first > rsMessageList_total) Then rsMessageList_first =
rsMessageList_total
  If (rsMessageList_last > rsMessageList_total) Then rsMessageList_last =
rsMessageList_total

End If
%> <%
' *** Move To Record and Go To Record: declare variables
Set MM_rs    = rsMessageList
MM_rsCount   = rsMessageList_total
MM_size      = rsMessageList_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%> <%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full
repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%> <%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%> <%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsMessageList_first = MM_offset + 1
rsMessageList_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (rsMessageList_first > MM_rsCount) Then rsMessageList_first = MM_rsCount
  If (rsMessageList_last > MM_rsCount) Then rsMessageList_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%> <%
' *** Go To Record and Move To Record: create strings for maintaining URL and
Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName &
"="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem &
Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) -
1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) -
1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%> <%
' *** Move To Record: set the strings for the first, last, next, and previous
links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained
parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="10" height="271">
  <tr bgcolor="#9999FF">
    <td>
      <div align="center"><font face="Arial, Helvetica, sans-serif"
size="+3">Message
        Listing <br>
        <font size="-1">(<%=(rsMessageList_total)%>
        messages, showing <%=(rsMessageList_first)%>
        thru <%=(rsMessageList_last)%>)
        </font> </font></div>
    </td>
  </tr>
  <tr bgcolor="#FFFF66">
    <td height="124">
      <table width="100%" border="0" cellspacing="5" cellpadding="0">
        <tr bgcolor="#FFFF66">
          <td width="6%" bgcolor="#FFFF99">&nbsp;</td>
          <td width="13%" bgcolor="#FFFF99"><font face="Arial, Helvetica,
sans-serif"><b>ID</b></font></td>
          <td width="19%" bgcolor="#FFFF99"><font face="Arial, Helvetica,
sans-serif"><b><a href="index.asp?sortby=author">Author</a></b></font></td>
          <td width="62%" bgcolor="#FFFF99"><font face="Arial, Helvetica,
sans-serif"><b><A HREF="index.asp?sortby=author&<%= MM_keepBoth
%>">Subject</A></b></font></td>
        </tr>
        <%
While ((Repeat1__numRows <> 0) AND (NOT rsMessageList.EOF))
%>
        <tr>
          <td width="6%"><img
src="<%=(rsMessageList.Fields.Item("iconURL").Value)%>"></td>
          <td width="13%"><%=(rsMessageList.Fields.Item("ID").Value)%></td>
          <td width="19%"><%=(rsMessageList.Fields.Item("author").Value)%></td>
          <td width="62%"><A HREF="message.asp?<%= MM_keepBoth &
MM_joinChar(MM_keepBoth) & "ID=" & rsMessageList.Fields.Item("ID").Value
%>"><%=(rsMessageList.Fields.Item("subject").Value)%></A></td>
        </tr>
        <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsMessageList.MoveNext()
Wend
%>
      </table>
    </td>
  </tr>
  <tr bgcolor="#CCCCFF">
    <td>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="49%"><% If MM_offset <> 0 Then %><font face="Arial,
Helvetica, sans-serif"><A HREF="<%=MM_movePrev%>">Previous
            Messages</A></font><% End If ' end MM_offset <> 0 %></td>
          <td align="right" width="51%"><% If Not MM_atTotal Then %><font
face="Arial, Helvetica, sans-serif"><A HREF="<%=MM_moveNext%>">Next
            Messages</A></font><% End If ' end Not MM_atTotal %></td>
        </tr>
      </table>
      <div align="center"><br>
        <b><font face="Arial, Helvetica, sans-serif"><a
href="compose.asp">Create

        New Message</a></font></b></div>
    </td>
  </tr>
  <tr bgcolor="#CCFFCC">
    <td height="61">
      <form name="searchForm" action="index.asp">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="49%"><font face="Arial, Helvetica, sans-serif">Search
For:

              <input type="text" name="searchterm">
              </font></td>
            <td align="right" width="51%"><font face="Arial, Helvetica,
sans-serif">
              <input type="submit" name="Submit" value="Submit">
              </font></td>
          </tr>
        </table>
      </form>
    </td>
  </tr>
</table>
</body>
</html>


					  


PREVIEW

                                                                          

Not a subscriber?

Start A Free Trial


  
  • Creative Edge
  • Create BookmarkCreate Bookmark
  • Create Note or TagCreate Note or Tag
  • PrintPrint