"
Response.end
end if
pw=request("pw")
flag=Request("flag")
If Request.Cookies("guestbookFace")="" then
Response.Cookies("guestbookFace")="b01.gif"
Response.Cookies("guestbookFace").Expires=DateAdd("d",3650,Date)
End if
Set rs3=Server.CreateObject("ADODB.RecordSet")
rs3.Open "Select * From root",conn,0,1
%>
<%
if flag="1" then
rs.open "Select * From CuteBook where id=" & id,Conn,1,3
if rs("secret")<>"0" then
Response.write "
"
else
if rs("sex")="M" then
sex="男生"
elseif rs("sex")="F" then
sex="女生"
else
sex="不明"
end if
%>
<%=rs("name")%>(<%=sex%>)<% if rs("MAIL")<>"" then %><% end if %> <% if rs("homepage")<>"" then %><% end if %> [ <%=rs("topic")%> ] <%=rs("time")%>
><%=rs("message")%>
<%
If rs("re")="1" then
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.Open "Select * From ReCuteBook Where ID=" & rs("ID") & " order by time",conn,1,3
While Not rs2.Eof
if rs2("sex")="M" then
sex="男生"
elseif rs2("sex")="F" then
sex="女生"
else
sex="不明"
end if%>
<%=Trim(rs2("name"))%>(<%=sex%>)回覆 <% if rs2("MAIL")<>"" then %> <% end if %><% if rs2("homepage")<>"" then %> <% end if %><%=rs2("time")%>
border=0>
><%=rs2("message")%>
<%
rs2.MoveNext
Wend
rs2.Close
Set rs2=Nothing
End if
%>
<%end if%>
回留言板
琉璃琉璃留言版 v1.54
Copyright 2002 by 琉璃琉璃的世界. All Rights Reserved.
<%
rs.Close
Set rs=Nothing
%>
<%Else%>
<%=rs3("GBname")%>
悄悄話密碼認證
回留言板
琉璃琉璃留言版 v1.54
Copyright 2002 by 琉璃琉璃的世界. All Rights Reserved.
