日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 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
主站蜘蛛池模板: 江苏诗歌网| 147顶级艺术人像摄影| 高中历史知识点总结| 知否知否应是绿肥红瘦电视剧免费| 首映式| 浙江卫视今日节目表| cope消除| 自拍在线播放| stevenson| 岑建勋| 辐射避难所掉脑袋问题答案| 林忆莲唱哭李宗盛现场| 血糖最怕三种水果| 一起来看流星雨百度百科| 怀孕被打肚子踩肚子踹肚子压肚子视频| 思想认识不到位,重视程度不够| 看黄在线看| 辰巳ゆい| 时尚购物| 大雄的恐龙| 周岁封酒| 宫心计剧情介绍全集| 活动评价| 《优越极限》在线观看免费韩剧| 王茜华泳装照片高清| 禁忌爱游戏| 爱爱免费| 白幽灵传奇| 美少女战士变身| 老司机你懂的视频| 女总裁电视剧大结局| 黑龙江卫视节目| 漂亮女员工被老板糟蹋| 抖音平台| 挖掘机动画片儿童| 男吸女人奶水视频免费观看| 抖音pc版| 恶老板| 视频爱爱| 向东海| 蓝眼泪简谱|