请问如何从一个 asp网页中 读取网页中第一行的文字？ 然后显示到text1中？

请问如何从一个 asp网页中 读取网页中第一行的文字？ 然后显示到text1中？请教大师了！

解决方案 »

  1.   

    你说的网页是哪里的？是当前ASP的还是别的网页？
    你的第一行也有问题，显示到Text1中，这个应该是前台的
    东西吧，直接给对象付值不就可以了:
    <intut Name='Text1' Valur='<%=Server.HTMLEncode(YourText)%>'>
    你是想读取前台HTML文件的第一行还是后台脚本的第一行？
    前台的可以用Script的Document对象
    后台可以用FSO或自己开发组件。
    要不用XMLHTTP来要数据处理也可以。看你爱怎么做了。
      

  2.   

    在 www.cngoos.cn/alexapp.asp 这里 我想显示第一行字  打开网页后的 不是后台脚本！
      

  3.   

    '用inet控件取得网页内容
    s=inet1.openurl("www.cngoos.cn/alexapp.asp")
    '取第一行
    s = Left(s, InStr(1, s, vbcrlf))
      

  4.   

    VBToy(无证编程) ( ) 信誉：100    Blog  2006-12-21 08:49:57  得分: 0  
     
     
       '用inet控件取得网页内容
    s=inet1.openurl("www.cngoos.cn/alexapp.asp")
    '取第一行
    s = Left(s, InStr(1, s, vbcrlf))  
     
    用了， 没任何效果啊！！
      

  5.   

    读取网页中第一行的文字？ 
    ....第一行这个概念太模糊了<body>中的第一行？？碰上了html标记你又怎么处理？？
      

  6.   

    使用WebBrowser控件
    Private Sub Form_Load() 
      WebBrowser1.Navigate "http://www.applevb.com" 
    End Sub 
    然后用以下代码来获取
    WebBrowser1..Document.body.innertext
      

  7.   

    只是想判断 这么一句话啊！！ “已安装alexa工具条” 让一个text显示 网页中的 这句话 然后做判断
      

  8.   

    楼上的都说得很清楚了，总结一下就是：第一步，取网页内容（用inet或webbrowser）存入字符串，第二步，根据要求处理字符串。
      

  9.   

    VBToy(无证编程) ( ) 信誉：100    Blog  2006-12-22 15:30:21  得分: 0  
     
     
       楼上的都说得很清楚了，总结一下就是：第一步，取网页内容（用inet或webbrowser）存入字符串，第二步，根据要求处理字符串。
      
     
     可以 存了之后没任何效果啊
      

  10.   

    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Sub Form_Load()
        Dim fs, f
        '将网页下载并保存到本地文件temp.txt中
        If Not URLDownloadToFile(0, "http://www.cngoos.cn/alexapp.asp", "temp.txt", 0, 0) Then
        '读取文件到TEXT1中
            Set fs = CreateObject("scripting.filesystemobject")
            Set f = fs.opentextfile("temp.txt", 1)
            Text1.Text = f.readall
            f.Close
            Set fs = Nothing
        '删除文件
            Kill "temp.txt"
        End If
    End Sub
      

  11.   

    Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As LongPrivate Sub Form_Load()
        Dim fs, f
        If Not URLDownloadToFile(0, "http://www.cngoos.cn/alexapp.asp", "temp.txt", 0, 0) Then
            Set fs = CreateObject("scripting.filesystemobject")
            Set f = fs.opentextfile("temp.txt", 1)
            Text1.Text = Replace(f.readall, vbCrLf, "")
            f.Close
            Set fs = Nothing
            Kill "temp.txt"
        End If
    End Sub