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 编辑 ]

求助 求助

不行啊

求助

谢谢

为什么不能保证在其他地方能用，我看网页的标题都不是在<title></title>吗  另外这个标题还有多出来几个字怎么去掉
外交部：对日本向太平洋排放核废液表示关切_新闻中心_新浪网----去掉

恩  谢谢

在问一下 如果在截取时 start 选<table> 但是它后面也有<table>那怎么整啊，好像截取的都是第一次出现<table>的
还有你上面的这句Select Case CutType是什么意思


[ 本帖最后由 a768841969 于 2011-4-8 19:26 编辑 ]

你那个select case 1 和case 2有什么区别  为什么我用1读取不到，而用2就能读取到呢

哦  是这个意思吗  if case=1 else case=2就这2种情况吗