3-14.aspx
来自「程序源代码分成两个部分:  一部分是用记事本或EditPlus」· ASPX 代码 · 共 38 行
ASPX
38 行
<%@page LANGUAGE = "vb"%>
<script language="vb" runat ="server">
public class Complex
private imag, real as double
public message as String
public Sub New()
message = "New..."
imag = 0
real = 0
end sub
public sub New(byval r as double, byval i as double)
message = "New(r,i)..."
imag = i
real = r
End sub
end class
</script>
<HTML>
<HEAD>
<title>Test Class</title>
</HEAD>
<BODY>
<TABLE width="100%" bordercolor="blue" border="1">
<TR height=25 bgcolor="blue" >
<TD align="center"><font color="white">程序输出结果</font></TD></TR>
<TR bgcolor="white"><TD>
<%
dim c as new complex()
response.write(c.message)
dim cc as new complex(10,20)
response.write(cc.message)
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?