php 读取远程txt,asp和PHP读取远程txt文件

PHP远程读取TXT文本的代码：

< ?PHP

$file_name=”http://www.piikee.net/url/1.txt”;

$i=1;

$fp=fopen($file_name,’r’);

while(!feof($fp))

{

$buffer=fgets($fp,4096);

echo $buffer.” “;

$i=$i+1;

}

fclose($fp);

? >

ASP远程读取TXT文本代码：

< %

Function PostHttpPage(loginActUrl,PostData)

Dim xmlHttp

Dim RetStr

Set xmlHttp = CreateObject(“Microsoft.XMLHTTP”)

xmlHttp.Open “POST”, loginActUrl, False

XmlHTTP.setRequestHeader “Content-Length”,Len(PostData)

xmlHttp.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”

xmlHttp.Send PostData

If Err.Number <> 0 Then

Set xmlHttp=Nothing

response.Write(“err:”&PostData)

Exit Function

End If

PostHttpPage=BytesToBstr(xmlHttp.responseBody,”GB2312”)

Set xmlHttp = nothing

End Function

Function BytesToBstr(body,code)

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 =code

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

% >

< %= PostHttpPage(“http://www.piikee.net/url/1.txt”,””) % >

打赏

微信扫一扫，打赏作者吧～