设为首页  加入桌面   在线投稿    手机版    安全退出 
星空写作网图标
文学爱好者写作分享平台
首页
生活随笔
情感世界
娱乐天地
学生时代
上班一族
打工生涯
散文诗歌
杂文论文
小说搞笑
英文文章
电器网络
各类范文
会员中心
更多>>
社会写真
近代作家
古代作家
世界名家
近代名作
古代名作
世界名作
著名书画
生活常识
国外风采
警钟长鸣
综合消息
观读随感
写作感悟
健康美食
旅游名胜
古典珍藏
工业农业
商业经贸
靓丽彩妆
首饰工艺
家居穿戴
环保生态
科学法律
军旅情节
写作技巧

ASP取得网站顶级域名的函数

(文章来源: 【】    发布时间        浏览次数:  次   文评:优秀文章评定 )

  fgximg   fgximg   fgximg   fgximg  

asp获取当前域名方法asp获取当前域名从来就不是什么有难度的事情,但是在实际项目使用中,大家获取的具体URL信息可能是不同的,各个方法获取见下表,而如果要获取当前域名,可以看下面加粗部分:

Request.ServerVariables("SERVER_NAME")'当前域名

Request.ServerVariables("SERVER_PORT")'当前端口

Request.ServerVariables("SCRIPT_NAME")'当前文件名

Request.ServerVariables("QUERY_STRING")'当前页面的传入参数

Request.ServerVariables("HTTP_USER_AGENT")'取得当前浏览器信息

request("remote_addr")'取得IP

Request.ServerVariables("HTTP_REFERER")'上个页面地址

Request.ServerVariables("HTTP_HOST")'获取当前域名

当采用SERVER_NAME时返回的是不带端口号的URL。

以下是代码:

chr(60) chr(37)

response.write getdomain("www.5u.hk") & "
"

response.write getdomain("blog.5u.hk") & "
"

response.write getdomain("mscga.blog.5u.hk") & "
"

function getdomain(byval dom) ’ 返回空则表示域名不复合域名根要求

dim i,ext,exts

exts = "com.cn,net.cn,org.cn,hk.cn,com,net,cn,hk" ’ 复根在前,单根在后

ext = split(exts,",")

for i = 0 to ubound(ext)

if lcase(ext(i)) = right(lcase(dom),len(ext(i))) then

dim dom_ext,dom_pre

dom_ext = lcase(ext(i))

dom_pre = split(left(dom,len(dom)-len(dom_ext)-1),".")

getdomain = dom_pre(ubound(dom_pre)) & "." & dom_ext

exit function

end if

next

getdomain = ""

end function

chr(37) chr(62)

ASP获取url地址中顶级域名的函数

ASP获取url地址中顶级域名的函数,非正则,非常实用,亲自调试好用。在制作一个DLL组件中,由于DLL里不方便调用正则函数,所以,制作了一个不需要正则的取得跟域名的函数,贡献给大家!

Private Function durl(url)

Dim domext, s1, s2, re, matches, arrdom, dd

domext = "comnetorgcnlaccinfohkbizmemobinametvasiakrdeorg.cnco.krcom.cnnet.cngov.cn"

arrdom = Split(domext, "")

durl = "": url = LCase(url)

If url = "" Or Len(url) = 0 Then Exit Function

url = Replace(Replace(url, "http://", ""), "https://", "") s1 = InStr(url, ":") - 1 '过滤掉端口

if s1 < 0 Then s1 = InStr(url, "/") - 1 '过滤掉/后面的字符 If s1 > 0 Then url = Left(url, s1) s2 = Split(url, ".")(UBound(Split(url, ".")))

If InStr(domext, s2) = 0 Then

durl = url

Else

For dd = 0 To UBound(arrdom)

If InStr(url, "." & arrdom(dd)) > 0 Then

durl = Replace(url, "." & arrdom(dd) & "", "")

If InStr(durl, ".") = 0 Then

durl = url

Else

durl = Split(durl, ".")(UBound(Split(durl, "."))) & "." & arrdom(dd)

End If

End If

Next

End If

End Function

[本文来源:由《星空写作网》整理首发 - http://www.xkxzw.com/webHtml/20130304028.html ]

文章评价:
优秀
0
0
一般
0
0
喜欢
0
收藏
0
  fgximg   fgximg   fgximg   fgximg  

文章点评 文章点评:   (文章点评需经网站审核后才可以展现。)
当前还没有点评内容。

我来点评:            (文章点评需经网站审核后才可以展现。)
  提交点评            投诉非首发_重奖     我已阅读此文章     我要发布文章   

  文章分享到:
0

会员登录 注册成为会员
韩都衣舍旗舰店
首  页 | 会员登陆 | 关于本站 | 免责声明 | 联系我们 | 发布信息 | 我要投稿 | 友情链接 | 建议意见 | 网站地图
copyright @2013-2020  星空写作网(www.xkxzw.com) All Rights Reserved. 版权所有,未经授权禁止复制或建立镜像,并保留所有权利。
本网所载文章作品其旨意不代表本网,著作权归原作者,如有涉抄袭侵权的,请告知我们立作删除;要转载本网文章作品请在转载文章开头或结尾处加注本网文章链接。
欢迎文学爱好者来本站发表您的作品,分享您的心情,同时通过在本网写作与阅读可以获得一份额外的收入。
   中华人民共和国工信部网站备案ICP证号:湘ICP备15001934号-1