<%
'乘风多用户计数器 Sql版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示
%>
<%
 If Session("CFCountUser_View")<>"" Then'为独立查看者时
  Call AlertBack("独立查看者无法对此操作",1)
 End If
%>

        <table class="tb_1">
          <tr class="tr_1"> 
            <td class="td_nowrap">ID</td>
            <td class="td_nowrap">留言内容</td>
            <td class="td_nowrap">联系方式</td>
            <td class="td_nowrap">留言时间</td>
			<td class="td_nowrap">留言来源</td>
			<td class="td_nowrap">留言当前页</td>
            <td class="td_nowrap">操作</td>
          </tr>
<%

Sql="Select * From CFCount_Gbook where UserName='"&UserName&"' Order By AddTime Desc"

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1

If Not rs.eof then
 IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
  page=1
 Else
  Page=Int(Abs(Request("page")))
 End if
 rs.pagesize=15
 totalrs=rs.RecordCount
 totalpage=rs.pageCount
 mypagesize=rs.pagesize
 rs.absolutepage=page
End If
%>
          <%
While Not Rs.Eof And MyPageSize>0
%>
          <tr class="td_2"> 
            <td class="td_nowrap"><%=Rs("ID")%></td>
            <td width="200px" style="word-wrap: break-word;word-break:break-all;"><%=server.HTMLEncode(Rs("Content"))%></td>
            <td width="200px" style="word-wrap: break-word;word-break:break-all;"><%=server.HTMLEncode(Rs("Contact"))%></td>
            <td class="td_nowrap"><%=Rs("AddTime")%></td>
			<td><%If Rs("Ly")<>"" Then%><a href="<%=Rs("Ly")%>" target="_blank">查看</a><%End If%></td>
			<td><%If Rs("CurrWeb")<>"" Then%><a href="<%=Rs("CurrWeb")%>" target="_blank">查看</a><%End If%></td>
            <td class="td_nowrap"><a href="?Action=gbookmodify&ID=<%=Rs("ID")%>">修改</a> <a href="User.aspx?Action=gbookdel&ID=<%=Rs("ID")%>" onClick="return confirm('确定要删除吗?')">删除</a></td>
          </tr>
          <%rs.movenext
mypagesize=mypagesize-1
wend%>
        </table>
		
<table class="tb_3">
  <tr>
    <td><a href="?Action=<%=Action%>&Page=1">第一页</a>
            <%
if page>1 then%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
            <%
end if
%>
            <%
if page<rs.pagecount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
            <%

end if
%>
            <a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=rs.pagesize%>条
<%
Response.write "&nbsp;&nbsp;转到第<select id='page' onChange=""window.location=document.getElementById('page').options[document.getElementById('page').selectedIndex].value"">"
For I=1 To TotalPage
    Response.Write "<option value=?Action="&Action&"&Page="&i
 If Page=I Then Response.Write " selected"
 Response.Write ">"& I &"</option>"
Next
Response.write "</select>页"
%>
      </td>

  </tr>
</table>