Ajax模組timer用法

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

2、1.text=now 與與 label2.text=now點選網(wǎng)頁按滑鼠右鍵點選網(wǎng)頁按滑鼠右鍵設(shè)定設(shè)定default.aspx為起始頁為起始頁在頁面上放置在頁面上放置PANEL與與LABEL抓取資料庫最新的一筆資料放到各個抓取資料庫最新的一筆資料放到各個LABEL.TEXT判斷各個判斷各個LABEL大於或小於數(shù)值，讓大於或小於數(shù)值，讓IMAGE.IMAGEURL產(chǎn)生變化產(chǎn)生變化簡單呈現(xiàn)簡單呈現(xiàn)LABEL與圖形變化與圖形變化使用OWC畫統(tǒng)計圖安裝安裝OWC11 網(wǎng)頁元件網(wǎng)頁元件加入?yún)⒖技尤雲(yún)⒖糏mports 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 數(shù)值數(shù)值 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()連接資料連接資料 顯示要呈現(xiàn)的兩個欄位顯示要呈現(xiàn)的兩個欄位 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()建立另一個新網(wǎng)頁建立另一個新網(wǎng)頁放置一個放置一個BUTTON與與IMAGE點選點選IMAGE 屬性屬性imageurl設(shè)定建置設(shè)定建置OWC的網(wǎng)頁的網(wǎng)頁例例: 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