ASP如何实现通过IP获得对应域名？

很简单，先把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如何获取当前网站的域名

你可以在asp里面用这一句话来获取

Request.ServerVariables("SERVER_NAME")

为了更加直观，在asp文件里面写上这一条语句试试：

你所访问的域名是：%=Request.ServerVariables("SERVER_NAME")%

就会把你的域名直接显示出来。

asp网站,想取得域名的根域名,如何实现呢,目前我只能用SERVER_NAME取得域名

url=right(url, len(url)-instr(url, "."))

加入这一行，将已经获得的服务器名转换成你需要的域名。

如何获得域名

1、获得域名主要有两个方式，通过向已拥有域名的人购买域名的版权或者向域名注册网站注册。

2、一般注册域名的方式是通过阿里云或腾讯云注册。登陆其中一个注册网站，以阿里云为例。

3、如果没有阿里云账号，需要先注册一个账号，如果支付宝实名过了，这里就不要再实名了。直接去租购域名，在搜索框内输入自己想要的域名。

4、选择合适的后，点击加入清单，在左侧又一个立即结算的购物篮。点击结算，就会跳转到结算页面。这里也可以买一些阿里云的主机服务，选择个人，最后点击立即购买，就获得了这个域名在购买年限内的使用权了。

名称栏目：asp域名怎么获得 asp网站怎么部署
网页路径：http://kswjz.com/article/ddjhpcs.html