newasp中main类

"</a>"
If i Mod CInt(Main_Setting(8)) = 0 Then strContent = strContent & "<br>"
HtmlContent = Replace(HtmlContent, "{$ChannelMenu}", strContent)
Rs.MoveNext
Loop
End If
Rs.Close: Set Rs = Nothing
''Value = strContent
End If
''strContent = Value

ChannelMenu = HtmlContent
End Function
''=============================================================
''函数名：LoadSelectClass
''作 用：载入缓存下拉分类列表
''参 数：ChannelID ----频道ID
''返回值：下拉分类列表
''=============================================================
Public Function LoadSelectClass(ChannelID)
Dim CacheSelClass, SQL, Rs1, i

Name = "SelectClass" & ChannelID
If ObjIsEmpty() Then
SQL = "select ClassID,ClassName,depth,TurnLink,child from NC_Classify where ChannelID = " & ChannelID & " order by rootid,orders"
Set Rs1 = Execute(SQL)
If Rs1.BOF And Rs1.EOF Then
CacheSelClass = CacheSelClass & "<option>没有添加分类</option>"
End If
Do While Not Rs1.EOF
If Rs1("TurnLink") <> 0 Then
CacheSelClass = CacheSelClass & "<option value=""0"""
Else
If Rs1("depth") = 0 And Rs1("child") <> 0 Then
CacheSelClass = CacheSelClass & "<option"
Else
CacheSelClass = CacheSelClass & "<option value=""" & Rs1("ClassID") & """"
End If
End If
CacheSelClass = CacheSelClass & " {ClassID=" & Rs1("ClassID") & "}>"
If Rs1("depth") = 1 Then CacheSelClass = CacheSelClass & "　├ "
If Rs1("depth") > 1 Then
For i = 2 To Rs1("depth")
CacheSelClass = CacheSelClass & "　"
Next
CacheSelClass = CacheSelClass & "　├ "
End If
CacheSelClass = CacheSelClass & Rs1("ClassName") & "</option>" & vbCrLf
Rs1.MoveNext
Loop
Rs1.Close
Set Rs1 = Nothing
Value = CacheSelClass
End If
LoadSelectClass = Value
End Function
Public Function ClassJumpMenu(ChannelID)
Dim CacheJumpMenu
Dim Rs1
Dim i
Name = "ClassJumpMenu" & ChannelID
If ObjIsEmpty() Then
Set Rs1 = Execute("select ClassID,ChannelID,ClassName,depth,TurnLink,TurnLinkUrl from [NC_Classify] where ChannelID = " & ChannelID & " order by rootid,orders")
Do While Not Rs1.EOF
If Rs1("TurnLink") <> 0 Then
CacheJumpMenu = CacheJumpMenu & "<option value=""" & Rs1("TurnLinkUrl") & """ {ClassID=" & Rs1("classid") & "}"
Else
CacheJ