学步园

　　asp查询网页的友情链接数量和具体的链接网址，本例没有排除二级（及以上）的域名，没有判断重复的外链，需要的可以自己加强一下。下面学步园小编来讲解下asp实现网站友情链接检查程序的代码有哪些？

　　asp实现网站友情链接检查程序的代码有哪些

　　viewsourceprint?01
URL:

02<% 　　03IfRequest（"url_"）<>""Then

　　04SenFe_GetUrlRequest（"url_"）

　　05EndIf

　　06SubSenFe_GetUrl（sUrl）

　　07DimsContent,sDomian,oTempReg,I,oMatches,cMatch,sUrl_

　　08sUrl=LCase（sUrl）

　　09IfLeft（sUrl,7）="http://"Then

　　10sDomian=Mid（sUrl,8）

　　11Else

　　12sDomian=sUrl

　　13sUrl="http://"&Url

　　14EndIf

　　asp实现网站友情链接检查程序的代码有哪些

　　15IfInStr（sDomian,"/"）ThensDomian=Split（sDomian,"/"）（0）

　　16sContent=SenFe_GetData（sUrl）

　　17SetoTempReg=NewRegExp

　　18WithoTempReg

　　19.IgnoreCase=True

　　20.Global=True

　　21.Pattern="（http:（\/\/|\\\\）（（[\w\/\\\+\-~`@:%]）+\.）+（[\w\/\\\.\=\?\+\-~`@\’：!%#]|（&）|&）+）"

　　22SetoMatches=.Execute（sContent）

　　23ForEachcMatchInoMatches

　　24sUrl_=LCase（cMatch.Value）

　　25IfInStr（sUrl_,sDomian）=0Then

　　26Response.Write（sUrl_&"
"&VbCrLf）

　　27EndIf

　　28Next

　　29EndWith

　　30SetoTempReg=Nothing

　　31EndSub

　　32FunctionSenFe_GetData（sUrl）

　　33DimoXmlHttp:SetoXmlHttp=Server.CreateObject（"Msxml2.ServerXMLHTTP"）

　　34WithoXmlHttp

　　35.Open"GET",sUrl,False

　　36.SetRequestHeader"Referer",sUrl

　　37.Send

　　38SenFe_GetData=SenFe_BytesToBstr（。ResponseBody,"GB2312"）

　　39EndWith

　　40SetoXmlHttp=Nothing

　　41EndFunction

　　42FunctionSenFe_BytesToBstr（sBody,sCset）

　　43DimoAdos:SetoAdos=Server.CreateObject（"Adodb.Stream"）

　　44WithoAdos

　　45.Type=1

　　46.Mode=3

　　47.Open

　　48.WritesBody

　　49.Position=0

　　50.Type=2

　　51.Charset=sCset

　　52SenFe_BytesToBstr=.ReadText

　　53.Close

　　54EndWith

　　55SetoAdos=Nothing

　　56EndFunction

　　57%>

　　以上就是关于“asp实现网站友情链接检查程序的代码有哪些”的内容，希望对大家有用。更多资讯请关注学步园。学步园，您学习IT技术的优质平台!