📄 listing1508.aspx
字号:
<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(obj as object, e as eventargs)
if Not Page.IsPostBack then
dim objUser as new TYASPNET.User
dim objDetails as new TYASPNET.UserDetails
objDetails = objUser.GetDetails(1)
lblMessage.Text = "Hello " & objDetails.FirstName & "!"
end if
end sub
sub Update(obj as object, e as eventargs)
dim objUser as new TYASPNET.User
dim objDetails as new TYASPNET.UserDetails
objDetails.FirstName = tbName.Text
if objUser.Update(objDetails, 1) then
objDetails = objUser.GetDetails(1)
lblMessage.Text = "Hello " & objDetails.FirstName & "!"
else
lblMessage.Text = "Update failed!"
end if
end sub
</script>
<html><body>
<form runat="server">
<asp:Label id="lblMessage" runat="server" /><p>
Change your name?<br>
<asp:Textbox id="tbName" runat="server"/><br>
<asp:Button id="btSubmit" runat="server"
OnClick="Update" Text="Submit" />
</form>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -