62,074
社区成员
发帖
与我相关
我的任务
分享
<%@ Page Language="VB" AutoEventWireup="True" CodeFile="test.aspx.vb" Inherits="test" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
</head>
<body>
<div class="pagewidth">
<form id="form1" runat="server" method="post">
<div>
<asp:ScriptManager ID="ScriptManager1" runat="server">
</asp:ScriptManager>
<asp:UpdatePanel ID="UpdatePanel1" runat="server">
<ContentTemplate>
<asp:Timer ID="Timer1" runat="server" Interval="1000">
</asp:Timer>
<asp:Label ID="Label1" runat="server" Text="面板尚未刷新"></asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
<asp:Label ID="Label2" runat="server" Text="Label"></asp:Label>
<asp:Button ID="Button1" runat="server" Text="Button" />
</div>
</form>
</div>
</body>
</html>
Imports System.Configuration
Imports System.Data.SqlClient
Partial Class test
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If (Not IsPostBack) Then
ClientScript.RegisterClientScriptBlock(Page.GetType(), "message", "<script language=javascript>alert('page upload!') </script>")
'Response.Write("<script language=javascript>alert('page upload!') </script>")
End If
End Sub
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now.ToLongTimeString()
ClientScript.RegisterClientScriptBlock(Page.GetType(), "message", " <script language=javascript>alert('page set back!') </script>")
Response.Write("<script language=javascript>alert('page back!') </script>")
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
ClientScript.RegisterClientScriptBlock(Page.GetType(), "message", " <script language=javascript>alert('page set back!') </script>")
End Sub
End Class