asp和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","") % >