📄 city.asp

📁 这是一个很漂亮的网站购物系统

💻 ASP

字号:

<% @language=vbscript codepage=936%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" href="manage.css" type="text/css">
<title></title>
</head>
<!--#include file="checkadmin.asp"-->
<%
sip=request("ip")

    if isnumeric(left(sip,2)) then
        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)
        num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
	else 
	num=0
    end if

set conn1=server.createobject("adodb.Connection")
ipconnstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ip_address.asp")
conn1.Open ipconnstr

set rs1 = server.createobject("adodb.recordset")
sql="select * from ip where ip<"&num&" order by ip desc"
rs1.open sql,conn1,1,3
if not (rs1.eof and rs1.bof) then
msg= request("ip") &"\n\n" & rs1("city") & "\n\n" & rs1("add")
else
msg= "未知"
end if
rs1.close

response.write "<script language='javascript'>"
response.write "alert('"&msg&"');"
response.write "location.href='javascript:window.close()';"
response.write "</script>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -