Ajax模組timer用法

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

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