asp采集时为什么截取不到标题
a-5.asp<%
on error resume next
'得到文件二进制数据
Function GetWebData(strUrl)
dim curlpath
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrl, False,"",""
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function
Function GetKey(HTML,Start,Last)
IF InStr(HTML,Start)>0 Then
filearray=split(HTML,Start)
IF InStr(filearray)>0 Then
filearray2=split(filearray(1),Last)
Else
Getkey=filearray(1)
End IF
GetKey=filearray2(0)
Else
Getkey="HTML中不包含"&Start
End IF
End Function
Function bytesToBSTR(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
a-6.asp
<!--#include file="conn1.asp"-->
<!--#include file="a-5.asp"-->
<%
fileurl=http://mil.news.这是新浪的一个新闻页面
angde=GetWebData(fileurl)
page=bytesToBSTR(angde,"gb2312")
response.Write(page)
Title = GetKey(page,"<title>","</title>")------------这里可能有错误但是我不知道怎么改
response.write(Title)
%>
为什么用标题输不来呢？？
输出来是一个空白页面。
这是怎么回事？？
[ 本帖最后由 a768841969 于 2011-4-8 15:20 编辑 ]
