问题描述
怎么样才能把以下代码转换成PHP啊？<%FunctionGetHttpPage(HttpUrl,bm)IfIsNull(HttpUrl)=TrueOrHttpUrl="$False$"ThenGetHttpPage="$False$"ExitFunctionEndIfDimHttpSetHttp=server.createobject("MSXML2.XMLHTTP")Http.open"GET",HttpUrl,FalseHttp.Send()IfHttp.Readystate<>4thenSetHttp=NothingGetHttpPage="$False$"ExitfunctionEndifGetHTTPPage=bytesToBSTR(Http.responseBody,bm)SetHttp=NothingIfErr.number<>0thenErr.ClearEndIfEndFunctionFunctionBytesToBstr(Body,Cset)DimObjstreamSetObjstream=Server.CreateObject("adodb.stream")objstream.Type=1objstream.Mode=3objstream.Openobjstream.Writebodyobjstream.Position=0objstream.Type=2objstream.Charset=CsetBytesToBstr=objstream.ReadTextobjstream.Closesetobjstream=nothingEndFunctionFunctionGetBody(ConStr,StartStr,OverStr,IncluL,IncluR)IfConStr="$False$"orConStr=""orIsNull(ConStr)=TrueOrStartStr=""orIsNull(StartStr)=TrueOrOverStr=""orIsNull(OverStr)=TrueThenGetBody="$False$"ExitFunctionEndIfDimConStrTempDimStart,OverConStrTemp=Lcase(ConStr)StartStr=Lcase(StartStr)OverStr=Lcase(OverStr)Start=InStrB(1,ConStrTemp,StartStr,vbBinaryCompare)IfStart<=0thenGetBody="$False$"ExitFunctionElseIfIncluL=FalseThenStart=Start+LenB(StartStr)EndIfEndIfOver=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)IfOver<=0OrOver<=StartthenGetBody="$False$"ExitFunctionElseIfIncluR=TrueThenOver=Over+LenB(OverStr)EndIfEndIfGetBody=MidB(ConStr,Start,Over-Start)EndFunctionid=Request.ServerVariables("QUERY_STRING")Cxjw_Com_RayFileC=GetHttpPage("http://www.123.com/inc/url.php?no="&id&"","gb2312")Cxjw_Com_RayFileD=GetBody(Cxjw_Com_RayFileC,"varfurl=""",""";",False,False)%><%=Cxjw_Com_RayFileD%>
解决方案
本帖最后由 im286com 于 2011-10-27 14:36:59 编辑
解决方案二：
该回复于2011-10-27 14:42:14被版主删除
解决方案三：
帮楼主顶一顶。gethttppage可以使用getfile代替了。
解决方案四：
不懂啊。。。
解决方案五：
用php代码编写不就成php了吗？
解决方案六：
建议你学学php吧，不难的，你的代码太长，这里的好心人，都是一边干活，一边回贴子，没有太多的时间！自己试着翻写，有问题再来提，应该合适一点