newasp中main类

trDate & "</font>"
End If
ShowDateTime = strDate
End Function
Public Function ShowDatePath(strval, n)
ShowDatePath = ""
If Trim(strval) = "" Then Exit Function
Dim strTempPath, strTime
Dim y, m, d

strTime = Left(strval, 8)
y = Left(strTime, 4)
m = Mid(strTime, 5, 2)
d = Right(strTime, 2)
Select Case CInt(n)
Case 1
strTempPath = y & "/" & m & "/" & d & "/"
Case 2
strTempPath = y & "/" & m & "/"
Case 3
strTempPath = y & m & "/"
Case 4
strTempPath = y & "/"
Case 5
strTempPath = y & "-" & m & "-" & d & "/"
Case 6
strTempPath = y & "-" & m & "/"
Case 7
strTempPath = "html/"
Case 8
strTempPath = "show/"
Case Else
strTempPath = ""
End Select
strTempPath = Replace(strTempPath, " ", "")
ShowDatePath = CStr(strTempPath)
End Function
''=============================================================
''函数名：ReadBriefTopicffd
''作 用：读取简短标题
''参 数：para
''返回值：简短标题
''=============================================================
Public Function ReadBriefTopic(ByVal para)
Dim sBriefTopic

ReadBriefTopic = ""
If Not IsNumeric(para) Then Exit Function
If para = 0 Then Exit Function
Select Case para
Case "1"
sBriefTopic = "<font color=''blue''>[图文]</font>"
Case "2"
sBriefTopic = "<font color=''red''>[组图]</font>"
Case "3"
sBriefTopic = "<font color=''green''>[新闻]</font>"
Case "4"
sBriefTopic = "<font color=''blue''>[推荐]</font>"
Case "5"
sBriefTopic = "<font color=''red''>[注意]</font>"
Case "6"
sBriefTopic = "<font color=''green''>[转载]</font>"
Case Else
sBriefTopic = ""
End Select
ReadBriefTopic = sBriefTopic
End Function
''=============================================================
''函数名：ReadPicTopic
''作 用：读取简短标题
''参 数：para
''返回值：简短标题
''=============================================================
Public Function ReadPicTopic(ByVal para)
Dim sBriefTopic
ReadPicTopic = ""
If Not IsNumeric(para) Then Exit Function
If para = 0 Then Exit Function
Select Case para
Case "1"
sBriefTopic = "<font color=''" & Main_Setting(4) & "''>[图文]</font>"
Case "2"
sBriefTopic = "<font color=''" & Main_Setting(5) & "''>[组图]</font>"
Case "3"
sBriefTopic = "<font color=''" & Main_Setting(6) & "''>[新闻]</font>