<script  runat="server">
Sub submit(sender As Object, e as EventArgs)
if name.value<>"" then
   p1.InnerHtml="欢迎" & name.value & "!"
end if
End Sub
</script>

<html>
<body>

<form runat="server">
请输入您的名字:<input id="name" type="text" size="30" runat="server" />
<br /><br />
<input type="submit" value="提交" OnServerClick="submit" runat="server" />
<p id="p1" runat="server" />
</form>

</body>
</html>