PHP怎么转成ASP？

Question

个人感觉就是【fsockopen】这个函数转成Asp较麻烦。
你可以看看www.phpjs.org，将PHP的函数都用Js

Answer 1

<% 
Function GetBody(weburl) 
    '创建对象
Dim ObjXMLHTTP
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
'请求文件,以异步形式
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
While ObjXMLHTTP.readyState <> 4
       ObjXMLHTTP.waitForResponse 1000
Wend
'得到结果
    GetBody=ObjXMLHTTP.responseBody
'释放对象
    Set ObjXMLHTTP=Nothing
End FunctionFunction BytesToBstr(body,Cset)
         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 = Cset
       BytesToBstr = objstream.ReadText 
       objstream.Close
       set objstream = nothing
End Function

Answer 2

ASP2PHP maker这个工具挺好用的。可以试一下，但是不能保证转换的代码可用还是用工改好啊。

Answer 3

我是PHP转ASP啊 不是ASP赚PHP啊

Answer 4

UPUP!   哪位大哥可以指点一下啊？

Answer 5

  strUrl = "..."  
  XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") 
  XMLHTTP.Open "POST", strUrl, False
  XMLHTTP.setRequestHeader"Content-Type", "application/x-www-form-urlencoded"
  XMLHTTP.send"..."
  Response.Write XMLHTTP.responseText