不是Response错了
是那一句中的 outtest错了
意思就是说 outtest 不是声明为 share的
要实例化类再引用 outtest
这样用是错误的

解决方案 »

  1.   

    the paramater is string
    response.write('outtest')
      

  2.   

    <%@ Page Language="VB" Debug="true" %>
    <%@ Import Namespace="System.Web.UI.page" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <script runat="server">
    public class soufun
    public test as string
    public Function outtest(out as string)
    Return out
    end Function
    end class
    public sf as new soufun
    public sub page_load(sender as object,e as eventargs)
    sf.test = "test1<br>"
    response.write(sf.test)
    end sub
    </script>
    <%
    response.write(sf.test)
    response.write (sf.outtest("ok"))
    %>
      

  3.   

    <%@ Page Language="VB" Debug="true" %>
    <%@ Import Namespace="System.Web.UI.page" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <script runat="server">
    public class soufun
    public test as string
    public sub outtest(out as string)
    System.Web.HttpContext.Current.Response.write("hello")
    out = "world"
    end sub
    end class
    public sf as new soufun
    public sub page_load(sender as object,e as eventargs)
    sf.test = "test1<br>"
    response.write(sf.test)
    end sub
    </script>
    <%
    response.write(sf.test)
    sf.outtest("my god")
    %>
      

  4.   

    panyee的方法太长,自己试了一下,改了一下,和原来一样用了,谢谢各位的参与。<%@ Page Language="VB" Debug="true" %>
    <%@ Import Namespace="System.Web.UI.page" %>
    <%@ Import Namespace="System.Data.SqlClient" %>
    <script runat="server">
    public class soufun
    public test as string
    public response as object = System.Web.HttpContext.Current.Response
    public sub outtest(out as string)
    response.write(out)
    end sub
    end class
    public sf as new soufun
    public sub page_load(sender as object,e as eventargs)
    sf.test = "test1<br>"
    response.write(sf.test)
    end sub
    </script>
    <%
    response.write(sf.test)
    sf.outtest("hello")
    %>