留言簿

<% response.buffer=true viewpoint=Request("viewpoint") if viewpoint=empty then viewpoint=1 else end if session("user")="" %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Data Source=" & Server.Mappath("guest.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set rs = Server.CreateObject("ADODB.Recordset") Set vs = Server.CreateObject("ADODB.Recordset") checkpic="select usehtml from administrator" vs.open checkpic,conn,1,1 %> 留言簿


您的暱稱:">	電子郵件:">
個人首頁:">	<%if vs("usehtml")="yes" then%> 本留言版貼圖語法開關: ON <%elseif vs("usehtml")="no" then%> 本留言版貼圖語法開關: OFF <%else%> 貼圖密碼: <%end if%>
留言主題:	刪除密碼:
需回覆悄悄話	<%if request.cookies("rmember")="true" then%> 紀錄資料 <%else%> 紀錄資料 <%end if%> <%if request.cookies("sex")="男" then%> 男的女的 <%elseif request.cookies("sex")="女" then%> 男的女的 <%else%> 男的女的 <%end if%>

表情圖示

留言內容

過濾字元

<% if Request("page") = "" then page = 1 else page = CINT(Request("page")) end if if viewpoint="1" then Sql="select * from guestbook order by id desc" elseif viewpoint="2" then Sql="select * from guestbook where (replynumber>0) order by newreplytime desc" elseif viewpoint="3" then Sql="select * from guestbook where (replynumber<>0) order by replynumber desc" elseif viewpoint="4" then Sql="select * from guestbook where (bestnote='yes') order by id desc" end if rs.Open sql,conn,1,1 %> <%if rs.bof=true and rs.eof=true then%>

目前沒有留言

<%Response.end%> <%else%> <% rs.PageSize = 10 '分頁筆數 rs.AbsolutePage = page %>

第 <% =page %> 頁 / 共 <% =rs.PageCount %> 頁 (共 <% =rs.RecordCount %> 筆) 每頁是 <%=rs.PageSize%> 筆

依排序

第頁

<% persionalview=request.cookies("persionalview") if persionalview=empty then persionalview=1 else end if select case persionalview %> <%case 1%> <%for i = 1 to rs.pagesize %>


我的名字 :<%=rs("name")%>	<% if rs("email")<>empty then %> "> <% else end if %>		<% if rs("web")<>"http://" and rs("web")<>"" then %> " target="_blank"> <% else end if %>
留言主旨 :<%=rs("subject")%>		<%=rs("sex")%>	<%if rs("mustreply")="Yes" then%> 需回覆 <% else end if %>
留言內容 :
">
<%if rs("perfessionalnote")="Yes" then %> 這是給版主的悄悄話^O^... <%else%> <%=rs("talk")%> <%end if%>

<%=rs("administratorreply")%>
<%if rs("perfessionalnote")="Yes" then%> 留言日期:<%=rs("notetime")%> <%'replynumber限制 elseif rs("replynumber")=>10 then %> 爆滿了留言日期:<%=rs("notetime")%> <%else%> &viewpoint=<%=viewpoint%>">回覆留言日期:<%=rs("notetime")%> <%end if%>
<%if rs("notepassword")<>empty then%> 刪除密碼 <%else%> <%end if%>

<% replytotal=rs("replynumber") if replytotal=0 then else %>

網友回覆區

<%for j=1 to replytotal%> 回覆留言第<%=j%>則 ,<%=j%>)"> <%next%> <%end if%>

<% rs.movenext if rs.eof then exit for next %>

<%case 2%> <%for i = 1 to rs.pagesize %>

<%if rs("administratorreply")<>"" then%> <%else%> <%end if%> <% replytotal=rs("replynumber") if replytotal=0 then else %> <%end if%> <%if rs("notepassword")<>empty then %> <%else%> <%end if%>


今日大頭貼	留言人士: <%=rs("name")%>	<%=rs("sex")%>	<% if rs("email")<>empty then %> "> <% else end if %>
">	留言主題: <%=rs("subject")%>		<% if rs("web")<>"http://" and rs("web")<>"" then %> " target="_blank"> <% else end if %>
	留言日期: <%=rs("notetime")%>		<%if rs("mustreply")="Yes" then%> 需回覆 <% else end if %>
留言	<%if rs("perfessionalnote")="Yes" then %> 這是給版主的悄悄話^O^... <%else%> <%=rs("talk")%> <%end if%>
版主回覆	<%=rs("administratorreply")%>
橫批	<%for j=1 to replytotal%> ,<%=j%>)"> <%next%> <%end if%>
<%if rs("perfessionalnote")="Yes" then%> <%'回覆留言限制 elseif rs("replynumber")=>10 then%> 爆滿了 <%else%> &viewpoint=<%=viewpoint%>">回覆<%=rs("name")%>
"> 洗掉照片	刪除密碼

<% rs.movenext if rs.eof then exit for next %>

<%case 3%> <%for i = 1 to rs.pagesize %>

<%end if%> <%if rs("administratorreply")<>"" then%> <%else%> <%end if%> <% replytotal=rs("replynumber") if replytotal=0 then else %> <%if rs("notepassword")<>empty then %> <%else%> <%end if%>

參觀人士	主題：<%=rs("subject")%>	<% if rs("email")<>empty then %> "> <%else%> <%end if%> <% if rs("web")<>"http://" and rs("web")<>"" then %> "> <%else%> <%end if%>	<%if rs("perfessionalnote")="Yes" then%> <%elseif rs("replynumber")=>10 then%> 爆滿了 <%else%> &viewpoint=<%=viewpoint%>">
<%=rs("name")%> ">	留言： <%if rs("mustreply")="Yes" then%> 需回覆 <% else end if %>
	<%if rs("perfessionalnote")="Yes" then %> 這是給版主的私人留言... <%else%> <%=rs("talk")%> <%end if%>
	版主：
	<%=rs("administratorreply")%>
	訪客回覆：
	<%for j=1 to replytotal%> ,<%=j%>)"> <%next%> <%end if%>
	刪除密碼

<% rs.movenext if rs.eof then exit for next %>

<%end select%>

<% If Page <> 1 Then Response.Write "[ 第一頁 | " Response.Write "上一頁 ]" End IF If Page <> rs.PageCount Then Response.Write "[ 下一頁 | " Response.Write "最後一頁 ]" End IF %>

第 <% =page %> 頁 / 共 <% =rs.PageCount %> 頁 (共 <% =rs.RecordCount %> 筆) 每頁是 <%=rs.PageSize%> 筆

<%end if%> <% rs.close conn.close set rs=nothing set conn=nothing %>