ip.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%

Function getaddress(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 = "QQWry.Dat"
			aConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(adb)
			Set AConn = Server.CreateObject("ADODB.Connection")
			aConn.Open aConnStr
			sql="select * from ip  where StartIP <="&num&" and EndIP >="&num
			Set irs=AConn.Execute(sql)
			If irs.eof And irs.bof Then 
				getaddress="没有数据"
			Else
				Do While Not irs.eof
					getaddress=getaddress &irs("pos") & irs("Detail")
				irs.movenext
				Loop
			End If
			irs.close
			Set irs=nothing
			Set AConn=Nothing
		End If
	Else
		getaddress="无效IP"
	End If
End Function
  admin=Request("admin")
  user=Request("user")
  
  ada=5
  if request("page")<>"" then 
  page=cint(request.QueryString("page"))
  if page="" or page<=0 then page=1
  Else
  page=1
  End if
  if admin="" then
  Response.Redirect "login.asp"
  Response.End
  End if
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
 Response.write "<card id='card1' title='点击IP'>"
 Response.write "<p align='left'>"
 if not rs.eof then
 Set rt= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From ad where user='"&user&"' Order By time desc"
rt.Open sql,conn,1,2
if Not rs.EOF Then
rs.MoveFirst
if rt.recordcount= 0 then response.Write"*暂无内容*<br/>"
if rt.recordcount > 0 then
rt.Move((page-1)*ada)
dim j
j=1
response.write"共" & rt.recordcount & "次有效点击<br/>"
do while ((not rt.EOF) and j<=ada)
    response.Write ((page-1)*ada+j)&"."
	Response.Write "点击时间:"&rt("time")&"<br/>"
	Response.Write "点击收入:"&rt("money")&"元<br/>"
	Response.Write "点击手机号:"&rt("mobile")&"<br/>"
	Response.Write "点击IP:"&rt("ip")&"  物理地址："&replace(getaddress(rt("ip")),"CZ88.NET","")&"<br/>"
	
rt.MoveNext
j=j+1
loop
end if 

if page*ada<rt.recordcount then
response.write("<a href='ip.asp?user="& user &"&amp;page="& page+1 &"&amp;admin="& request("admin") &"&amp;p="& request("p") &"'>下一页</a>")
end if
if page>1 then response.write("<a href='ip.asp?user="& user &"&amp;page=" & page-1 &"&amp;admin="& request("admin") &"&amp;p="& request("p") &"'>上一页</a>")

if rt.recordcount > 0 then
response.write("["& page & "/" & (int(rt.recordcount/ada)+1) &"页]")
end if 
if (int(rt.recordcount/ada)+1) >3 then
%>
<br/>到<input name="page" title="页码" type="text" format="*N" emptyok="true" size="3" maxlength="3"/>
<anchor>GO>>
<go href="ip.asp?admin=<%=admin%>" accept-charset='utf-8'>
<postfield name="ID" value="<%= id %>"/>
<postfield name="user" value="<%= user %>"/>
<postfield name="page" value="$(page)"/>
<postfield name="p" value="<%=request("p")%>"/>
<postfield name="u" value="<%=request("u")%>"/>
</go></anchor>
<%
End if
End if
Response.write "<br/><a href='admin.asp?admin=" & admin & "'>返回管理页</a>"
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set rt=nothing
conn.close
set conn=nothing
%>
</p></card></wml>