<%@ Language="VBScript" codepage=65001%> 主人呢絨-留言板 <% Page = Clng(Request("Page")) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From guestbook order by g_id desc", conn, 1, 3 rs.pagesize=10 if page < 1 then page = 1 if page > rs.pagecount then page = rs.pagecount If rs.PageCount > 0 then rs.AbsolutePage = Page myself=request.servervariables("path_info") randomize n1=fix(rnd*9)+1 n2=fix(rnd*9)+1 n3=fix(rnd*9)+1 n4=fix(rnd*9)+1 session("guest")=cstr(n1&n2&n3&n4) If Request.QueryString("mo")="logout" then session.Abandon() response.redirect"guestbook.asp" end if 'reply If Request.QueryString("movement")="replay" then abcd=request.form("idddd") Set rs = Server.CreateObject("ADODB.Recordset") sql= "Select * From guestbook where g_id="&abcd rs.Open sql, conn, 1, 3 rs("g_reply")=request.form("reply") rs("g_time")=date() rs.update response.Redirect "guestbook.asp" end if '----------------------------刪除開始 if request("act")="del" Then Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From guestbook ", conn, 1, 3 sql = "delete from guestbook where g_id = " & request("id") conn.execute(sql) response.redirect"guestbook.asp" end if '------------------------------------刪除結束 %>
E-mail:
姓名:
悄悄話: <%end if%>
留言內容:
 
/

<%if rs.eof then%> <%else%> <%for i=0 to rs.pagesize%> <%if rs("g_reply")<>"" then%> <%end if%> <%rs.movenext if rs.eof then exit for next end if%>
尚無資料
No.<%=rs("g_id")%> / <%=year(rs("g_time"))%> 年 <%=month(rs("g_time"))%> 月 <%=day(rs("g_time"))%> 日
留言人:<%if rs("g_secret")=0 or rs("g_mail")=Session("user") then%><%=rs("g_name") %><%else%>悄悄話<%end if%>
>> <%if rs("g_secret")=0 or rs("g_mail")=Session("user") or session("identify")=1 then%><%=rs("g_content") %><%else%> secret悄悄話<%end if%> 
<%if session("identify")=1 then%>
"/> |">刪除留言
<%end if%>
<%=rs("g_time")%>
< 回覆 ><%if rs("g_secret")=0 or rs("g_mail")=Session("user") or session("identify")=1 then%><%=rs("g_reply")%><%else%> secret悄悄話<%end if%> 


<% if page <> 1 then%> ">第一頁">上一頁 <% end if %> <% if page <> rs.pagecount then %> ">下一頁 ">最後一頁 <%end if %>