<%@ Page Language="vb" Debug="true" %>
<html><head>
<script language="vb" runat="server">
sub page_load(byval sender as object,byval e as eventargs)
if not ispostback then '检查如果页面还没有提交的表单回来！！
lbl.text="请在下面框里输入点什么,然后按哈那个按钮，乖哈！"
end if
end sub
sub btn_click(sender as object, e as eventargs)
lbl.text="看你写的什么嘛？" & txt.text & "我看你才象个" & txt.text
end sub
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<form runat="server">
<asp:Label ID="lbl" runat="server"/><br>
<asp:TextBox ID="txt" runat="server"/>
<asp:Button ID="btn" Text="有种你写个“猪头”" OnClick="btn_click" runat="server"/>
</form>
</body>
</html>
<html><head>
<script language="vb" runat="server">
sub page_load(byval sender as object,byval e as eventargs)
if not ispostback then '检查如果页面还没有提交的表单回来！！
lbl.text="请在下面框里输入点什么,然后按哈那个按钮，乖哈！"
end if
end sub
sub btn_click(sender as object, e as eventargs)
lbl.text="看你写的什么嘛？" & txt.text & "我看你才象个" & txt.text
end sub
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<form runat="server">
<asp:Label ID="lbl" runat="server"/><br>
<asp:TextBox ID="txt" runat="server"/>
<asp:Button ID="btn" Text="有种你写个“猪头”" OnClick="btn_click" runat="server"/>
</form>
</body>
</html>
