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

求助 求助

where title='"&Title&"'",

不要设条件试试

不行啊

求助

可以获取到整个页面，但标题获取不到，有可能是GetKey函数错误，我在查，稍等

谢谢

是GetKey函数写错了，改了改，能运行。但不保证在其他地方能用。

Function GetKey(HTML,Start,Last)
IF InStr(HTML,Start)>0 Then
    filearray=split(HTML,Start)
    IF InStr(filearray(1),Last)>0 Then
        filearray2=split(filearray(1),Last)
    Else
        Getkey=filearray(1)
    End IF
    GetKey=filearray2(0)
Else
    Getkey="HTML中不包含"&Start
End IF
End Function


送你一段我常用的吧

'截取字符串,1.包括起始和终止字符，2.不包括
Function strCut(strContent,StartStr,EndStr,CutType)
Dim strHtml,S1,S2
strHtml = strContent
On Error Resume Next
Select Case CutType
Case 1
S1 = InStr(strHtml,StartStr)
S2 = InStr(S1,strHtml,EndStr)+Len(EndStr)
Case 2
S1 = InStr(strHtml,StartStr)+Len(StartStr)
S2 = InStr(S1,strHtml,EndStr)
End Select
If Err Then
strCute = "<p align='center'>没有找到需要的内容。</p>"
Err.Clear
Exit Function
Else
strCut = Mid(strHtml,S1,S2-S1)
End If
End Function
 
 

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

因为这个GetKey函数写的不规范，我也没有仔细改，有可能遇到其他情况还会出错。

在加title=replace(title,"_新浪军事_新浪网","")不就替换了。不过新浪每个新闻专题都不一样

或者这样title = GetKey(page,"<title>","_")

 

[ 本帖最后由 dzt0001 于 2011-4-8 17:32 编辑 ]