<% '[基本設定] '你的網頁名稱 yourlogo="網站建置百寶箱" page_set=10 '每頁筆數 '---留言發表區面版顏色 post_bg_color1="#FFCCFF" '頂端 post_bg_color2="#FFFFFF" '中間 post_bg_color3="#FFF7FF" '底部 '---留言顯示區面版顏色 show_bg_color1="#FFE8FF" '頂端 show_bg_color2="#FFFFFF" '中間 '---滑動區文字 show_text=" 哈囉~Every body~ " %> 留言板2.0 <%if request("admin")="admin" then%>
 

請輸入帳號 : 
請輸入密碼 : 
 
<%else%>
【我的留言板】
姓  名:  文字顏色:
我的留言:
<%=show_text%>
<%if Session("IsLogin") = false then%>站長管理<%else%>登出<%end if%> <% set conn=server.createobject("adodb.connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("new.mdb") GetMdbConnect("1") Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * FROM new Order By icode desc" rs.open sql,conn,1,1 if rs.eof or rs.bof then pp=request("page") response.write "


:::尚有任何討論話題:::


" else IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then page=1 else Page=Int(Abs(Request("page"))) End if rs.pagesize = page_set total = rs.RecordCount mypagesize = rs.pagesize rs.absolutepage = page do while not rs.eof and mypagesize>0 %>

 <%=rs("name")%>      (<%=rs("time")%>) <%=rs("ip")%> <%if Session("IsLogin") = True then%>> X 刪除 X <%end if%>

><%=rs("main")%>
<% mypagesize=mypagesize-1 rs.movenext loop %>

<% response.write "主題數目("&total&") 頁數:"&page&"/"&rs.pagecount&" " if page>1 then response.write "[上一頁]" else response.write "[上一頁]" & " " if page[下一頁]" else response.write "[下一頁]" rs.close set rs=nothing connclose(rs) conn.close set conn=nothing end if %>



本留言版目前由[<%=yourlogo%>]使用.
1 <% response.write session("book") end if%>