asp获取搜索蜘蛛程序代码

asp获取搜索蜘蛛程序代码

Function GetSearcher(ByVal strUrl)
 On Error Resume Next
 If Len(strUrl)   GetSearcher = "DirectInput"
  Exit Function
 End If
 If strUrl = ‘’Or InStr(strUrl, ":") = 0 Then
  GetSearcher = "DirectInput"
  Exit Function
 End If
 
 Dim Searchlist,i,SearchName
 
 strUrl = Left(strUrl, InStr(10, strUrl, "/") - 1)
 strUrl = LCase(strUrl)
 Searchlist = "google,baidu,yahoo,3721,zhongsou,sogou"
 
 Searchlist = Split(Searchlist, ",")
 For i = 0 To UBound(Searchlist)
  If InStr(strUrl, Searchlist(i)) > 0 Then
   SearchName = Searchlist(i)
   Exit For
  Else
   SearchName = "other"
  End If
 Next
 GetSearcher = SearchName
End Function

本文章来自