--欄位轉為圖檔 Function chart(ByVal hourindex As GridViewRow, ByVal E As Integer) As String Dim I As Integer Dim WKIMAGE As String Dim WKHOUR As String Dim HOUR As String HOUR = "Hour" & E --組成欄位成為table中的變數名稱 WKHOUR = DataBinder.Eval(hourindex.DataItem, HOUR) WKIMAGE = " " For I = 1 To 4 If Mid(WKHOUR, I, 1) = "0" Then '用ASP:會傳回的值是STRING,而非ASP認得的物件,所以要直接用HTML的方法 '讓HTML去編譯他,因為HTML認得 '像這種在CLIENT可處理的,就不用回到SERVER去處理,如此是費事 'WKIMAGE = WKIMAGE & " ImageUrl= '~/0.jpg' />" WKIMAGE = WKIMAGE & "" 組成html的指令 Else If Mid(WKHOUR, I, 1) = "2" Then WKIMAGE = WKIMAGE & "" Else 'WKIMAGE = WKIMAGE & " ImageUrl= '~/1.jpg' />" WKIMAGE = WKIMAGE & "" End If End If Next Return WKIMAGE End Function ---------------------------------------------------------------------------------------------------------------------------------------- --欄位的傳送及接收方式 --正常欄位的接收方式
-- 未定義陣列的長度,則要用程式判斷來給陣列的長度 dim aa as string() vstr = Split(Request("textdate"), "/") '前者是欲分割的字串,後者是區別的符號 --要定義已知大小的陣列,才能用I(變數)來定義初始值,否則用I(變數)的話,因不知陣列大小,會有錯誤 dim bb(24) as string for I =0 to 10 bb(i) = “00” next --不知陣列的大小,先定義一個未知的陣列,再用redim來給予陣列的大小 Dim strcnt() ReDim strcnt(NewDT.Columns.Count) --陣列的大小 Dim attenddata As String() attenddata = split(pattend, ";") For i = 0 To ubound(attenddata) 『算陣列極大值,lbount算極小值』 response.write(" " & attenddata(i) & " ") Next