www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/data/adminly2.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()
call chkqx(3,15)
Function lookaddress(sip)
Dim str1,str2,str3,str4
Dim num
Dim irs
If isnumeric(left(sip,2)) Then
If sip="127.0.0.1" Then sip="192.168.0.1"
str1=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=left(sip,instr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str3=left(sip,instr(sip,".")-1)
str4=mid(sip,instr(sip,".")+1)
If isNumeric(str1)=0 Or isNumeric(str2)=0 Or isNumeric(str3)=0 Or isNumeric(str4)=0 Then
Else
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
Dim adb,aConnStr,AConn
adb = "/database/ip.mdb"
aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&pdlj(adb)
Set AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr
sql="select country,city from address where ip1 <="&num&" and ip2 >="&num
Set irs=AConn.Execute(sql)
If irs.eof And irs.bof Then 
lookaddress="未知IP地址"
Else
lookaddress=irs("country")&" "&irs("city")
End If
irs.close
Set irs=nothing
Set AConn=Nothing
End If
Else
lookaddress="本地IP地址"
End If
End Function

dim tops
tops=request.QueryString("top")
if tops="" then tops=999 end if
select case tops
case 0
conn.execute("delete * from tongji2")
case 1
conn.execute("delete * from tongji2 where fid="&fid)
end select

call record(rs,"select * from tongji2 where fid="&fid&" order by id asc",1)

dim sz
sz=300

call head()
%>

<script language="vbscript">
sub info(a1)
if a1=0 then
a=msgbox("你确认要删除全部记录吗？",1)
if a=1 then 
location="?top=0&fid=<%=fid%>"
end if
else
a=msgbox("你确认要删除该日记录吗？",1)
if a=1 then 
location="?top=1&fid=<%=fid%>"
end if
end if
end sub
</script>

<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<table width="99%" border="0" cellpadding="2" cellspacing="1" bgcolor="#2379AA">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" height="23"border="0" cellpadding="3" cellspacing="1" bgcolor="#999999" id="tit">
<tr>
<td width="41%" height="24" background="/images/admin/bg.gif" class="fontw"> <a href="adminly.asp">流量管理</a> &gt;&gt; IP记录</td>
<td align="right" background="/images/admin/bg.gif" class="fant1"><a href="#" class="wlink" onClick="info(0)">清除全部IP详细记录</a> | <a href="#" class="wlink" onClick="info(1)">清除本日IP详细记录</a></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#C8E4FF">
<td width="6%" bgcolor="#C5E0F3"><div align="center">ID</div></td>
<td width="21%" bgcolor="#C5E0F3"><div align="center">IP地址</div></td>
<td width="38%" bgcolor="#C5E0F3"><div align="center">访问时间</div></td>
<td width="35%" bgcolor="#C5E0F3"><div align="center">IP详细地址</div></td>
</tr>
<% 
dim i
i=sz
dim bgc
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr bgcolor=<%= bgc %> >
<td><div align="center"><%=rs("id")%></div></td>
<td><div align="center"><%=rs("ip")%></div></td>
<td><div align="center"><%=rs("mytime")%></div></td>
<td><div align="center"><span class="lan"><%=lookaddress(rs("ip"))%></span></div></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr bgcolor="#C8E4FF">
<td colspan="4" bgcolor="#C5E0F3"><% call fenpage(sz,rs,10) %></td>
</tr>
</table>
<% 
call recordend(rs) 
call connend()
%></td>
</tr>
</table>
<% call foot %>