ASP VBScript JScript confusion - ASP / Active Server Pages

I dont know where to start my question so let me tell you my story :)

The ASP that cause me trouble is running on IIS that set ASP default language to JScript instead of VBScript.

This ASP page is popped up by another ASP page and there are authentication, privilege and security stuff involved. And yes this page contain a lot of javascript.

there is a <DIV></DIV> in this page for me. And my job is as simple as put another page between that tag.

Yes it's that easy. It like ... I love your web site and I want to show your homepage of your website in the middle of my page.

and I found this script on the internet

Expand|Select|Wrap|Line Numbers

 
<%

Private Function GetWebPage(ByVal HTTPAddress, ByVal CharSet)

    Dim strContent, xml_http, strBody, strText, max

    '--- Fetch the web page

    On error resume next

    Set xml_http = Server.CreateObject("Microsoft.XMLHTTP")

        xml_http.Open "GET", HTTPAddress, False

        xml_http.Send

        If Err Then

            GetWebPage = ""

            Exit Function

        End If

        strContent = xml_http.responseBody

    Set xml_http = Nothing

    On Error GoTo 0

    '--- Converts the binary content to text

      '--- Create Stream object

      Dim BinaryStream

      Set BinaryStream = CreateObject("ADODB.Stream")

      '--- Specify stream type - we want To save text/string data.

      BinaryStream.Type = 1

      '--- Open the stream And write text/string data To the object

      BinaryStream.Open

      BinaryStream.Write strContent

      '--- Change stream type To binary

      BinaryStream.Position = 0

      BinaryStream.Type = 2

      '--- Specify charset For the source text (unicode) data.

      If Len(CharSet) > 0 Then

        BinaryStream.CharSet = CharSet

      Else

        BinaryStream.CharSet = "UTF-8"

      End If

      '--- Open the stream And get binary data from the object

      strText = BinaryStream.ReadText

        '--- remove headers

        max = InStr(1, strText, Chr(10) & Chr(10), 1)

        GetWebPage = Mid(strText, max + 1)

End Function

Dim strPage

strPage = GetWebPage( "http://www.livio.net/main/default.asp", "" )

 '--- get the html source of the livio.net home page and store it into the variable strPage.

Response.Write (strPage)

%>

<html>

<body>

</body>

</html>

it works fine by itself. But I can not put this in my code because my page use JScript

I found another script on another website that help me use both jscript and vbscript using 2 .asp

the first asp is page1.asp

Expand|Select|Wrap|Line Numbers

 
<html>

<title>My page</title>

<body>

<script language="javascript" src="page2.asp"></script> 

</body>

</html>

the secondpage asp is page2.asp

Expand|Select|Wrap|Line Numbers

 
<%@ language="VBScript"%>

<%

strPage = "Hello"

%>

document . write ("<%=strPage%>")

this also work fine.

So I tried to put the first script I found in the first website in the page2.asp like this

page2.asp

Expand|Select|Wrap|Line Numbers

 
<%@ language="VBScript"%>

<%

Private Function GetWebPage(ByVal HTTPAddress, ByVal CharSet)

    Dim strContent, xml_http, strBody, strText, max

    '--- Fetch the web page

    On error resume next

    Set xml_http = Server.CreateObject("Microsoft.XMLHTTP")

        xml_http.Open "GET", HTTPAddress, False

        xml_http.Send

        If Err Then

            GetWebPage = ""

            Exit Function

        End If

        strContent = xml_http.responseBody

    Set xml_http = Nothing

    On Error GoTo 0

    '--- Converts the binary content to text

      '--- Create Stream object

      Dim BinaryStream

      Set BinaryStream = CreateObject("ADODB.Stream")

      '--- Specify stream type - we want To save text/string data.

      BinaryStream.Type = 1

      '--- Open the stream And write text/string data To the object

      BinaryStream.Open

      BinaryStream.Write strContent

      '--- Change stream type To binary

      BinaryStream.Position = 0

      BinaryStream.Type = 2

      '--- Specify charset For the source text (unicode) data.

      If Len(CharSet) > 0 Then

        BinaryStream.CharSet = CharSet

      Else

        BinaryStream.CharSet = "UTF-8"

      End If

      '--- Open the stream And get binary data from the object

      strText = BinaryStream.ReadText

        '--- remove headers

        max = InStr(1, strText, Chr(10) & Chr(10), 1)

        GetWebPage = Mid(strText, max + 1)

End Function

Dim strPage

strPage = GetWebPage( "http://www.livio.net/main/default.asp", "" )

 '--- get the html source of the livio.net home page and store it into the variable strPage.

'Response.Write (strPage)

%>
 
document . write ("<%=strPage%>")

it doesn't work.

I tried to use Response.write it doesn't work too.

so I tried a fews other things too.

1. after statement
strPage = GetWebPage( "http://www.livio.net/main/default.asp", "" )

I tried
strPage = Len(strPage)
and it show a number on my page then I think this is not far from the answer.

I tried
strPage = Mid(strPage, 100, 10)

and it show some string on my page

I found out that in fact this strPage is a string that have a lot of double quote in it and that seem to be a lot of trouble for document . write

so my question are

1. Why Response.Write (strPage) did not work in this case?
2. document . write ("<%=strPage%>") seem to work with out double quote, how ca i fix it?
3. Is there other ways to do this?

Apr 11 '07 #1

Subscribe Post Reply

4543

neau33

Hi tunk!

There's a very simple solution to this problem...
at first; just forget use of any ADODB ~ objects
You can get the binary data outright from the XML object
in the following way...

Expand|Select|Wrap|Line Numbers

 
       Dim xml_http, bStr, strContent

       Set xml_http = Server.CreateObject("Microsoft.XMLHTTP")
 
       'use POST method for large amount of data

        xml_http.Open "GET", HTTPAddress, False

        xml_http.Send
 
       ' your error-handling thing

       '....        
 
        bStr = xml_http.responseBody

        Set xml_http = Nothing
 
       For i = 1 to LenB(bStr)

        strContent = strContent & Chr(AscB(MidB(bStr, i, 1)))

      Next
 
      Response.Write(strContent)

' and that's all

I hope you can find this useful

-Nea-

Oct 28 '07 #2

neau33

Hi again tunk!

one more little thing...

'add the following line next the .send command
xml_http.getAllResponseHeaders

regards
-Nea-

Oct 29 '07 #3

Similar topics

JScript and VBscript

by: Christopher Brandsdal | last post by:

If I have a .ASP page that runs JScript code - is it possible to include an ..ASP page that runs VBscript???

ASP / Active Server Pages

ASP VBscript vs Jscript

by: Harag | last post by:

Hi All. I'm stating out doing some web developing. I was wondering which of the server side languages should I concentrate on and learn. I Know CSS, HTML, T-SQL I can look at the client...

ASP / Active Server Pages

ASP vs. CGI?

by: Laser Lu | last post by:

In ASP and CGI, which one would be executed more fast and has the better execution efficiency in IIS? And how about writing CGI in VB? -- Best regards, Laser Lu

ASP / Active Server Pages

VBscript and JScript

by: Christopher Brandsdal | last post by:

Hi! Maby this is wring newsgroup.. I'm using ASP / VBscript on my own cms system, but I needed to use some jscript to make something work... I'm new to jscript, so here is a simple question:...

ASP / Active Server Pages

Bugs in VBScript GetRef()

by: Mike Schinkel | last post by:

Does anyone know if there are bugs in VBScript's GetRef()? I'm using VBScript Version 5.6.8515 on Win2003Server w/ASP. Sometimes it returns an object that VarType() says is a vbObject. Other...

ASP / Active Server Pages

ASP and VBScript questions

by: gpence | last post by:

!!! Newbie question warning !!! I am somewhat familiar with javascript's ability to "access" the browser's favorites list -- for example, using window.home() will take you to the default URL --...

HTML / CSS

XMLDOM / Conditional Check for Object fails

by: joe | last post by:

I am having problems checking for the value of an XMLDOM object . Lets say my XMLDOM object was successfully created as objXMLDoc, and that has several nodes on it. In the case of a VBScript loop...

ASP / Active Server Pages

VBscript FormatPercent overflow 800a0006

by: dkiernan | last post by:

I am stumped. I have several websites running on a 2003 IIS6 box, all running basically the same code (each site has its own home directory and copy of the code). All are running in the same App...

ASP / Active Server Pages

HELP: ASP JScript & VBScript interoperability

by: Andrew Wan | last post by:

How can VBScript code access JScript code variables in the same ASP page? <SCRIPT LANGAUGE="VBScript"> Dim a a = 10 </SCRIPT> <SCRIPT LANGUAGE="JScript"> Response.Write(a); </SCRIPT>

ASP / Active Server Pages

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice