急！！！JAVA SCRIPT 对象赋值

response 输出的是字符串，你用的是对象

解决方案 »

  1.   

    <%
    Private Function createOK()
        
        Dim objDNReport
    set objDNReport=CreateObject("DataNewReport.DNReport")
        
        '表头
        With objDNReport.Sections(1)
            .Height = 2000
        End With
        objDNReport.AutoInsertTitles objDNReport.Sections(1), 500, 600, "", sTitle, "", , 30, RGB(0, 0, 255)
        objDNReport.AutoInsertTitles objDNReport.Sections(1), 1500, 400, "制作人：", "", "制作日期：      "
                    , , , , , , , True
        
        Set ConstructReport = objDNReport
        
    End Function
    dim strobj
    set strobj=createOK()
    %><body  scroll="no" leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0 bgColor=gray LANGUAGE=javascript onLoad="return window_onload()" onResize="return window_onresize()"><OBJECT CLASSID='CLSID:9CDE204E-0CC2-11D6-9011-00E09873B6BB' ID=dnp width=0 height=0></OBJECT>
    <OBJECT CLASSID='CLSID:ED0F0F88-FD05-435F-9A58-1E45E04AB097' ID=objDNReport width=0 height=0></OBJECT><SCRIPT LANGUAGE=javascript>function window_onload() {

    //新建立一纸张
    dnp.CreatePaper("DEMO");
    //设置纸张属性
        dnp.Papers(0).ReportObject=objDNReport;
        dnp.Paper = dnp.Papers(0);
    window_onresize();
    return true;
    }function window_onresize() {
    dnp.width=document.body.offsetWidth-4;
    dnp.height=document.body.offsetHeight-4;
    }</SCRIPT>
    </body>问题是：如何将objDNReport的值为strobj
      

  2.   

    你<%
    Private Function createOK()
        
        Dim objDNReport
    set objDNReport=CreateObject("DataNewReport.DNReport")
        
        '表头
        With objDNReport.Sections(1)
            .Height = 2000
        End With
        objDNReport.AutoInsertTitles objDNReport.Sections(1), 500, 600, "", sTitle, "", , 30, RGB(0, 0, 255)
        objDNReport.AutoInsertTitles objDNReport.Sections(1), 1500, 400, "制作人：", "", "制作日期：      "
                    , , , , , , , True
        
        Set ConstructReport = objDNReport
        
    End Function
    %><body  scroll="no" leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0 bgColor=gray LANGUAGE=javascript onLoad="return window_onload()" onResize="return window_onresize()"><OBJECT CLASSID='CLSID:9CDE204E-0CC2-11D6-9011-00E09873B6BB' ID=dnp width=0 height=0></OBJECT>
    <OBJECT CLASSID='CLSID:ED0F0F88-FD05-435F-9A58-1E45E04AB097' ID=objDNReport width=0 height=0></OBJECT><SCRIPT LANGUAGE=javascript>function window_onload() {

    //新建立一纸张
    dnp.CreatePaper("DEMO");
    //设置纸张属性
        dnp.Papers(0).ReportObject=createOK()
        dnp.Paper = dnp.Papers(0);
    window_onresize();
    return true;
    }function window_onresize() {
    dnp.width=document.body.offsetWidth-4;
    dnp.height=document.body.offsetHeight-4;
    }</SCRIPT>
    </body>