📄 counthistory.asp
字号:
<%
Dim Cnn
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("count.mdb")
call headcode
dim jsq,totalhits,i,a1,a2,a3,a4
set jsq = Server.CreateObject("ADODB.RecordSet")
jsq.open "select top 100 visitdate,visittime,userip,userie from jsq order by id desc",cnn,1,1
totalhits = jsq.recordcount
if totalhits=0 then
jsq.close
set jsq=nothing
response.write "没有记录"
response.end
end if
i = 1
%>
<table border="1" width="97%" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="40" height="30" align="center">NO.</td>
<td width="90" align="center">日 期</td>
<td width="90" align="center">时 间</td>
<td width="150" align="center">来 源</td>
<td> 浏览器类型</td>
</tr>
<%
do until jsq.eof
a1 = jsq("visitdate")
a2 = jsq("visittime")
a3 = jsq("userip")
a4 = jsq("userie")
%>
<tr>
<td height="25" align="center"><%=i %></td>
<td> <%=a1 %></td>
<td> <%=a2 %></td>
<td> <%=a3 %></td>
<td> <%=a4 %></td>
</tr>
<%
jsq.MoveNext
i = i +1
loop
response.write "</table><br>"
response.write "<div align='left'> 根据版主设定,只能浏览最近的 100 条记录.</div>"
jsq.close
set jsq=nothing
call endcode
%>
<% sub headcode %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Netzg">
<title>Netzg.com计数器----网站历史记录查看</title>
<style type="text/css">
<!--
TD { FONT-SIZE: 10pt; color: #000000}
p { font-size:10pt; color: #ff0000}
img { border: 0 solid #008000 }
.capfont1{ font-size:18pt; color: #3366ff; FONT-FAMILY: "Arial Black"}
.capfont2{ font-size:18pt; color: #a00000; FONT-FAMILY: "华文行楷"}
.bootfont{ font-size:9pt; color: #3366ff}
.INPUT1 { BACKGROUND: #ffffff; BORDER: #808080 1px solid; }
A:link { color: #3366ff; text-decoration: none; font-size: 10pt }
A:visited { COLOR: #3366ff; TEXT-DECORATION: none; font-size: 10pt }
A:hover { COLOR: #ff9933; TEXT-DECORATION: underline; font-size: 10pt }
A:active { COLOR: #808080; TEXT-DECORATION: none; font-size: 10pt }
-->
</style>
</head>
<body>
<div align="center">
<p><font class="capfont1">Netzg.com</font><font class="capfont2">计数器设置</font></p>
<% end sub %>
<% sub endcode %>
<hr width="97%" noshade size="1" color="#C0C0C0">
<font class="bootfont">Powered By:</font>
<a href="mailto:netzg@163.com">Netzg</a>
<a href="http://www.netzg.com">Http://www.netzg.com</a>
</div>
</body>
</html>
<% end sub %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -