网络编程
位置：首页>> 网络编程>> Asp编程>> asp如何在网上查找链接？

asp如何在网上查找链接？

　　发布时间：2010-06-22 21:10:00　

标签：链接,asp

如何在网上查找链接？
    见下：

findlinks.html

<html>
<head>
<title>网站链接查找 - asp之家</title>
</head>
<body>
<form action="findlink.asp" method=post> 
<table border=0 cellpadding=5><tr> 
查找网站链接<BR> 
<td align=center bgcolor="#4444FF"> 
http://<input size=35 name=url><BR> 
<select name="se"> 
<option value="1">Altavista 
<option value="2">Infoseek 
<option value="3">Hotbot</select> 
<input type=submit value="查找"> 
</td></tr> </table> 
</form>  
</body>

</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 ("https://www.aspxhome.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  
％> 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com