Ajax模组timer用法

1、Ajax模組timer用法安裝安裝ASPAJAXExtSetup編輯編輯ASP.NET工具用工具用點選點選NEXT即可即可安裝完成安裝完成開啟新網站，建立新的頁面開啟新網站，建立新的頁面工具箱出現了工具箱出現了AJAX的工具元件的工具元件放置一個放置一個SCRIPTMANAGER放置一個放置一個TIMER放置一個放置一個PANEL(一網頁可多個一網頁可多個)拖曳兩個拖曳兩個LABELPANEL屬性屬性TRIGGERS集合集合設定行為設定行為TIMERTIMER屬性屬性INTERVAL設定設定1000單位單位(為一秒為一秒)分別在分別在TIMER_TICK與與PAGE_LOAD輸入輸入label

2、1.text=now 與與 label2.text=now點選網頁按滑鼠右鍵點選網頁按滑鼠右鍵設定設定default.aspx為起始頁為起始頁在頁面上放置在頁面上放置PANEL與與LABEL抓取資料庫最新的一筆資料放到各個抓取資料庫最新的一筆資料放到各個LABEL.TEXT判斷各個判斷各個LABEL大於或小於數值，讓大於或小於數值，讓IMAGE.IMAGEURL產生變化產生變化簡單呈現簡單呈現LABEL與圖形變化與圖形變化使用OWC畫統計圖安裝安裝OWC11 網頁元件網頁元件加入參考加入參考Imports owc11 First create a ChartSpace object to ho

3、ld the chart Dim objCSpace As ChartSpace = New ChartSpaceClass() Add a chart and provide a type Dim objChart As ChChart = objCSpace.Charts.Add(0) 變更圖形變更圖形 objChart.Type = ChartChartTypeEnum.chChartTypeArea3D add chart titles and legend objChart.HasTitle = True objChart.Title.Caption = ASP.NET Charts

4、 objChart.HasLegend = True objChart.Legend.Border.DashStyle = OWC11.ChartLineDashStyleEnum.chLineDash objChart.Legend.Position = OWC11.ChartLegendPositionEnum.chLegendPositionRight Populate with contrived data 數值數值 Dim strCategory As String = Cars, Trucks, Vans, Big Rigs, Motorcycles, Mopeds Dim str

5、Value As String = 13,12,31,43,23,15 Add a series to the charts series collection objChart.SeriesCollection.Add(0) load the category and value data objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories, CInt(ChartSpecialDataSourcesEnum.chDataLiteral), strCategory) objChart.SeriesCo

6、llection(0).SetData(ChartDimensionsEnum.chDimValues, CInt(ChartSpecialDataSourcesEnum.chDataLiteral), strValue) show the chart on the client Response.ContentType = image/gif Response.BinaryWrite(DirectCast(objCSpace.GetPicture(gif, 500, 400), Byte() Response.End()連接資料連接資料 顯示要呈現的兩個欄位顯示要呈現的兩個欄位 Dim st

7、rCategory As String = Dim strValue As String = Dim sum As Integer cn.Open() Dim cm As New SqlDataAdapter(select top 100 * from cc_t, cn) cm.Fill(dbset, cc) If dbset.Tables(cc).Rows.Count 15 Then sum = (dbset.Tables(cc).Rows.Count - 1) 15 For x As Integer = 0 To dbset.Tables(cc).Rows.Count - 1 Step s

8、um strCategory = strCategory & , & dbset.Tables(cc).Rows(x).Item(c_t) strValue = strValue & , & dbset.Tables(cc).Rows(x).Item(cc) Next Else For x As Integer = 0 To dbset.Tables(cc).Rows.Count - 1 strCategory = strCategory & , & dbset.Tables(cc).Rows(x).Item(c_t) strValue = st

9、rValue & , & dbset.Tables(cc).Rows(x).Item(cc) Next End If sum = (dbset.Tables(cc).Rows.Count - 1) 15 For x As Integer = 0 To dbset.Tables(cc).Rows.Count - 1 Step sum strCategory = strCategory & , & dbset.Tables(cc).Rows(x).Item(c_t) strValue = strValue & , & dbset.Tables(cc).Rows(x).Item(cc) Next cn.Close()建立另一個新網頁建立另一個新網頁放置一個放置一個BUTTON與與IMAGE點選點選IMAGE 屬性屬性imageurl設定建置設定建置OWC的網頁的網頁例例: xxx.aspx Dim sql1 As String = select top 100 * from cc_t cn.Open() Dim cm As New SqlCommand(sql1, cn) Dim reader As SqlDataReader = cm.ExecuteRead