• <listing id="x6rtw"><menu id="x6rtw"></menu></listing>
  • <listing id="x6rtw"><object id="x6rtw"></object></listing>
      <listing id="x6rtw"><cite id="x6rtw"><p id="x6rtw"></p></cite></listing>
      1. 在線留言
        ·  當前位置:網站首頁 >> 在線留言
              
          <% set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from Feedback where online='1' and tid=0 " keywords=request("keywords") if keywords<>"" then sql=sql+ " and Comments like '%"&keywords&"%' " sql=sql + "order by top desc,Postdate desc" rs.open sql,conn,1 if not (rs.eof and rs.bof) then '如果有留言時,就顯示留言。此行的if與倒數第6行的end if相對應 if pages=0 or pages="" then pages=10 '每頁留言條數 rs.pageSize = pages '每頁記錄數 allPages = rs.pageCount '總頁數 page = Request("page") '從瀏覽器取得當前頁 'if是基本的出錯處理 If not isNumeric(page) then page=1 if isEmpty(page) or Cint(page) < 1 then page = 1 elseif Cint(page) >= allPages then page = allPages end if rs.AbsolutePage = page '轉到某頁頭部 Do While Not rs.eof and pages>0 UserName=rs("UserName") '用戶名 pic=rs("pic") '頭像 face=rs("face") '表情 Comments=rs("Comments") '內容 bad1=split(bad,"/") '過濾臟話 for t=0 to ubound(bad1) Comments=replace(Comments,bad1(t),"***") next Replay=rs("Replay") '回復 Usermail=rs("Usermail") '郵件 url=rs("url") '主頁 I=I+1 '序號 temp=RS.RecordCount-(page-1)*rs.pageSize-I+1 %>
        姓名:<%=UserName%>
        來自:<%=left(rs("ip"),(len(rs("ip"))-2))+"**"%>
        郵件:<%=Usermail%>
        電話:<%=URL%>
        <%if rs("top")<>"1" then response.write "[NO."&temp&"]"%> 發表于:<%=cstr(rs("Postdate"))%>
        <% '是否屏蔽留言內容中的html字符 if html=0 then response.write replace(server.htmlencode(Comments),vbCRLF,"
        ") else response.write replace(Comments,vbCRLF,"
        ") end if %>

        <%if rs("Replay")<>"" then%>
        管理員回復:
        <%=Replay%>

        <%end if%>
        <% pages = pages - 1 rs.movenext if rs.eof then exit do loop response.write "
        總計留言"&RS.RecordCount&"條 " if page = 1 then response.write "首頁 前頁" else response.write "首頁 前頁" end if if page = allpages then response.write " 下頁 末頁" else response.write " 下頁 末頁" end if response.write " 第"&page&"頁 共"&allpages&"頁   轉到第 " response.write "
        " response.write "
        " else response.write "
        " if keywords="" then response.write "暫時沒有留言" else response.write "抱歉,沒有找到您要查到的內容

        返回上一頁" end if response.write "
        " end if %>
        西西GOGO高清大胆专业,国产精品泄火熟女,天堂AⅤ日韩欧美国产,成在线人永久免费视频播放