如何在网上查找链接?
见下:
findlinks.html
精彩春风之网站链接查找
findlinks.asp
<%
AA=request.form("url")
AA=lcase(AA)
AA=server.urlencode (AA)
if instr(AA,"www.")=1 then
lenAA=len(AA)-4
BB=right(AA,lenAA)
else
BB=AA
end if
if request.form ("se")="1" then
response.redirect("http://altavista.digital.com/cgi-bin/query?pg=q&kl=XX&q=link%3A" & AA & "+-+host%3A" &
BB & "&search=Search")
end if
if request.form ("se")="2" then
response.redirect ("http://www.infoseek.com/Titles?qt=link%3A" & AA & "+-site%3A" & AA
& "&col=WW&sv=IS&lk=noframes")
end if
if request.form ("se")="3" then
response.redirect ("http://www.hotbot.com/?MT=http%3A%2F%2F" & AA
& "&submit=SEARCH&SM=url&DV=0&RG=all&RD=RG&DC=10&DE=2&_v=2&OPs=MDRTP")
end if
%>