<%@ 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")) %>
<%@ 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") %>
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") %>
response.write('outtest')
<%@ 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"))
%>
<%@ 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")
%>
<%@ 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")
%>