远程调用数据xml实例-ASP代码

<%
on error resume next
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Url = "http://auuo.com/NoteListXml.asp";
set oSend=createobject("Microsoft.XMLHTTP")
’SET oSend = createobject("Msxml2.XMLHTTP")
’SET oSend = createobject("MSXML2.ServerXMLHTTP")

SourceCode = oSend.open ("post",url,false)
oSend.send()
if err.number<>0 then
RESPONSE.WRITE "ERROR"
Response.write err.NUMBER’description
Response.End()
ELSE
RESPONSE.WRITE "OK"
end if
SourceCode = bytes2BSTR(oSend.responseBody)

if instr(SourceCode,"建议您检查输入文字有无错误")=0 then
SourceCode=replace(SourceCode,"<!DOCTYPE notes_list SYSTEM ""noteListXml.dtd"">","")
response.write SourceCode
else
RESPONSE.WRITE "DD"
end if
%>

联系我们

QQ:51193930(Ahoo)
MSN:auuocx@hotmail.com
网址:http://www.auuo.com
地址:慈溪天九商务中心525室
电话:189-0662-0882

我们的优势
拥有优秀的网站设计师与程序工程师,精通各种一流的图形设计软件,如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目,我们为您准备了最专业的技术服务。为您开发的网站精致实用,代码清晰,保证您的网站安全可靠修改方便,最重要的是符合市场需求,并随时为客户解决各种技术问题。

我们正在努力开拓...

baidu

互联网 本网站