关于asp get远程数据的问题
0
悬赏园豆：30
[待解决问题]
由于特别的原因公司的一个老的程序还是asp 其中， 远程get 数据失效？
代码如下：
1 <% 2 Function SendToSp(PostUrl) 3 Server.ScriptTimeOut=72000 4 5 Set oXMLHttp = createObject("Microsoft.XMLHTTP") 6 Call oXMLHttp.Open("get", PostUrl, false) 7 Call oXMLHttp.Send() 8 sHtmlStr = oXMLHttp.responseBody 9 Set oXMLHttp = nothing 10 11 Dim sReturnStr 12 Dim i,n 13 14 sReturnStr = "" 15 n = LenB(sHtmlStr) 16 17 For i = 1 To n 18 Dim sCharCode 19 Dim sNextCharCode 20 sCharCode = AscB( MidB(sHtmlStr, i, 1) ) 21 22 If (sCharCode < &H80) Then 23 sReturnStr = sReturnStr & Chr(sCharCode) 24 Else 25 sNextCharCode = AscB( MidB(sHtmlStr, i+1, 1) ) 26 sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode)) 27 i = i + 1 28 End If 29 Next 30 31 SendToSp = sReturnStr 32 End Function 33 %>
服务器环境：win 2012 ,想问问各路大神，这是怎么回事，在另一台可以服务器上可以
所有回答(1)
0
程序员的段子：
这代码在我的电脑上可以运行的。
没有错误报告，你当程序员都是打开机箱，看看内存条哪儿发光来检查内存泄漏的大神啊！！！
