ASP自动识别IP,并跳转到来访问者所在的城市
自动识别IP,并跳转到来访问者所在的城市
先去下一个最新的纯真IP数据库,然后按如下操作:
1.运行纯真QQIP数据库里带的ShowIP.exe，点解压，输入文件名，比如IP.txt，确定，就得到一个TXT文件。
2.打开ACCESS，工具－自定义，命令选项卡，把导入选项拖动到上面的工具栏。
3.建库，建一个表，四个字段
Startip 类型:文本 (相关城市的IP段信息)
Endip 类型:文本 (相关城市的IP段信息)
Country 类型:文本 (相关城市名称)
ReUrl 类型:文本 (你想要跳转的城市路径如:北京 http://bj.abc.com)
4.点导入按钮，文件类型选文本文件，找到刚才导出的IP.txt文件，导入到刚才建的表里~
运算将真实IP转换为数字,比如北京的IP段是 ： 1.1.0.0 -- 1.1.0.255
Startip: 1*256*256*256+1*256*256+0*256+0 = 16842752 (这个数字才是最终要放到数据库里)
Endip: 1*256*256*256+1*256*256+0*256+255 = 16843007 (这个数字才是最终要放到数据库里的)
可用程序批量处理,如果不会,而且没时间(像我一样)你就直接去下个动网的IP库,它是已经处理好了的,下面是程序部分:
user_ip = Request.ServerVariables("REMOTE_ADDR") ''取得访问者IP
userip_ary=split(user_ip,".")
tmp_userip=userip_ary(0)*256*256*256+userip_ary(1)*256*256+userip_ary(2)*256+userip_ary(3) '' 按规定转换IP为数字
'从数据库找出用户IP属于的城市
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ip where Startip<="&tmp_userip&" and Endip>="&tmp_userip
rs.open sql,conn,1,1
if rs.eof then
response.redirect "index.asp" ’如果没有该城市或是IP无法识别则转到首页,也可以指定页面
else
response.redirect rs("ReUrl") ’如果有转到指定页面
end if
rs.close
set rs=nothing
将上面的程序放到你的虚拟主机默认访问首页里!或是其它的页面里(当然你同样要在虚拟主机控制面板里设置默认首先访问的是这个文件)
相关文档：
各大网络编程语言的10年奋战，各有所长、各领千秋。今日对于我们的网站编程语言:ASP、JSP、PHP、ASP.NET进行实际应用统计:
ASP:50%
JSP:10%
PHP:20%
ASP.NET:20%
根据以上统计来做一下讨论。ASP技术如今天可以说已成为过去，但仍占市场的50%，因为当时ASP技术的兴起，对大部分编程 ......
<Html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>生成Word文档</title>
</head>
<script ......
ASP下的FCKeditor 2.6.4.1的配置：
1.瘦身：我就不提了，网络上那些文章都有说删除什么。
2.文件上传：因为我做的是贴图性质的BBS，所以我只对图片上传做了研究，不过我想FLASH和文件上传应该类似。
首先说一下fck的文件夹，必须要以大写的FCK和小写的editor命名，同我的一样，否则如果不能使用，别骂我乱讲话。
先去修 ......
前两天，客户需要添加下拉菜单，我晕的很，很简单的一个问题把我诱导了两三天，后来醒悟过来，真想打自己。
之前我也使用过div套div的方法，只要控制他们的位置就可以了，但这次我没有，使用的在表格式套div，自己琢磨了半天，已经忘记了div所显示的是相对 ......
1. 用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. 用实际的数据库绝对路径连接 ......
