asp如何在网上查找链接？
时间：2010-06-22 21:10:00
如何在网上查找链接？
见下：
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如何获取访客真实的IP地址
Linux下MySQL整个数据库的备份与还原
很有意思的SQL多行数据拼接
纯CSS圆角框2－透明圆角化背景图片
HTML 5新增的元素
[翻译]标记语言和样式手册 Chapter 10 应用CSS
VB应用程序访问SQL Server的常用方法
解析SQL server与asp 互操作的时间处理
高效的MySQL分页
asp访google分页代码
比较规范的验证Email地址是否正确的正则表达式
asp金额大小写转换完全无错版
如何让新安装的MySQL数据库变得更安全
XHTML1.0与HTML兼容指引16条[译]
针对google Chrome的 CSS hacks
《写给大家看的设计书》阅读笔记之色彩
不同浏览器空格的宽度
IE对CSS样式表的限制和解决方案
互联网产品设计零碎记
