西安网站建设asp实现网站友情链接检查程序的代码

25262012-09-11

西安网站建设asp查询网页的友情链接数量和具体的链接网址,本例没有排除二级(及以上)的域名,没有判断重复的外链,需要的可以自己加强一下,西安网站建设团队点墨网络竭诚为您服务。

<form action="">URL:<input name="url_" /><input type="submit" name="submit" value="查询" /></form>
<%
    If Request("url_")<>"" Then
        SenFe_GetUrl Request("url_")
    End If
    Sub SenFe_GetUrl(sUrl)
        Dim sContent, sDomian, oTempReg, I, oMatches, cMatch, sUrl_
        sUrl = LCase(sUrl)
        If Left(sUrl, 7)="http://" Then
            sDomian = Mid(sUrl, 8)
        Else
            sDomian = sUrl
            sUrl = "http://" & Url
        End If
        If InStr(sDomian, "/") Then sDomian = Split(sDomian, "/")(0)
        sContent = SenFe_GetData(sUrl)
        Set oTempReg = New RegExp
        With oTempReg
            .IgnoreCase = True
            .Global = True
            .Pattern = "(http:(\/\/|\\\\)(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\’:!%#]|(&)|&)+)"
                Set oMatches = .Execute(sContent)
                For Each cMatch In oMatches
                sUrl_ = LCase(cMatch.Value)
                If InStr(sUrl_, sDomian)=0 Then
                    Response.Write(sUrl_ & "<br />" & VbCrLf)
                End If
                Next
        End With
        Set oTempReg = Nothing
    End Sub
    Function SenFe_GetData(sUrl)
        Dim oXmlHttp : Set oXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
        With oXmlHttp
            .Open "GET",sUrl,False
            .SetRequestHeader "Referer",sUrl
            .Send
            SenFe_GetData = SenFe_BytesToBstr(.ResponseBody,"GB2312")
        End With
        Set oXmlHttp = Nothing
    End Function
    Function SenFe_BytesToBstr(sBody, sCset)
        Dim oAdos : Set oAdos = Server.CreateObject("Adodb.Stream")
        With oAdos
            .Type = 1
            .Mode = 3
            .Open
            .Write sBody
            .Position = 0
            .Type = 2
            .Charset = sCset
            SenFe_BytesToBstr = .ReadText
            .Close
        End With
        Set oAdos = Nothing
    End Function
%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1