⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ip.asp

📁 网上自我检评系统
💻 ASP
字号:
🔍 

<html>
<head>
<META name="description" content="飞天在线 电影 电视 音乐 笑话 动画 游戏 短信 图片 聊天 QQ 旅游 娱乐 美术 小说 动漫 贺卡 生肖 星座 MP3 Flash 激情 儿童 学生 成人 男性 明星 两性 宠物 传奇 泡泡堂 商城 汽车 时尚 美容 健康 培训 出国 彩票 证券 鲜花 摄影 写真 艺术 数码 赚钱 股票 饮食 节日 医药 导购 财经 房产 天气 旅游 交友 新闻 体育 下载 网络 黑客 免费 域名 主页 主机 登陆 IT 软件 硬件 编程 科技 搜索 论坛 杀毒 木马 网吧 邮箱 源码 手机 墙纸 铃声 驱动 区号 二手 彩信 BT 论文 考研 留学 校园 高校 政府 天文 地理 省市 文学 国外 外语 教育 法律 报刊 保险 交通 农业 银行 化工 家电 拍卖 招聘 建筑 邮编 集邮 收藏 企业 招商 商务 人才">
<META name="keywords"content="飞天在线,电影,电视,音乐,笑话,动画,游戏,短信,图片,聊天,QQ,旅游,娱乐,美术,小说,动漫,贺卡,生肖,星座,MP3,Flash,激情,儿童,学生,成人,男性,明星,两性,宠物,传奇,泡泡堂,商城,汽车,时尚,美容,健康,培训,出国,彩票,证券,鲜花,摄影,写真,艺术,数码,赚钱,股票,饮食,节日,医药,导购,财经,房产,天气,旅游,交友,新闻,体育,下载,网络,黑客,免费,域名,主页,主机,登陆,IT,软件,硬件,编程,科技,搜索,论坛,杀毒,木马,网吧,邮箱,源码,手机,墙纸,铃声,驱动,区号,二手,彩信,BT,论文,考研,留学,校园,高校,政府,天文,地理,省市,文学,国外,外语,教育,法律,报刊,保险,交通,农业,银行,化工,家电,拍卖,招聘,建筑,邮编,集邮,收藏,企业,招商,商务,人才">
<META name="copyright"content="Copyright 2002-2004 - ">
<META name="author"content="飞天在线">
<base onmouseover="window.status='飞天在线欢迎你';return true">
<title>top</title><script src=style/right_click.js ></script><link href="main1234.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<table width='777' border=0 align="center" cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
  <tr align=center> 
    <td width='24%'><a href='http://www.cdyis.com/' target=_blank><img src='images/top_logo.gif' border=0 ></a></td>
    <td width='76%'> <table border=0 cellspacing=0 cellpadding=2 width='100%'>
        <tr> 
          <td align=right> <table border=0 cellpadding=0 cellspacing=0>
              <tr> 
                <td><img border=0 src='skin/skin_1/small/h_head.gif' align=absmiddle>&nbsp;<a class=top href='###' onclick="javascript:window.external.AddFavorite('http://www.cdyis.com/','CD夜市')" style='target: ' _self?>加入收藏</a></td>
                <td width=10></td>
                <td><img border=0 src='skin/skin_1/small/h_head.gif' align=absmiddle>&nbsp;<a href='register.asp' target="_parent">免费注册</a></td>
                <td width=10></td>
                <td><img border=0 src='skin/skin_1/small/h_head.gif' align=absmiddle>&nbsp;<a href='login.asp' target="_parent">用户登陆</a></td>
                <td width=10></td>
                <td><img border=0 src='skin/skin_1/small/h_head.gif' align=absmiddle>&nbsp;<a href='help.asp' target="_parent">帮助中心</a></td>
                <td width=10></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td> <table border=0 cellpadding=0 cellspacing=0 width='100%'>
              <tr align=center height=64> 
                <td width='20%'> </td>
                <td width='80%' align=right> <table border=0 cellpadding=0 cellspacing=0>
                    <tr valign=top> 
                      <td><a href='http://www.cdyis.com/' target=_blank><img src='ads/banner_ads.gif' border=0 ></a> 
                      </td>
                      <td>&nbsp;<a href='page_help.asp'><img src='images/ads_button.gif' border=0></a></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr> </tr>
</table>
<table border=0 cellspacing=0 cellpadding=0 class=tf align=center width='777'>
  <tr align=center height=18> 
    <td width=50><b><a href='/' target="_parent" class=h_menu>首页</a></b></td>
    <td><b><a href='/5mu/' target="_parent" class=h_menu>新快音乐</a></b></td>
    <td><b><a href='/vcd/' target="_parent" class=h_menu>飞天影院</a></b></td>
    <td><b><a href='/news.asp' target="_parent" class=h_menu>MTV100</a></b></td>
    <td><b><a href='/nzxajh-dj/' target="_parent" class=h_menu>天天DJ</a></b></td>
    <td><a href='/news.asp' target="_parent" class=h_menu>影视快报</a></td>
    <td><a href='/article.asp' target="_parent" class=h_menu>影音技术</a></td>
    <td><a href='/down.asp' target="_parent" class=h_menu>影音下载</a></td>
    <td><a href='/vouch.asp' target="_parent" class=h_menu>精彩推荐</a></td>
    <td><a href='/user_main.asp' target="_parent" class=h_menu>用户中心</a></td>
    <td><b><a href='/forum.asp' target="_parent" class=h_menu>影音论坛</a></b></td>
    <td><a href='/shop.asp' target="_parent" class=h_menu>在线商城</a></td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
  <tr> 
    <td align="center"> <table width="766" border="0" cellpadding="0" cellspacing="0" class="pageSeparator">
        <tr> 
          <td align="center"><script src=vcd1.js></script> </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="50">
<div align="center"><span class=h3><a href="ipp.asp" target="_blank"  class=tomg><font color="#0000FF">欢迎你 
        <%
cIp =Request.ServerVariables("REMOTE_ADDR") 
sIp = Request("searchIp")&""
If sIp="" Then
	sIp = cIp
End If

Function cacuIp(sIP)
On Error Resume Next
Dim sIp1,sIp2,sIp3,sIp4,aIp,srIp,i
srIp=0
aIp = Split(sIP,".")
If UBound(aIP)<>3 Then
cacuIP=0
Exit Function
End If
For i=0 To 3
srIp=srIp+(CInt(aIP(i))*(256^(3-i)))
Next
cacuIp=srIp-1
If Err Then cacuIp=0
End Function 

Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("data_jk/ip_address.mdb")

iIp=cacuIp(sIp)
strSQL = "SELECT country,city FROM ip_address WHERE ip1<=" & iIp & " AND ip2>=" & iIp
Set rsCnt = conn.Execute ( strSQL )
If rsCnt.Eof Then
sPlace="[其它]"
Else
sPlace=rsCnt(0)&" "&rsCnt(1)
End If
Set rsCnt=Nothing
%>
        <%=sPlace%>的朋友</font></a></span> </div></td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">
        <script language=javascript src=/gaogao/Template/cdyis/gd.js></script>
      </div></td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
  <tr> 
    <td align="center"> 
      <table width="766" border="0" cellpadding="0" cellspacing="0" class="pageSeparator">
        <tr> 
          <td align="center"><script src=newshard1.js></script> </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFCCCC">
  <tr> 
    <td>&nbsp;</td>
    <td align="right"></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -