Ò»¸öASPµÄ¸ß¼¶Ä£°åÒýÇæ

Õâ¸öÄ£°åÒýÇæ±È½Ï·½±ã,¸úHTML½áºÏÁË
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName

' ***************************************
' ÉèÖñàÂë
' ***************************************
Public Property Let Char(ByVal Str)
c_Char = Str
End Property
Public Property Get Char
Char = c_Char
End Property

' ***************************************
' ÉèÖÃÄ£°åÎļþ¼Ð·¾¶
' ***************************************
Public Property Let Path(ByVal Str)
c_Path = Str
End Property
Public Property Get Path
Path = c_Path
End Property

' ***************************************
' ÉèÖÃÄ£°åÎļþÃû
' ***************************************
Public Property Let FileName(ByVal Str)
c_FileName = Str
End Property
Public Property Get FileName
FileName = c_FileName
End Property

' ***************************************
' »ñµÃÄ£°åÎļþ¾ßÌå·¾¶
' ***************************************
Public Property Get FilePath
If Len(Path) > 0 Then Path = Replace(Path, "\", "/")
If Right(Path, 1) <> "/" Then Path = Path & "/"
FilePath = Path & FileName
End Property

' ***************************************
' ÉèÖ÷ÖÒ³URL
' ***************************************
Public Property Let PageUrl(ByVal Str)
c_PageUrl = Str
End Property
Public Property Get PageUrl
PageUrl = c_PageUrl
End Property

' ***************************************
' ÉèÖ÷ÖÒ³ µ±Ç°Ò³
' ***************************************
Public Property Let CurrentPage(ByVal Str)
c_CurrentPage = Str
End Property
Public Property Get CurrentPage
CurrentPage = c_CurrentPage
End Property

' ***************************************
' Êä³öÄÚÈÝ
' ***************************************
Public Property Get Flush
Response.Write(c_Content)
End Property

' ***************************************
' Àà³õʼ»¯
' *******************