<!--#include file="incfiles.inc.asp"-->
<%
Call CheckPower(3)
If Request.QueryString("action") = "del" Then Call DelRecord(Request.QueryString("id"), "administrator", "administrator", "删除成功")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% = PageTitle %></title>
<% Call LoadCSS() %>
</head>
<body>
<div id="page">
<%
Call StateBar()
Call LPart()
Call Title("访问者信息","Visitor Information")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="10" id="mainbox"><tr><td>
<!-- 数据列表 -->
<table border="0" cellspacing="0" id="list">
<tr class="title">
<td><span>编号</span></td>
<td>IP地址</td>
<td>转入URL</td>
<td>浏览器</td>
<td>操作系统</td>
<td>访问时间</td>
</tr>
<%
Dim intPage
Dim objRS, strSQL, i
Dim strShowContent, strURL
Set objRS = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM visitor ORDER BY vtime DESC"
objRS.Open strSQL, objConn, 1, 1
If objRS.RecordCount = 0 Then
Response.Write("<tr><td colspan='7' align='center'>找不到记录</td></tr>")
Else
objRS.PageSize = 10
intPage = Request.QueryString("page")
If Len(intPage) = 0 Or IsNumeric(intPage) = False Then intPage = 1
Call CheckValue(intPage, "超出可用页码范围", "", "less", 0, 1)
Call CheckValue(intPage, "超出可用页码范围", "", "more", 0, objRS.PageCount)
objRS.AbsolutePage = intPage
For i = 1 To objRS.PageSize
If objRS.EOF Then Exit For
If objRS("fromurl") = "0" Then strURL = "直接进入" Else strURL = objRS("fromurl")
strShowContent = "<tr onmouseover=this.bgColor='#fafafa'; onmouseout=this.bgColor='';>" &_
"<td width='40'>" & objRS("id") & "</td>" &_
"<td></td>" &_
"<td>" & strURL & "</td>" &_
"<td>" & CheckBrowser(objRS("browseros")) & "</td>" &_
"<td>" & CheckOS(objRS("browseros")) & "</td>" &_
"<td>" & objRS("vtime") & "</td>" &_
"</tr>"
Response.Write(strShowContent)
objRS.MoveNext()
Next
End If
%>
</table>
<%
Call FlipPage(intPage, objRS.PageCount, objRS.RecordCount, objRS.PageSize, "", 0)
objRS.Close()
Set objRS = Nothing
%>
<!-- // 数据列表 -->
</td></tr></table>
<%
Call Footer()
Call CloseConn()
%>
</div>
</body>
</html>
參考答案:未发现什么错误的地方...
你可以采用这种方法检测..
IIS配置好网页.然后打开网页(这里要关闭IP判断)...
分析结果吧...