13518219792
很简单，先把IP和域名对应的数据导入数据库，形成adress表
成都创新互联公司是专业的馆陶网站建设公司，馆陶接单;提供网站设计制作、成都网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行馆陶网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
然后用一个隐藏域把来访者IP记录到数据库，显示的时候加如下函数:
%
Function ip(sip)
Dim iparr,iprs,country,city
'IP为127.0.0.1时相当于192.168.0.1
If sip="127.0.0.1" then sip= "192.168.0.1"
‘以点"."为界切割字符串sip，如果sip为“192.168.0.1”，则切割后得到的数组iparr(0)="192",iparr(1)="168",iparr(2)="0",iparr(3)="1"
iparr=split(sip,".")
'通过计算转换，使IP地址跟数据库中的数据联系起来
sip=cint(iparr(0))*256*256*256+cint(iparr(1))*256*256+cint(iparr(2))*256+cint(iparr(3))-1
'连接数据库，查询数据库字段ip1和ip2满足关系ip1=sip=ip2的记录
Set iprs = Server.CreateObject("ADODB.Recordset")
iprs.ActiveConnection = MM_conn_STRING
iprs.Source = "SELECT Top 1 city, country FROM address WHERE ip1 =" sip " and " sip "=ip2"
iprs.CursorType = 0
iprs.CursorLocation = 2
iprs.LockType = 1
iprs.Open()
'判断数据库中有无记录即无相应IP地址的信息时的处理
If iprs.bof and iprs.eof then
country="未知地区"
city=""
Else
country=iprs.Fields.Item("country").Value
city=iprs.Fields.Item("city").Value
End If
ip=countrycity
iprs.Close()
Set iprs = Nothing
End Function
%
调用的时候采取%=ip(rs("ip"))%
具体的可以看看这个：
第二页里面还有IP域名的数据库下载！
你可以在asp里面用这一句话来获取
Request.ServerVariables("SERVER_NAME")
为了更加直观，在asp文件里面写上这一条语句试试：
你所访问的域名是：%=Request.ServerVariables("SERVER_NAME")%
就会把你的域名直接显示出来。
url=right(url, len(url)-instr(url, "."))
加入这一行，将已经获得的服务器名转换成你需要的域名。
1、获得域名主要有两个方式，通过向已拥有域名的人购买域名的版权或者向域名注册网站注册。
2、一般注册域名的方式是通过阿里云或腾讯云注册。登陆其中一个注册网站，以阿里云为例。
3、如果没有阿里云账号，需要先注册一个账号，如果支付宝实名过了，这里就不要再实名了。直接去租购域名，在搜索框内输入自己想要的域名。
4、选择合适的后，点击加入清单，在左侧又一个立即结算的购物篮。点击结算，就会跳转到结算页面。这里也可以买一些阿里云的主机服务，选择个人，最后点击立即购买，就获得了这个域名在购买年限内的使用权了。
