home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / admin.asp next >
Encoding:
Text File  |  1998-05-05  |  9.9 KB  |  270 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <%
  3.  Option Explicit
  4.  DIM count, intMessageID, L_Dropbox, L_Guestbook, MessagePrivate, DBConn, CursorLocation, CursorType, strIDNum, cm, dateQuery, dateQueryString, fromQuery, fromQueryString, i, intMid, delete, nextCursor, nextMid, previous, location, background, MessageDateLimit, MessageDate, MessageID, MessageFromLimit, MessageFrom, MessageSubjectLimit, MessageSubject, msgprivate, objConn, objParam, rows, rowsLimit, rst, strpageType, strProvider, strQuery, StrSort, subjectQuery, subjectQueryString, tableCell, Theme
  5.     L_Dropbox = "Pole wiadomo£ci"
  6.     L_Guestbook = "Ksi╣┐ka go£ci"
  7.     If request.QueryString("message") <> "" Then
  8.         intMessageID = request.QueryString("message")
  9.     End If
  10.     If request.Form("MessageID") <> "" Then
  11.         intMessageID = request.Form("MessageID")
  12.     End If
  13.  If request.Form("delete") <> "" OR request.Form("next") <> "" OR request.Form("prev") <> "" Then
  14.     If intMessageID <> "" Then
  15.         Set rst = Session("rst")
  16.         If request.Form("next") <> "" Then
  17.             rst.MoveNext
  18.             MessagePrivate = rst("MessagePrivate")
  19.             intMessageID = rst("MessageID")
  20.         ElseIf request.Form("prev") <> "" Then
  21.             rst.MovePrevious
  22.             MessagePrivate = rst("MessagePrivate")
  23.             intMessageID = rst("MessageID")
  24.         ElseIf request.Form("delete") <> "" Then
  25.             MessagePrivate = rst("MessagePrivate")
  26.             intMessageID = ""
  27.             rst.Delete
  28.             rst.Requery
  29.         End If
  30.     End If
  31. Else
  32.     If request.QueryString("private") = "True" OR request.Form("private") = "True" Then
  33.         MessagePrivate = "True"
  34.     Else
  35.         MessagePrivate = "False"
  36.     End If
  37.     If intMessageID <> "" Then
  38.         Set rst = Session("rst")
  39.         rst.MoveFirst
  40.         count = request.Querystring("Count") - 1
  41.          Set rst = Session("rst")
  42.         rst.MoveFirst
  43.         rst.Move count
  44.     Else
  45.         call setVariables
  46.         call queryLimits        'Sets strQuery
  47.         strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\iisadmin") & "\website\messages.mdb;"
  48.         Set rst = Server.CreateObject("ADODB.recordset")
  49.         rst.CursorType = 3
  50.         rst.CursorLocation = 3
  51.         rst.LockType = 3
  52.         rst.Open strQuery, strProvider
  53.         Set Session("rst") = rst
  54.     End If
  55. End If
  56. %>
  57. <HTML>
  58. <!--
  59.     $Date: 10/01/97 10:13a $
  60.     $ModTime: $
  61.     $Revision: 19 $
  62.     $Workfile: admin.asp $
  63. -->
  64. <HEAD>
  65.     <TITLE>Message Center</TITLE>
  66.     <!--#include virtual ="/iissamples/homepage/sub.inc"-->
  67. <%
  68.  Function Title( n, p )
  69.     DIM strTitle
  70.     DIM H
  71.     If n <> "" AND Len(n) > 6 then
  72.         H = 2
  73.     Else
  74.         H = 1
  75.     End If
  76.     strTitle = "<H" & H & ">"
  77.     If n <> "" Then
  78.         strTitle = strTitle & MyInfo.Name & ""
  79.         If right(myInfo.Name, 1) <> "s" then
  80.             strTitle = strTitle & " "
  81.         End If
  82.     End If
  83.     If p = "True" Then
  84.         strTitle = strTitle & "- " & L_Dropbox
  85.     Else
  86.         strTitle = strTitle & "- " & L_Guestbook
  87.     End If
  88.     strTitle = strTitle & "</H" & H & ">"
  89.     Title = strTitle
  90.  End Function
  91.  
  92.  Sub buildTable
  93.      Set rst = Session("rst")
  94.      If rst.EOF Then
  95.          If intMessageID <> "" Then
  96.             response.Write "<TR><TD Colspan='3'>Nie ma wiΩcej wiadomo£ci.</TD></TR>"
  97.         ElseIf request.QueryString("MessageDateLimit") <> "" Then
  98.             response.Write "<TR><TD Colspan='3'>Nie ma wiadomo£ci spe│niaj╣cych kryteria.</TD></TR>"
  99.         Else
  100.             response.Write "<TR><TD BGColor='#FFFFFF' Colspan='3'>Nie ma wpis≤w w: "
  101.             If MessagePrivate = "False" Then
  102.                 response.write lcase(L_guestbook)
  103.             Else
  104.                 response.write lcase(L_dropbox)
  105.             End If
  106.             response.write ".</TD></TR>"
  107.         End If
  108.      ElseIf intMessageID <> "" Then
  109.          Dim col1Cell
  110.         Dim col5Cell
  111.         Dim colFont
  112.         col5Cell = "<TD  BGColor='#FFFFFF' ALIGN=left VALIGN=TOP COLSPAN=5><FONT style='font-family:Arial;font-size:8pt'>"
  113.         col1Cell = "<TD  BGColor='#FFFFFF' ALIGN=right VALIGN=TOP COLSPAN=1><FONT style='font-family:Arial;font-size:10pt'>"
  114.         Response.Write "<TR>"_
  115.         & col1Cell & "<B>Date:</B></FONT></TD>"_
  116.         & col5Cell & rst("MessageDate") & "</TD></TR>"_
  117.         & "<TR>" & col1Cell & "<B>Name:</B></FONT></TD>"_
  118.         & col5Cell & rst("MessageFrom") & "</FONT></TD></TR>"_
  119.         & "<TR>" & col1Cell & "<B>Email:</B></FONT></TD>"_
  120.         & col5Cell & "<A HREF='mailto:" & rst("Email") & "'>" & rst("Email") & "</A></FONT></TD></TR>"_
  121.         & "<TR>" & col1Cell & "<B>Home page:</B></FONT></TD>"_
  122.         & col5Cell  & "<A HREF='" & rst("URL") & "'>" & rst("URL") & "</A></FONT></TD></TR>"_
  123.         & "<TR>" & col1Cell & "<B>Subject:</B></FONT></TD>"_
  124.         & col5Cell  & rst("MessageSubject") & "</FONT></TD></TR>"_
  125.         & "<TR>" & col1Cell & "<B>Message:</B></FONT></TD>"_
  126.         & col5Cell & "<FONT SIZE='-1' FACE='arial','Arial'>" & rst("MessageBody") & "</FONT></TD>"_
  127.         & "</TR><TR><TD HEIGHT=5 Colspan=6>" & FormSubmit( "HIDDEN", "private", MessagePrivate ) & "</TD></TR>"
  128.     Else
  129.         tableCell = "<TD ALIGN=LEFT VALIGN=TOP BGColor='#FFFFFF'><FONT style='font-family:Arial;font-size:10pt'>"
  130.         Response.Write "<TR><TD BGColor='#cccccc' WIDTH=125>"_
  131.         & FormSubmit( "SUBMIT", "sort", "sortuj wed│ug daty" )_
  132.         & "</TD><TD BGColor='#cccccc'>"_
  133.         & FormSubmit( "SUBMIT", "sort", "sortuj wed│ug autora" )_
  134.         & "</TD><TD BGColor='#cccccc'>"_
  135.         & FormSubmit( "SUBMIT", "sort", "sortuj wed│ug tematu" )_
  136.         & FormSubmit( "HIDDEN", "private", MessagePrivate )_
  137.         & "</TD></TR><TR><TD HEIGHT=1 Colspan=3 BGColor='#FFFFFF'></TD></TR>"
  138.         count = 1
  139.         Do UNTIL rst.EOF
  140.             Response.Write "<TR>" & tableCell & rst("MessageDate") & "</A></FONT></TD>"_
  141.             & tableCell & "<A HREF=""" & "admin.asp?message=" & rst("MessageID") & "&count=" & count & "&private=" & rst("MessagePrivate") & """>" & rst("MessageFrom") & "</A></FONT></TD>"_
  142.             & tableCell & "<A HREF=""" & "admin.asp?message=" & rst("MessageID") & "&count=" & count & "&private=" & rst("MessagePrivate") & """>" & rst("MessageSubject") & "</A></FONT></TD>"
  143.             rst.MoveNext
  144.             Response.Write "</TR><TR><TD HEIGHT=1 Colspan=3></TD></TR>"
  145.             count = count + 1
  146.         Loop
  147.  
  148.     End If
  149.  End Sub
  150.  
  151. '    ***    Creates input buttons.
  152.  Function FormSubmit( t, name, value )
  153.     Dim btnSubmit
  154.     btnSubmit = "<INPUT TYPE=""" & t & """ NAME=""" & name & """ VALUE=""" & value & """>"
  155.     FormSubmit = btnSubmit
  156.  End Function
  157.  
  158.  Sub navigationButtons
  159.     If intMessageID <> "" Then
  160.          response.write "<TR><TD ALIGN='center' colspan='6'>"
  161.         rst.MovePrevious
  162.         If not rst.BOF Then
  163.             response.write FormSubmit("SUBMIT", "prev", "<<")
  164.         End If
  165.         rst.MoveNext
  166.             response.write FormSubmit("SUBMIT", "delete", "Usu± wiadomo£µ")
  167.         rst.MoveNext
  168.         If not rst.EOF Then
  169.             response.write FormSubmit("SUBMIT", "next", ">>")
  170.         End If
  171.         rst.MovePrevious
  172.         response.write FormSubmit("HIDDEN", "MessageID", rst("MessageID"))
  173.         response.write "</TD></TR><TR><TD Colspan=6><B>"
  174.         If MessagePrivate ="True" Then
  175.             response.write "<A HREF='admin.asp?private=True'>Powr≤t do " & L_Dropbox & "</A><BR>"
  176.         Else
  177.             response.write "<A HREF='admin.asp?private=False&strQuery=" & strQuery & "'>Powr≤t do " & L_Guestbook & "</A><BR>"_
  178.         End If
  179.     Else
  180.         response.write "<TR><TD Colspan=3><B>"
  181.         If MessagePrivate <> "True" Then
  182.             response.write "<A HREF='qbe.asp'>Nowa kwerenda</A><BR>"
  183.         End If
  184.     End If
  185.         response.write "<A HREF='default.asp'>Witryna sieci Web</A></B></TD></TR>"
  186.  End Sub
  187.  
  188.  Sub setVariables
  189.     StrSort = request.form("sort")
  190.     Select Case StrSort
  191.     Case "sortuj wed│ug autora"
  192.         StrSort = "MessageFrom"
  193.     Case "sortuj wed│ug tematu"
  194.         StrSort = "MessageSubject"
  195.     Case Else
  196.         StrSort = "MessageDate"
  197.     End Select
  198.     MessageDateLimit = request.Form("MessageDateLimit")
  199.     MessageDate = request.Form("MessageDate")
  200.     If IsDate(MessageDate) Then
  201.         MessageDate = MessageDate
  202.     Else
  203.         MessageDate = month( now ) & "/" & day( now ) & "/" & year( now ) & " " & time()
  204.     End If
  205.     MessageFromLimit = request.Form("MessageFromLimit")
  206.     MessageFrom = request.Form("MessageFrom")
  207.     MessageSubjectLimit = request.Form("messageSubjectLimit")
  208.     MessageSubject = request.Form("messageSubject")
  209.  End Sub
  210.  
  211.  Sub queryLimits
  212.     strQuery ="SELECT * FROM messages WHERE MessagePrivate =" & MessagePrivate
  213.     If MessageDate <> "" or MessageFrom <> "" or MessageSubject <> "" Then
  214.         If MessageDate <> "" Then
  215.             If MessageDateLimit = "less than" Then
  216.                 strQuery = strQuery & " AND MessageDate < #" & MessageDate & "#"
  217.             ElseIf MessageDateLimit = "equal to" Then
  218.                 strQuery = strQuery & " AND MessageDate = #" & MessageDate & "#"
  219.             ElseIf MessageDateLimit = "greater than" Then
  220.                 strQuery = strQuery & " AND MessageDate > #" & MessageDate & "#"
  221.             End If
  222.         End If
  223.         If MessageFrom <> "" Then
  224.             If request.form("MessageFromLimit") = "begins with" Then
  225.                 strQuery = strQuery & " AND MessageFrom LIKE '" & MessageFrom & "%'"
  226.             ElseIf request.Form("MessageFromLimit") = "contains" Then
  227.                 strQuery = strQuery & " AND MessageFrom LIKE '" & "%" & MessageFrom & "%'"
  228.             ElseIf request.Form("messageFromLimit") = "ends with" Then
  229.                 strQuery = strQuery & " AND MessageFrom LIKE '%" & MessageFrom & "'"
  230.             ElseIf request.Form("messageFromLimit") = "equal to" Then
  231.                 strQuery = strQuery & " AND MessageFrom = '" & MessageFrom & "'"
  232.             End If
  233.         End If
  234.         If MessageSubject <> "" Then
  235.             If request.form("MessageSubjectLimit") = "begins with" Then
  236.                 strQuery = strQuery & " AND MessageSubject LIKE '" & MessageSubject & "%'"
  237.             ElseIf request.Form("MessageSubjectLimit") = "contains" Then
  238.                 strQuery = strQuery & " AND MessageSubject LIKE '" & "%" & MessageSubject & "%'"
  239.             ElseIf request.Form("MessageSubjectLimit") = "ends with" Then
  240.                 strQuery = strQuery & " AND MessageSubject LIKE '%" & MessageSubject & "'"
  241.             ElseIf request.Form("MessageSubjectLimit") = "equal to" Then
  242.                 strQuery = strQuery & " AND MessageSubject = '" & MessageSubject & "'"
  243.             End If
  244.         End If
  245.     End If
  246.         strQuery= strquery & " ORDER BY " &StrSort
  247.  End Sub
  248. %>
  249. </HEAD>
  250.  
  251. <BODY TopMargin=0 Leftmargin="0" BGColor="#FFFFFF">
  252. <FORM ACTION="admin.asp" method="POST">
  253.     <TABLE  border=1 width="100%" height="100%" cellspacing=5 cellpadding=5 rules=box>
  254.     <TR>
  255.     <TD Background="msg.gif" Colspan="6">
  256.     <H1>
  257.     <%
  258.      response.write Title(MyInfo.Name,MessagePrivate)
  259.     %>
  260.     </H1></TD>
  261.     </TR>
  262.     <%
  263.      Call buildTable
  264.      Call navigationButtons
  265.     %>
  266.     </TABLE>
  267. </FORM>
  268. </BODY>
  269. </HTML>
  270.