<% ' ' IF request("admin") = "exit-admin" THEN Session("password") = False END IF%> <% ' *****************取 admin 與 admin.asp 內輸入的密碼**************** PASSWORD = Request.FORM("PASSWORD") %> <%=MBTitle%> <% ' 讀取BOOK.ASP所需的設定值,請自行修改 CONFIG.INC%> <% ' ***************取所要瀏覽的頁次***************** Page = Request("Page") If Page = "" Or Page = "0" Then Page = "1" End If ' *****************取得資料庫內共有幾筆資料********************** num = rs.recordcount %> background="../Graphic/Back8.jpg">


我要留言

<% IF session("password") = adminpass then %>
離開管理

<% else %>
管理模式

<% end if %>
 留言數 : <%=rs.recordcount%> (目前 <%=CINT(page)%> / <% =rs.PageCount %> 頁)


重新整理


<% IF session("password") = adminpass THEN%> <%=README1%> <% ELSE%> <%=README2%> <% END IF%>

<% If rs.EOF Then Else Size = 10 * Page Read = Size - rs.RecordCount PSize = Size - 10 If PSize =< rs.RecordCount Then For i = 1 to PSize rs.MoveNext NUM=NUM-1 Next End If If Read > 0 And Read < 10 Then For i = 1 to 10 - Read RsToGBook rs rs.MoveNext NUM=NUM-1 Next Else If Read > 10 Then rs.MoveFirst For i = 1 to 10 RsToGBook rs rs.MoveNext NUM=NUM-1 Next Else For i = 1 to 10 RsToGBook rs rs.MoveNext NUM=NUM-1 Next End If End If End If Sub RsToGBook( rs ) ' 取得資料庫內各欄位的資料 ID=rs("編號") INdate = rs("留言日期") Email = rs("電子郵件") HomePage = rs("網頁位址") Name = rs("姓名") Sex = rs("性別") Job = rs("職業") Memo = rs("留言內容") MemoTime = rs("留言時間") icq=rs("icq") reply=rs("回應") replytime=rs("回應時間") mimi=rs("留言性質") if Sex="女" then Sex="" end if %> > #<%=NUM%> <%if date() = indate then%> <% end if %> 留言者: <%=name%>  <% If len(TRIM(Email)) <> 0 Then Email = "
電子信箱" RESPONSE.WRITE email End If%> <%If icq <> "n" and icq <> " " Then%> <% End If %> <%If HomePage <> "http://" Then%> TARGET=_BLANK>首頁 <%End If%>  [<%=Sex%>] [<%=Job%>] [<%=MemoTime%>] <% IF session("password") = adminpass AND MIMI = "NO" THEN%> [悄悄話] <%End If%> <% IF MIMI = "YES" OR session("password") = adminpass THEN%> <%=memo%> <%ELSE%> 站長這是留給您的悄悄話... ^.* ...記得回我哦!! <% END IF %> <% IF session("password") <> adminpass then %> <% IF MIMI = "YES" THEN%>
[訪客回應]
<%END IF%> <%END IF%> <% IF len(trim(reply)) <> 0 then %>
站長於 <%=replytime%> 回應
<% =reply %> <% end if %> <% IF session("password") = adminpass then %>
[>修改| >刪除| >回應]
<% end if %> <% End Sub %> <% if rs.recordcount <= 0 then %>
Sorry !! 目前尚無留言...
<% end if %>