📄 list.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="bbs.css" -->
<title><%=hometitle%>统计</title>
<body <%=background%>>
<%if request("view")<>"" then
view=request("view")
url="?view="&view&""
end if
%>
<%
if request("view")<>"" then
view=request("view")
url1="?view="&view&"&"
else
url1="?"
end if
key=trim(request("key"))
fpx=request("fpx")%>
<center>
<table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center >
</tr>
<tr align="center">
<td bgcolor=<%=tColor1%> class=tdc2 height="22" width="100%" colspan="10">
统计系统排行 </td>
</tr>
</tr>
<tr align="center"> <form name="form1" method="post" action="list.asp<%=url%>">
<td bgcolor=<%=tColor1%> class=tdc height="22" width="100%" colspan="10">
关键字：
<input type="text" name="key" class=tdc size="15">
排序: <select name=fpx>
<option value="vtotal" <%if fpx="vtotal" then%> selected<%end if%>>总访问量</option>
<option value="vtotal1" <%if fpx="vtotal1" then%> selected<%end if%>>ip总访问量</option>
<option value="vnowyear" <%if fpx="vnowyear" then%> selected<%end if%>>今年访问量</option>
<option value="vnowmonth" <%if fpx="vnowmonth" then%> selected<%end if%>>今月访问量</option>
<option value="vpremonth" <%if fpx="vpremonth" then%> selected<%end if%>>上月访问量</option>
<option value="vweek" <%if fpx="vweek" then%> selected<%end if%>>今周访问量</option>
<option value="vtoday" <%if fpx="vtoday" then%> selected<%end if%>>今天访问量</option>
<option value="vyestaday" <%if fpx="vyestaday" then%> selected<%end if%>>昨天访问量</option>
<option value="vregtime" <%if fpx="vregtime" then%> selected<%end if%>>最近注册</option>
</select>
<input type="submit" name="Submit" value="搜 索" class=bdtj> </td></form>
</tr>
<%page=request.querystring("page")
if page="" then
page=1
end if
pages =t_page
if fpx="" then fpx="vregtime"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from vcount where 0=0 "
if key<>"" then sql=sql&" and (vtitle like '%"&key&"%' or vcontent like '%"&key&"%' or vuser like '%"&key&"%') "
sql=sql&" order by "&fpx&" desc"
rs.Open sql,conn,1,1
rs.pagesize = pages
if not(rs.eof or rs.bof) then
maxpagecount=rs.pagecount
r=cint(rs.RecordCount)'记录总数
rs.absolutepage = page
rcount1=0
pagestart=page-5
pageend=page+5
if pagestart<1 then
pagestart=1
end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
%>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc height="22" width="100%" colspan="10">
当前共有<%=r%>条记录 </td>
</tr>
<tr>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">网站名称</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">用户名</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">总访问量</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">ip总访问量</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">今年访问量</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">今月访问量</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">上月访问量</td>
<td height="20" width="10%" <%=hColor2%> class=tdc1 align="center">今周访问量</td>
<td height="20"width="10%" <%=hColor2%> class=tdc1 align="center">今日访问量</td>
<td height="20" width="71" <%=hColor2%> class=tdc1 align="center">昨日访问量</td>
<% do while not rs.eof and rcount1 <rs.pagesize
if trcolor="" then
bgcolor1=""&tColor1&""
trcolor=1
else
bgcolor1=""&tColor2&""
trcolor=""
end if
%>
<tr >
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%if Request.Cookies(feiyuetongji)("Username")<>"" then%><a href="edituser.asp<%=url1%>user=<%=rs("vuser")%>" title="点击进入编辑此用户" targert=_blank><%else%><a href="reg.asp?action=<%=rs("vuser")%>" title="点击进入获取代码" target=_blank><%end if%><%=rs("vtitle")%></a></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><a href="stat_index.asp?view=<%=rs("vuser")%>" title="点击进入查看用户统计" target=_blank><%=rs("vuser")%></a></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vtotal")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vtotal1")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vnowyear")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vnowmonth")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vpremonth")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vweek")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vtoday")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vyestaday")%></td>
</tr>
<tr >
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center">
网址</td>
<td height="22" width="50%" bgcolor=<%=bgcolor1%> class=tdc align="left" colspan="5"> <a href="<%=rs("vurl")%>" target=_blank title="点击进入查看用户网站"><%=rs("vurl")%></a></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center">
站长邮箱</td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><a href="mailto:<%=rs("vemail")%>" title="点击写信给该用户，<%=rs("vemail")%>">写信</a></td>
<td height="22"width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center">
站长名称</td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center"><%=rs("vbanzhu")%></td>
</tr>
<tr >
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center">
简介</td>
<td height="22" width="60%" bgcolor=<%=bgcolor1%> class=tdc align="left" colspan="6" style="Word-Break:Break-all"><%=rs("vcontent")%></td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center" colspan="1">
申请时间</td>
<td height="22" width="10%" bgcolor=<%=bgcolor1%> class=tdc align="center" colspan="2"><%=rs("vregtime")%></td>
</tr>
<tr>
<td colspan="10" <%=hColor2%> height=5 width="100%"></td>
</tr>
<% rs.movenext
rcount1=rcount1+1
loop
set rs=nothing
else
%>
</tr>
<tr align="center">
<td bgcolor=<%=tColor2%> class=tdc height="22" width="100%" colspan="10">
很抱歉！找不到你想要的记录 </td>
</tr><%
end if%>
<tr align="left">
<td colspan="10" bgcolor=<%=tColor1%> class=tdc width="100%" height="22" > <a href=list.asp<%=url1%>key=<%=key%>&fpx=<%=fpx%>&page=1><<</a>
<% for i=pagestart to pageend
if i=0 then
i=1
end if
strurl="<a href=list.asp"&url1&"key="&key&"&fpx="&fpx&"&page="&i&">["&i&"]</a>"
response.write strurl
response.write " "
next
%><a href=list.asp<%=url1%>key=<%=key%>&fpx=<%=fpx%>&page=<%=maxpagecount%>>>></a> ..页次:<%=page%>/<%=maxpagecount%>页 每页:<%=pages%></td></tr>
</table>
</center>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -