当前位置:首页 > 计算机相关 > 建站之路 > 正文内容

asp和PHP读取远程txt文件

piikee11年前 (2012-07-27)建站之路186
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","") % >

扫描二维码推送至手机访问。

版权声明:本文由萍客小居发布,如需转载请注明出处。

本文链接:https://www.piikee.net/939.html

分享给朋友:

相关文章

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。