TOMMYHU

c#获取页面纯文本信息，一些接口返回的是纯文本，这个就可以搞定了！
        /// <summary>         /// 读取请求URL的返回值         /// </summary>         /// <param name="url">URL</param>         /// <returns>返回相应的值</returns>         public static string GetPageInfo(String url)         {             WebResponse wr_result = null;             StringBuilder txthtml = new StringBuilder();             string strResult = string.Empty;             try             {                 WebRequest wr_req = WebRequest.Create(url);                 wr_req.Timeout = 2000;                 wr_result = wr_req.GetResponse();                 Stream ReceiveStream = wr_result.GetResponseStream();                 Encoding encode = System.Text.Encoding.GetEncoding("utf-8");                 StreamReader sr = new StreamReader(ReceiveStream, encode);                 if (true)                 {                     Char[] read = new Char[256];                     int count = sr.Read(read, 0, 256);                     while (count > 0)                     {                         String str = new String(read, 0, count);                         txthtml.Append(str);                         count = sr.Read(read, 0, 256);                     }                 }                 strResult = txthtml.ToString();             }             catch             {                 strResult = string.Empty;             }             finally             {                 if (wr_result != null)                 {                     wr_result.Close();                 }             }             return strResult;         }

ASP版本
'获取http文本流 Function GetTextStream(url)   getTextStream = ""   dim xmlhttp,lresolvetimeout,lconnecttimeout,lsendtimeout,lreceivetimeout   set xmlhttp = server.createObject("MSXML2.ServerXMLHTTP")   lresolvetimeout = 2000    ' 解析dns名字的超时时间,2秒   lconnecttimeout = 2000    ' 建立winsock连接的超时时间,2秒   lsendtimeout = 3000    ' 发送数据的超时时间,3秒   lreceivetimeout = 20000    ' 接收response的超时时间,20秒   xmlhttp.SetTimeOuts lresolvetimeout,lconnecttimeout,lsendtimeout,lreceivetimeout   xmlhttp.open "GET",url,false,"",""   xmlhttp.Send   if xmlhttp.readyState=4 and xmlhttp.status=200 Then     getTextStream = streamtToChar(xmlhttp.responseBody,"utf-8")   end if   set xmlhttp = Nothing End Function
最后编辑： tommyhu 编辑于2011/03/30 23:04