<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%If SysCode="" Then Response.End%>

<%
 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">留言IP</td>
<td class="td_nowrap">操作</td>
</tr>
<%
PageUrl = "?Action="&Action

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
 Rs.pagesize=20
 TotalRs=Rs.RecordCount
 TotalPage=Rs.PageCount
 MyPageSize=Rs.PageSize
 Page=CLng(ChkStr(Request("Page"),2))
 If Page<=0 Then Page=1
 If Page>TotalPage Then Page=TotalPage
 Rs.AbsolutePage=Page
End If
%>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr class="td_2"> 
<td class="td_nowrap"><%=Rs("ID")%></td>
<td><%=server.HTMLEncode(Rs("Content"))%></td>
<td class="td_nowrap"><%=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><%=Rs("IP")%></td>
<td class="td_nowrap"><a href="?Action=gbookmodify&ID=<%=Rs("ID")%>">修改</a> <a href="?Action=gbookdel&ID=<%=Rs("ID")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></td>
</tr>
<%rs.movenext
mypagesize=mypagesize-1
wend%>
</table>

<%
Response.write GetPageList(TotalRs,TotalPage,Page,PageUrl,Px)
%>
