< % url = " http://www.sina.com.cn " Function chku(murl) on error resume next Set xmlHttp = Server.CreateObject( " Microsoft.XMLHTTP " ) xmlHttp.open " GET " ,murl, false xmlHttp.send if xmlHttp.Status <> 200 then chku = false else chku = true end if End Function if chku(url) then response.write(url & " (链接正常) " ) else response.write(url & " (掉链、坏链、死链) " ) end if % > http://www.qqgb.com/NetProgramme/ASP/ASPJQ/NetProgramme_164736.html