<% 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%>