index.asp

电子书下载系统 后台管理：admin/index.asp 超级用户：admin 密码：admin 请在db/usre.asp,admin/usres更新数据库地址,防止他人下载。 建议把.

  <%@ CODEPAGE = "936" %>
  <!--#include file="bbs.css" -->
<!-- #include file="conn.asp" -->
  <%
server.ScriptTimeout = 6000
myip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if myip = "" then myip = Request.ServerVariables("REMOTE_ADDR")
  if request.form("search")<>"" then
  fip=request.form("ip")
  c=fip
  feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr  
 '--------拆分ip，目的是为了给不足3位的补0，同时也判断ip地址是否合法--------
fip = Split(fip,".") 
if Ubound(fip)=3 then
For i=0 To Ubound(fip) 
if len(fip(i))=2 then
fip(i)="0"&fip(i)
elseif len(fip(i))=1 then
fip(i)="00"&fip(i)
end if
next
 oip=fip(0)&"."&fip(1)&"."&fip(2)&"."&fip(3)
 '--------重新组合ip后，与数据库的ip地址比较，获取地址,采用三种不同方法的目的是为了当前两个ip段相同时，得到的地址比较具体--------
 sql1="select * from wry where  startip<='"&oip&"' and endip>='"&oip&"'and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"' and  mid(startip,5,3)='"&fip(1)&"' and  '"&fip(1)&"'=mid(endip,5,3) and  mid(startip,9,3)='"&fip(2)&"' and  '"&fip(2)&"'=mid(endip,9,3)" 
 set rs1=conn.execute(sql1)
 if not rs1.eof then
 a=rs1("country")
 b=rs1("local")
  set rs1=nothing
else
 sql="select * from wry where  startip<='"&oip&"' and endip>='"&oip&"'and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"' and  mid(startip,5,3)='"&fip(1)&"' and  '"&fip(1)&"'=mid(endip,5,3)" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("country")
 b=rs("local")
  set rs=nothing
else
sql2="select * from wry where startip<='"&oip&"' and endip>='"&oip&"' and left(startip,3)='"&fip(0)&"' and  left(endip,3)='"&fip(0)&"'"
    set rs2=conn.execute(sql2)
    if not rs2.eof then
 a=rs2("country")
 b=rs2("local")
set rs2=nothing
else
sql3="select * from wry where startip<='"&oip&"' and endip>='"&oip&"'"
    set rs3=conn.execute(sql3)
    if not rs3.eof then
 a=rs3("country")
 b=rs3("local")
set rs3=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if 
end if 
  else
  a="错误:你输入的ip地址非法，请重新输入！"
  end if  
end if    
%>

 <%if request.form("mp")<>"" then
  d=request.form("mp")
  if len(d)>=7 then
  c=left(d,7)
  feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr  

  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and  mid(end,5,1)="&mid(c,5,1)&" and mid(start,6,1)="&mid(c,6,1)&" and  mid(end,6,1)="&mid(c,6,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and  mid(end,5,1)="&mid(c,5,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and  mid(end,4,1)="&mid(c,4,1)&"   " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1") 
 e=rs("url")
  set rs=nothing
  else
  sql="select * from mod where  start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and  mid(end,3,1)="&mid(c,3,1)&"  " 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
  e=rs("url")
  set rs=nothing
  else
  sql="select * from mod where  start<="&c&" and end>="&c&"" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a=rs("city")
 b=rs("city1")
 e=rs("url")
  set rs=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if  
  end if
  end if
  else
  a="错误:请确保你输入的是大于7位的数字！"
  end if
end if
     feiyuedbq="mobile.mdb" 
   connstr="DBQ="+server.mappath(""&feiyuedbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
    conn.open connstr 
   '--------拆分ip，目的是为了给不足3位的补0，同时也判断ip地址是否合法--------
myip1 = Split(myip,".") 
if Ubound(myip1)=3 then
For i=0 To Ubound(myip1) 
if len(myip1(i))=2 then
myip1(i)="0"&myip1(i)
elseif len(myip1(i))=1 then
myip1(i)="00"&myip1(i)
end if
next
 myip2=myip1(0)&"."&myip1(1)&"."&myip1(2)&"."&myip1(3)
 '--------重新组合ip后，与数据库的ip地址比较，获取地址,采用三种不同方法的目的是为了当前两个ip段相同时，得到的地址比较具体--------
 sql1="select * from wry where  startip<='"&myip2&"' and endip>='"&myip2&"'and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"' and  mid(startip,5,3)='"&myip1(1)&"' and  '"&myip1(1)&"'=mid(endip,5,3) and  mid(startip,9,3)='"&myip1(2)&"' and  '"&myip1(2)&"'=mid(endip,9,3)" 
 set rs1=conn.execute(sql1)
 if not rs1.eof then
 a=rs1("country")
 b=rs1("local")
  set rs1=nothing
else
 sql="select * from wry where  startip<='"&myip2&"' and endip>='"&myip2&"'and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"' and  mid(startip,5,3)='"&myip1(1)&"' and  '"&myip1(1)&"'=mid(endip,5,3)" 
 set rs=conn.execute(sql)
 if not rs.eof then
 a1=rs("country")
 b1=rs("local")
  set rs=nothing
else
sql2="select * from wry where startip<='"&myip2&"' and endip>='"&myip2&"' and left(startip,3)='"&myip1(0)&"' and  left(endip,3)='"&myip1(0)&"'"
    set rs2=conn.execute(sql2)
    if not rs2.eof then
 a1=rs2("country")
 b1=rs2("local")
set rs2=nothing
else
sql3="select * from wry where startip<='"&myip2&"' and endip>='"&myip2&"'"
    set rs3=conn.execute(sql3)
    if not rs3.eof then
 a1=rs3("country")
 b1=rs3("local")
set rs3=nothing
else
a="找不到地址，如果你知道，请与本站联系，谢谢！"
end if
end if
  end if 
end if 
else
a1="抱歉，找不到地址！"
end if %>
<%
sql="update c set v=v+1"
conn.execute(sql)
sql="select top 1 v,c from c "
set rs=conn.execute(sql)
if not rs.eof then
v=rs(0)
c=rs(1)
else
v=0
c=0
end if
if trim(request("mp"))<>"" then
mp=trim(request("mp"))
if mp="" then
   mp=0
end if
mp=mp+0
if mp+0<>mp then
msg="sorry! 你输入了非数字!"
elseif len(mp)<11 then
msg="Sorry!你输入的数字长度小于11位!"
elseif len(mp)>11 then
msg="sorry!你输入的数字长度大于11位!"
elseif left(mp,2)<>"13"then
msg="sorry!你输入的是非手机号码!"
else
nu=mp / 80
nums=split(nu,".")
nnu="0."&nums(1)
nnu=nnu+0
ernu=nnu*80
msg=getnu(ernu)
sql="update c set c=c+1 "
conn.execute(sql)
end if
end if

function getnu(intmp)
intmp=int(intmp)
sql="select top 1 des,wor from dat where num="&intmp&" "
set rs=conn.execute(sql)
if not rs.eof then
getnu=rs(0) & "           "&"<font color=red>"&rs(1)&"</font>"
else
getnu="非法数据!"
end if
end function
%>
<title>公益电子书--手机号码吉凶预测 </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" contect="all">
<meta name="Author" content="cnxu.com">
<meta name="Keywords" content="公益电子书--手机号码吉凶预测 " ;charset="gb2312/">
<META name="description" content="算命，在线算命，电子书，下载，EBOOK，download,视频教材，免费软件，破解软件,余世维,余维成功经理人讲座视频,企业培训课程,PPT,PDF,PPT资料下载">
<META name="keywords" content="算命，在线算命，电子书，下载，EBOOK，download,视频教材，免费软件，破解软件,余世维,余维成功经理人讲座视频,企业培训课程,PPT,PDF,PPT资料下载">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<form name="form1" method="post" action="index.asp">
  <table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <td colspan="2" align="center"> 
        <p>&nbsp;</p>
        <p>&nbsp;</p>
      </td>
    </tr>
    <tr> 
      <td width="321" align="right" class=tdc>手机号码:</td>
      <td width="455"><font size="2"> 
        <input name="mp" type="text" id="mp" size="20" maxlength="11" class=tdc>
        <input type="submit" name="B1" value="分析号码" class=bdtj>
        </font></td>
    </tr>
    <tr> 
      <td align="right"><font size="2">&nbsp;</font></td>
      <td><font size="2"> </font></td>
    </tr>
    <tr> 
      <td colspan="2" align="center" class=tdc >&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="2" align="center"> 
        <table border="1" cellpadding="4" style="border-collapse: collapse" bordercolor="<%=bgcolor%>" width="500" id="AutoNumber1">
          <tr> 
            <td width="100%" colspan="2" align="center" background="b1.gif" height="22" class=tdc1>搜索结果:</td>
          </tr>
          <tr> 
            <td width="28%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc>你的手机号码:</td>
            <td width="75%" align="center" height="22" bgcolor=<%=tcolor2%> class=tdc><%=d%></td>
          </tr>
          <tr> 
            <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>手机号码吉凶</td>
            <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=msg%></td>
          </tr>
          <tr> 
            <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>所在地址:</td>
            <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=a%> 
              <%=b%> </td>
          </tr>
          <tr> 
            <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>区号和描述:</td>
            <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc><%=e%></td>
          </tr>
          <tr> 
            <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc> 
              你所在的IP: </td>
            <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc> 
              <%=myip%> 来自：<%=a1%> <%=b1%> </td>
          </tr>
          <tr>
            <td width="28%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>特 
              别 说 明：</td>
            <td width="75%" align="center" height=22 bgcolor=<%=tcolor2%> class=tdc>本系统的观点，根据《周易》预测，只供参考！</td>
          </tr>
        </table>
      </td>
    </tr>
    <tr align="center"> 
      <td colspan="2" class=tdc align="center" height="42">&nbsp;</td>
    </tr>
    <tr align="center"> 
      <td colspan="2" class=tdc align="center">
        Copyright &copy; 2004 <a href="http://www.gy16.com">公益电子书</a> <font color="#FF0000">GY16.COM</font> 
        All Rights Reserved <br>
        站长子渊手机：135-56590001 QQ：79571397</td>
    </tr>
    <tr align="center"> 
      <td colspan="2" class=tdc align="center">访问数:<%=v%> 查询数:<%=c%></td>
    </tr>
    <tr align="center"> 
      <td colspan="2" class=tdc ><a href="ip.asp" target="_blank">ip地址查询</a></td>
    </tr>
  </table>
</form>