精品久久看,欧美成人久久一级c片免费,日本加勒比在线精品视频,国产一区二区三区免费大片天美,国产成人精品999在线,97理论三级九七午夜在线观看

當前位置:首頁文章首頁 IT學院 IT技術

ASP中在VBScript中使用類的介紹說明

作者:  來源:  發布時間:2011-6-28 17:24:29  點擊:
  我們來分析一下(2)中的程序:
Class TVProgram
Public StartTime
Public internal_ProgramDate
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & _
" " & MonthName(Month(internal_ProgramDate)) & _
" " & Year(internal_ProgramDate)
End Property

Public ProgramTitle
End Class

Dim objTVShow
Set objTVShow = New TVProgram
objTVShow.StartTime = CDate("17:30")
objTVShow.internal_ProgramDate = DateSerial(1999,9,17)
objTVShow.ProgramTitle = "The Jerry Springer Show"
Response.Write objTVShow.ProgramTitle & " is on at " & _
objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."

  當調用對象的屬性ProgramDate時,實際上執行了函數ProgramDate,即如上定義的函數,而很快你也將習慣這種在聲明部分使用Public或Private關鍵字的方式。關鍵字“Property”,告知了編譯器如同調用屬性一樣在外部調用函數。接著的“Get”,表明該函數是輸出還是獲得一個值。

  Get的意思是“允許外部代碼去‘獲取’一個值”,與其類似的關鍵字還有“Let”和“Set”,但這兩個比較復雜,因而我們以后再討論。

  接下去的代碼看來有點難度的,給objectname.internal_ProgramDate賦值并通過objectname.ProgramDate來調用它。如果可以使用相同關鍵字同時為其賦值并獲得它的值不是更好嗎?當然,那也可以。

  如果定義Get和Let屬性的名稱相同,可以將它們當作對象相同的屬性,但這只限于它們定義了相同數量的成員。(以下代碼看來不太相同,僅作為實例參考)
Class TVProgram
Public StartTime
Public internal_ProgramDate
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & " " _
& MonthName(Month(internal_ProgramDate)) & _
" " & Year(internal_ProgramDate)
End Property

Public Property Let ProgramDate(ByVal varDateIn)
internal_ProgramDate = CDate(varDateIn)
End Property

Public ProgramTitle
End Class

Dim objTVShow
Set objTVShow = New TVProgram
objTVShow.StartTime = CDate("17:30")
objTVShow.ProgramDate = "17 Sept 99"
objTVShow.ProgramTitle = "The Jerry Springer Show"
Response.Write objTVShow.ProgramTitle & " is on at " & _
objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."

  以上代碼中Let的聲明部分看來似乎是一個多余的元素,當我第一次看到時研究了很長時間。每次我使用“0”作為變量用在每個屬性上,我總是得到這個錯誤信息,“元素數量必須相等”。“它們確實相等!”抓狂之后,我回過頭去看程序才覺得自己的愚蠢!:)

  原因是,當你試圖為ProgramDate賦值時,你會使用這樣一行程序:objTVShow.ProgramDate = dtmMyDate

  為了方便,等號右邊的值(這里指dtmMyDate)作為了一個程元賦給了函數。因此編譯器可能會認為在Get ProgramDate行有0程元,而Let ProgramDate卻多一個!分配的值總是被略過而作為屬性的最后一個程元,所以即使你使用其他程元,所賦的值總是作為最后一個程元。

  現在看程序。無論通過ProgramDate設置日期為文本形式,還是用internal_ProgramDate譯成日期變量,程序都沒有問題。但能不能只使用一個入口呢?

  如果internal_ProgramDate只能在內部有效,而使用Let ProgramDate檢查傳輸的數據類型,我們就可以作出選擇。例如:
Class TVProgram
Public StartTime
Private internal_ProgramDate
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & " " & _
MonthName(Month(internal_ProgramDate)) & _
" " & Year(internal_ProgramDate)
End Property

Public Property Let ProgramDate(ByVal varDateIn)
If IsDate(varDateIn) Then
internal_ProgramDate = varDateIn
Else
'Place some error handling code in here.
End If
End Property

Public ProgramTitle
End Class

并同樣聲明StartTime屬性:
Class TVProgram
Private internal_StartTime
Public Property Get StartTime
StartTime = Hour(internal_StartTime) & ":" _
& Minute(internal_StartTime)
End Property

Public Property Let StartTime(ByVal varTimeIn)
If IsDate(varTimeIn) Then
internal_StartTime = varTimeIn
End If
End Property

Private internal_ProgramDate
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & " " _
& MonthName(Month(internal_ProgramDate)) & _
" " & Year(internal_ProgramDate)
End Property

Public Property Let ProgramDate(ByVal varDateIn)
If IsDate(varDateIn) Then
internal_ProgramDate = varDateIn
End If
End Property

Public ProgramTitle
End Class
...
  現在的代碼離我們想要的還是有些不太實用,我們將在其他頁使用類TVProgram,因此最好將其獨立定義,以便所有也面都可以調用。我們將在第四部分討論這點。

  現在的代碼離我們想要的還是有些不太實用,我們將在其他頁使用類TVProgram,因此最好將其獨立定義,以便所有也面都可以調用。創建一個ASP頁面,并命名為TVProgramClass.asp,我們在其中定義類TVProgram。

--TVProgramClass.asp--
<%
Class TVProgram
Private internal_StartTime
Public Property Get StartTime
StartTime = Hour(internal_StartTime) & ":" & Minute(internal_StartTime)
End Property

Public Property Let StartTime(ByVal varTimeIn)
If IsDate(varTimeIn) Then
internal_StartTime = varTimeIn
End If
End Property

Private internal_ProgramDate
Public Property Get ProgramDate
ProgramDate = Day(internal_ProgramDate) & " " & MonthName(Month(internal_ProgramDate)) & " " & Year(internal_ProgramDate)
End Property

Public Property Let ProgramDate(ByVal varDateIn)
If IsDate(varDateIn) Then
internal_ProgramDate = varDateIn
End If
End Property

Public ProgramTitle
End Class
%>

  這樣就可以在任何ASP中調用我們定義的類了,語法如下:
<!-- #include virtual="TVProgramClass.asp" -->
<%
Dim objTVShow
Set objTVShow = New TVProgram
objTVShow.StartTime = CDate("17:30")
objTVShow.ProgramDate = DateSerial(1999,9,17)
objTVShow.ProgramTitle = "The Jerry Springer Show"
response.write objTVShow.ProgramTitle & " is on at " & objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."
%>

  這里有一個建議。

首頁 上一頁 [1] [2] [3]  下一頁 尾頁

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 免费观看120秒 | 国产精品日韩 | 忘忧草影院 | 九九亚洲 | 成人丁香婷婷 | 成人黄色免费看 | 国产精品观看视频免费完整版 | 国内精品一区二区三区αv 国内精品一区二区三区app | 欧美一区二区在线观看 | 精品欧美一区二区在线观看 | 一级精品视频 | 国产成人羞羞电影网站在线观看 | 91亚洲精品国产自在现线 | 精品一区二区久久久久久久网站 | 少女中文字幕在线视频 | 国产色婷婷免费视频 | 国产成人一区二区三区高清 | 高清女主播一区二区三区 | 天堂视频在线观看免费完整版 | 日本无吗免费一二区 | 成年男女的免费视频网站 | 免费看羞羞视频的网站 | 免费在线一级片 | 久久国产精品一区二区 | 汉宫春晓61式图解 | 欧美性色综合网 | 色戒无删减版在线 | 国产一级高清视频在线 | 五月天激情视频在线观看 | 97中文字幕在线 | 日韩一区二区三区中文字幕 | 四虎成人精品国产一区a | 免费 高清 中文在线观看 | 久久成人a毛片免费观看网站 | 五月婷婷激情综合网 | 免费电影mv网址入口 | 另类色综合| 成人伊人青草久久综合网下载 | 一级一级毛片 | 4399影视免费观看高清直播 | 欧美二区视频 |