View Source Code

SourceFileName = "samples/bbs2-admin.asp"

C:\inetpub\wwwroot\aspsample\samples\bbs2-admin.asp

<!-- このスクリプトはご自由にご利用頂いて結構ですが、無断転用などを禁止いたします。 -->
<!-- 下記のuseridの部分をお客様のユーザーIDと置き換えて下さい。-->
<!-- 管理者用を実行するには、「bbs2-admin.asp」「bbs2-edit.asp」「bbs2-write.asp」 -->
<!-- 「bbs2-delete.asp」「bbs2-delete2.asp」全てが必要です。 -->
<html>
<head><title>掲示板（管理者用）</title></head>
<body BGCOLOR="#FFFFEE">
<basefont SIZE="2">
<h1 align="center"><font size="5">掲示板（管理者用）</font></h1></font><p><br></p>
<hr>
<%
Call Disp(Request("Page"))
%>
</table>
</body>
</html>
</body>
</html>
<script LANGUAGE="VBScript" RUNAT="Server">

  Sub Disp(Page)
     MaxLine = 30
     If Page = "" Then Page = 0
     Set CON = Server.CreateObject("ADODB.Connection")
     CON.Open("DSN=userid_bbs")
     SQL = "Select * From 掲示板 order by [code] desc"
     Set RS = CON.Execute(SQL)
     AllLine = Cint(RS("code"))
     SQL = "Select * From 掲示板 order by [code] desc"
     Set RS = CON.Execute(SQL)
     On Error Resume Next
     If Err <> 0 Then  
       Select Case Err       
       Case 3021
       Case Else
         Response.Write("エラー元: " & Err.Source & "<BR>")
         Response.Write("エラー番号: " & Err.Number & "<BR>")
         Response.Write("エラーの説明: " & Err.Description & "<BR>")
         Err.Clear
       End Select
     End if
     Response.Write "<font size=3>"
     Response.Write "全部で" & AllLine & "件中　"
     If AllLine =< MaxLine Then
       Response.Write AllLine & "-1(" & AllLine & "件)が表示されています。"
     Else
       DispNum1 = AllLine - (Page * MaxLine)
       DispNum2 = AllLine - (Page * MaxLine) - MaxLine + 1
       If DispNum2 <= 0 Then DispNum2 = 1
       MaxLine2 = DispNum1 - DispNum2 + 1
       Response.Write DispNum1 & "-" & DispNum2 & "(" & MaxLine2 & "件)が表示されています。"
     End if
     Response.Write "<br><hr>"
     RS.Close
     Set RS = Nothing
     CON.Close
     Set CON = Nothing

     If Page <> 0 Then
       Response.Write "<b><font size=2><a href='bbs2-admin.asp?Page=" & Page -1 & "'>前の" & MaxLine & "件</a>　</font></b>"
     Else
       Response.Write "<font size=2>前の" & MaxLine & "件　</font>"
     End if
     If (Page+1)*MaxLine < AllLine Then
       Response.Write "<b><font size=2><a href='bbs2-admin.asp?Page=" & Page +1 & "'>次の" & MaxLine & "件</a>　</font></b>"
     Else
       Response.Write "<font size=2>次の" & MaxLine & "件　</font>"
     End if
     Response.Write "</font>"

     Set CON = Server.CreateObject("ADODB.Connection")
     CON.Open("DSN=userid_bbs")
     SQL = "Select * From 掲示板 order by code desc"
     Set RS = CON.Execute(SQL)
     LineCount = 1
     If Page <> 0 Then
       SkipNum = (Page * MaxLine)
       Do While Not RS.EOF
         If SkipNum = 0 Then Exit Do
         RS.MoveNext
         SkipNum = SkipNum -1
       Loop
     End if
     Do While Not RS.EOF
          If LineCount > MaxLine Then Exit Do
          LineCount = LineCount + 1
          buf = buf & "<TABLE CELLPADDING=4 WIDTH=100% BORDER><TR>"
          buf = buf & "<TD BGCOLOR=#CCFFCC WIDTH=60>#" & Right("0000" & CSTR(CSNG(RS("code"))), 4) & "</TD>"
          If RS("email") = "" Or RS("email") = " " Then
             buf = buf & "<TD BGCOLOR=#CCFFCC>" & RS("name") & "</TD>"
          Else
             buf = buf & "<TD BGCOLOR=#CCFFCC><A HREF=" & Chr(34) & "mailto:" & RS("email") & "?Subject=Re: " & RS("subject") & Chr(34) & ">" & RS("name") & "</A></TD>"
          End If
          buf = buf & "<TD BGCOLOR=#CCFFCC WIDTH=120 ALIGN=CENTER><FONT SIZE=2>" & RS("date") & " " & RS("time") & "</FONT></TD></TR></TABLE>"
          buf = buf & "<TABLE CELLPADDING=4 WIDTH=100% BORDER>"
          buf = buf & "<TR>"
          buf = buf & "<TD BGCOLOR=#CCCCCC WIDTH=20><FORM METHOD=POST ACTION='bbs2-edit.asp?EDIT=" & RS("code") & "' target='top'><INPUT TYPE=SUBMIT VALUE='修正'></FORM></TD>"
          buf = buf & "<TD BGCOLOR=#CCCCCC>" & RS("subject") & "</TD>"
          buf = buf & "</TR>"
          buf = buf & "</TABLE><BR>"
          RS.MoveNext
     Loop
     Response.Write buf
     Response.Write "<hr>"
     If Page <> 0 Then
       Response.Write "<b><font size=2><a href='bbs2-admin.asp?Page=" & Page -1 & "'>前の" & MaxLine & "件</a>　</font></b>"
     Else
       Response.Write "<font size=2>前の" & MaxLine & "件　</font>"
     End if
     If (Page+1)*MaxLine < AllLine Then
       Response.Write "<b><font size=2><a href='bbs2-admin.asp?Page=" & Page +1 & "'>次の" & MaxLine & "件</a>　</font></b>"
     Else
       Response.Write "<font size=2>次の" & MaxLine & "件　</font>"
     End if
     RS.Close
     Set RS = Nothing
     CON.Close
     Set CON = Nothing
  End Sub

</Script>