求助【孟宪会】大侠，原来可用的ADODB.Stream对象，现在升级了就用不了了？那怎么解决呢？

KAI3000 2004-07-21 02:35:12

请看这http://dotnet.aspx.cc/ShowDetail.aspx?id=6DDF3C72-F29C-43D3-C2A8-2444CF98FBED

...全文

123 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

KAI3000 2004-07-21

打赏
举报

OK，搞定，谢谢！

ssm1226 2004-07-21

打赏
举报

<%
dim oXmlHttp,oStream,result
set oXmlHttp=server.CreateObject("Microsoft.XMLHTTP")
oXmlHttp.open "GET","http://dotnet.aspx.cc/content.aspx", false
oXmlHttp.send

set oStream = server.CreateObject("ADODB.Stream")
oStream.Type=1
oStream.Mode=3
oStream.Open()
oStream.Write oXmlHttp.responseBody
oStream.Position= 0
oStream.Type= 2
oStream.Charset="gb2312"
result= oStream.ReadText()
oStream.Close()
oStream = null
Response.Write result
%>

KAI3000 2004-07-21

打赏
举报

谢谢雨中人～
是这样的，我想要服务器端vbscript版本的或者

客户端js版本的，能给我vbscript版本服务器端的？我对vbscript不熟悉

ssm1226 2004-07-21

打赏
举报

alert("您的机器不支持ADODB.Stream.")
换成:

Response.Write("您的机器不支持ADODB.Stream.");

ssm1226 2004-07-21

打赏
举报

<%@ language=javascript%>
<html>
<head>
<title></title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name=ProgId content=VisualStudio.HTML>
<meta name=Originator content="Microsoft Visual Studio .NET 7.1">
</head>
<body>
<%
var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
oXmlHttp.open("GET","http://dotnet.aspx.cc/content.aspx", false);
oXmlHttp.send()
var oStream = new ActiveXObject("ADODB.Stream");
if(oStream == null)
alert("您的机器不支持ADODB.Stream.")
else
{
oStream.Type=1;
oStream.Mode=3;
oStream.Open() ;
oStream.Write(oXmlHttp.responseBody);
oStream.Position= 0;
oStream.Type= 2;
oStream.Charset="gb2312";
var result= oStream.ReadText();
oStream.Close();
oStream = null;
Response.Write( result);
}

%>

</body>
</html>

KAI3000 2004-07-21