我想用asp实现一个功能应该怎么做，功能是输入一个任意网址，代码根据网址可以提取网页标题，
我想用asp实现一个功能应该怎么做，功能是输入一个任意网址，代码根据网址可以提取网页标题，和一些内容，有点像小偷程序，我就是不知道怎么写，高手指教一下，能解继续加分...
我想用asp实现一个功能应该怎么做，功能是输入一个任意网址，代码根据网址可以提取网页标题，和一些内容，有点像小偷程序，我就是不知道怎么写，高手指教一下，能解继续加分
展开
2个回答
展开全部
<%
function geturltxt(url)
set oxh=server.createobject("WinHttp.WinHttpRequest.5.1")
oxh.Option(6)=0
oxh.SetTimeouts 5000,5000,30000,5000
oxh.open "GET",url,false
oxh.send
if oxh.status=301 or oxh.status=302 then
u=unescape(oxh.GetResponseHeader("Location"))
geturltxt=geturltxt(u)
elseif oxh.status=200 then
geturltxt=oxh.responsetext
else
geturltxt=""
end if
set oxh=nothing
end function
url=request("u")
if url<>"" then
h=geturltxt(url)
t1=split(h,"<title>")
if ubound(t1)>0 then
t="网页标题：" & split(t1(1),"</title>")(0)
else
t="未找到该网页的标题！"
end if
end if
%>
<!DOCTYPE html>
<html>
<head>
<TITLE>test</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<form>
请输入网址：<input name=u type=text value="<%=url%>" />
<input type=submit value="提交" />
</form>
<div><%=t%></div>
</body>
</html>
由于未做编码处理，所以上述代码只能正常提取utf-8编码网页标题，如果是其他编码格式的网页（如gb2312）则会出现乱码.
更多追问追答
追问
怎么出错了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
