变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

當(dāng)前位置:首頁(yè)文章首頁(yè) IT學(xué)院 IT技術(shù)

ASP中在VBScript中使用類的介紹說(shuō)明

作者:  來(lái)源:  發(fā)布時(shí)間:2011-6-28 17:24:29  點(diǎn)擊:
  我們來(lái)分析一下(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 & "."

  當(dāng)調(diào)用對(duì)象的屬性ProgramDate時(shí),實(shí)際上執(zhí)行了函數(shù)ProgramDate,即如上定義的函數(shù),而很快你也將習(xí)慣這種在聲明部分使用Public或Private關(guān)鍵字的方式。關(guān)鍵字“Property”,告知了編譯器如同調(diào)用屬性一樣在外部調(diào)用函數(shù)。接著的“Get”,表明該函數(shù)是輸出還是獲得一個(gè)值。

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

  接下去的代碼看來(lái)有點(diǎn)難度的,給objectname.internal_ProgramDate賦值并通過(guò)objectname.ProgramDate來(lái)調(diào)用它。如果可以使用相同關(guān)鍵字同時(shí)為其賦值并獲得它的值不是更好嗎?當(dāng)然,那也可以。

  如果定義Get和Let屬性的名稱相同,可以將它們當(dāng)作對(duì)象相同的屬性,但這只限于它們定義了相同數(shù)量的成員。(以下代碼看來(lái)不太相同,僅作為實(shí)例參考)
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的聲明部分看來(lái)似乎是一個(gè)多余的元素,當(dāng)我第一次看到時(shí)研究了很長(zhǎng)時(shí)間。每次我使用“0”作為變量用在每個(gè)屬性上,我總是得到這個(gè)錯(cuò)誤信息,“元素?cái)?shù)量必須相等”。“它們確實(shí)相等!”抓狂之后,我回過(guò)頭去看程序才覺得自己的愚蠢。海

  原因是,當(dāng)你試圖為ProgramDate賦值時(shí),你會(huì)使用這樣一行程序:objTVShow.ProgramDate = dtmMyDate

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

  現(xiàn)在看程序。無(wú)論通過(guò)ProgramDate設(shè)置日期為文本形式,還是用internal_ProgramDate譯成日期變量,程序都沒有問(wèn)題。但能不能只使用一個(gè)入口呢?

  如果internal_ProgramDate只能在內(nèi)部有效,而使用Let ProgramDate檢查傳輸?shù)臄?shù)據(jù)類型,我們就可以作出選擇。例如:
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
...
  現(xiàn)在的代碼離我們想要的還是有些不太實(shí)用,我們將在其他頁(yè)使用類TVProgram,因此最好將其獨(dú)立定義,以便所有也面都可以調(diào)用。我們將在第四部分討論這點(diǎn)。

  現(xiàn)在的代碼離我們想要的還是有些不太實(shí)用,我們將在其他頁(yè)使用類TVProgram,因此最好將其獨(dú)立定義,以便所有也面都可以調(diào)用。創(chuàng)建一個(gè)ASP頁(yè)面,并命名為TVProgramClass.asp,我們?cè)谄渲卸x類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中調(diào)用我們定義的類了,語(yǔ)法如下:
<!-- #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 & "."
%>

  這里有一個(gè)建議。

相關(guān)軟件

相關(guān)文章

文章評(píng)論

軟件按字母排列: 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
主站蜘蛛池模板: 欧美一级网址 | 99精品视频在线观看re | 日本边添边摸边做边爱小视频 | 成人综合久久综合 | 成年人视频在线免费看 | 国产在线视频国产永久视频 | www视频在线播放 | 亚洲图片在线欧美专区图片 | 2022国产精品最新在线 | 亚洲成av人片在线观看无码 | 日本dhxxxxxdh14日本 | 黑丝美女网站 | 国产在线精品一区二区三区 | 日韩一级特黄 | 日韩中文字幕a | 国产精品久久久久久久专区 | 欧美色图一区 | 小明tv | 国产亚洲成归v人片在线观看 | 一区二区不卡视频在线观看 | 久久中文字幕免费视频 | 久久99精品国产麻豆婷婷 | 成人国产精品免费视频不卡 | 欧美做a一级视频免费观看 欧美最猛性xxxxx短视频 | 182tv成人午夜在线观看 | 丁香婷婷激情网 | 视频一本大道香蕉久在线播放 | 一区欧美 | 色噜噜狠狠色综合网图区 | 亚洲va欧美ⅴa国产va影院 | 日韩精品网址 | 美女网站全黄 | 欧美黄a| 成人影院免费观看 | 成人观看免费观看视频 | 天天操天天玩 | 日韩精品第一 | 亚洲欧美中文字幕 | 日韩一级精品久久久久 | free性欧美高清另类 | 国内自拍视频一区二区三区 |