blogvisit.asp

来自「L-Blog是一套BLOG系统」· ASP 代码 · 共 52 行

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="header.asp" -->
<table width="768" border="0" align="center" cellpadding="4" cellspacing="6" background="images/blog_main.gif">
  <tr>
    <td width="118"valign="top" nowrap bgcolor="#FFFFFF"><div class="siderbar_head"></div><div class="siderbar_head" align="center" >访问<br>记录<br>列表</div><br><div class="siderbar_head">基数：<%=blog_VisitBaseNums%></div><div class="siderbar_head">访问：<%=blog_VisitNums%></div><div class="siderbar_head">今日：<%=Conn.ExeCute("SELECT COUNT(coun_ID) FROM blog_Counter WHERE Day(coun_Time)=Day(Now)")(0)%></div>
        <%
	  SQLQueryNums=SQLQueryNums+1
	  Dim CurPage,Url_Add,memSQL
	  IF CheckStr(Request.QueryString("Page"))<>Empty Then
		  Curpage=CheckStr(Request.QueryString("Page"))
		  IF IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
	  Else
		  Curpage=1
	  End IF
	  memSQL="SELECT * FROM blog_Counter ORDER BY coun_ID DESC"
	  Url_Add="?"%></td>
    <td width="100%" valign="top" bgcolor="#FFFFFF"><%
		Dim coun_List
		Set coun_List=Server.CreateObject("ADODB.Recordset")
		coun_List.Open memSQL,Conn,1,1
		SQLQueryNums=SQLQueryNums+1
		IF coun_List.EOF AND coun_List.BOF Then
			Response.Write("<table width=""98%"" border=""0"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr bgcolor=""#FFFFFF""><td>暂时没有访问记录！</td></tr></table>")
		Else
			coun_List.PageSize=20
			coun_List.AbsolutePage=CurPage
			Dim coun_Num,MultiPages,PageCount
			coun_Num=coun_List.RecordCount
			MultiPages="<span class=""smalltxt"">"&MultiPage(coun_Num,20,CurPage,Url_Add)&"</span>"
			Response.Write(MultiPages)	
			Response.Write("<br /><img name=""HideImage"" src="""" width=""2"" height=""6"" alt="""" style=""background-color: #FFFFFF"" /><br /><table width=""99%"" border=""0"" align=""center"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr class=""msg_head""><td>来访时间</td><td>IP地址</td><td>客户器信息</td><td nowrap>来源</td></tr>")
			Do Until coun_List.EOF OR PageCount=20
				Response.Write(" <tr bgcolor=""#FFFFFF"" style=""font-size:11px;""><td nowrap>"&DateToStr(coun_List("coun_Time"),"Y-m-d H:I A")&"</td><td nowrap><a href=""ipview.asp?ipdata="&coun_List("coun_IP")&""" target=""_blank"" title=""点击查看IP地址来源"">")
				If coun_List("coun_IP")=Guest_IP Then
					Response.Write("<font color=""#FF0000"">"&coun_List("coun_IP")&"</font>")
				Else
					Response.Write(coun_List("coun_IP"))
				End If
				Response.Write("</a></td><td>"&coun_List("coun_Agent")&"</td><td align=""center""><image src=""images/icon_refresh.gif"" alt=""来源URL："&coun_List("coun_Refer")&""" onmouseover=""this.style.cursor='hand';"" /></td></tr>")
				coun_List.MoveNext
				PageCount=PageCount+1
			Loop
			Response.Write("</table><img name=""HideImage"" src="""" width=""2"" height=""6"" alt="""" style=""background-color: #FFFFFF"" /><br />")
			Response.Write(MultiPages)	
		End IF
		coun_List.Close
		Set coun_List=Nothing
		%>
</td>
  </tr></table>
<!--#include file="footer.asp" -->