if FolderID="9999" then
ChannelStr = ChannelStr & "<option value=""9999"" style=""color:red"" selected>-当前频道通用-</option>"
else
ChannelStr = ChannelStr & "<option value=""9999"" style=""color:red"">-当前频道通用-</option>"
end if

下面加上

if FolderID="9993" then
ChannelStr = ChannelStr & "<option value=""9993"" style=""color:red"" selected>-同级频道通用-</option>"
else
ChannelStr = ChannelStr & "<option value=""9993"" style=""color:red"">-同级频道通用-</option>"
end if

KS_Cls/目录下

tybs.Label.FunctionCls.asp文件

ElseIf ChannelID = "9999" Then
if FCls.RefreshFolderID="0" then
SqlStr = "Select ID,FolderName,TN,FolderOrder From KS_Class a inner join KS_Channel b on a.channelid=b.channelid Where B.ChannelStatus=1 and TN='0' AND TopFlag=1 And DelTF=0 Union All Select ChannelName,ChannelName,Url,OrderID From KS_ExtChannel Where TopFlag=1 Order By FolderOrder"
else
SqlStr = "Select ID,FolderName From KS_Class A Inner Join KS_Channel B On A.ChannelID=B.ChannelID Where B.ChannelStatus=1 And TN='" & FCls.RefreshFolderID & "' And DelTF=0 Order BY FolderOrder"
end if

这一段下面加上

ElseIf ChannelID = "9993" Then
Dim Rst ,ts_id, sqlts
Set Rst=Server.CreateObject("ADODB.RECORDSET")
sqlts = "Select TN From KS_Class Where ID='" & FCls.RefreshFolderID & "' And DelTF=0 Order BY FolderOrder"
Rst.Open sqlts, Conn, 1, 1
If Not Rst.EOF Then
ts_id=Rst(0)
Else
ts_id=FCls.RefreshFolderID
End If
Rst.close
SqlStr = "Select ID,FolderName From KS_Class A Inner Join KS_Channel B On A.ChannelID=B.ChannelID Where B.ChannelStatus=1 And TN='" & ts_id & "' And DelTF=0 Order BY FolderOrder"

简单改造之后