首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

如何判断域名是顶级域名

2013-08-09 
怎么判断域名是顶级域名啊本帖最后由 qwee7117 于 2013-08-01 21:28:56 编辑ie地址是http://www.163.com/c

怎么判断域名是顶级域名啊
本帖最后由 qwee7117 于 2013-08-01 21:28:56 编辑 ie地址是http://www.163.com/
chrome地址是www.163.com

ie地址http://www.163.com/abc.123.html
chrome地址是www.163.com/abc.123.html


vb代码

If chromeurl.Text Like "*com/*" Then
    Text2.Text = "http://" + Text2.Text
    Else
    Text2.Text = "http://" + Text2.Text + "/"

If chromeurl.Text Like "*cn/*" Then
    Text2.Text = "http://" + Text2.Text
    Else
    Text2.Text = "http://" + Text2.Text + "/"
    End If


就是chrome的url没有 “http://” 和域名后缀不加 “/”
现在用上面的vb代码要写很多的判断比如cc/ com.cn/ gov/ net/
才能实现ie地址栏那样顶级网址后面加"/" 不是顶级的网址结尾就不加"/ "



有没有个更好的方法 VB URL
[解决办法]
Private Sub Command1_Click()
   Const TOPURLSUFF  As String = "com
[解决办法]
net
[解决办法]
org
[解决办法]
edu
[解决办法]
gov
[解决办法]
cn 
[解决办法]
hk 
[解决办法]
us 
[解决办法]
eu 
[解决办法]
cc"
   ' 其它的国家域名自己照这个格式添加
   Dim strChmURL  As String
   Dim i&, strTemp$
   


   strChmURL = chromeurl.Text
   strTemp = LCase$(Mid$(strChmURL, InStrRev(strChmURL, ".") + 1))
   i = InStr(TOPURLSUFF, strTemp) - 1
   If (i And 3) Then
      strTemp = "http://" & Text2.Text
   Else
      strTemp = "http://" & Text2.Text & "/"
   End If
End Sub

热点排行