The code copy is as follows:
<%
'====================================================================
'Process name: Admin_ShowChannel_Name
'Function: Show channel name
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'====================================================================
SubAdmin_ShowChannel_Name(ChannelID)
DimSqlc,Rsc,TempStr
ChannelID=Clng(ChannelID)
Sqlc="selecttop1ChannelNamefromCl_ChannelWhereChannelID="&ChannelID
SetRsc=server.CreateObject("adodb.recordset")
OpenConn:Rsc.openSqlc,Conn,1,1
IfRsc.EofandRsc.Bofthen
TempStr="No specified channel"
Else
TempStr=Rsc("ChannelName")
Endif
Rsc.Close:SetRsc=Nothing
response.writeTempStr
EndSub
'====================================================================
'Process name: Admin_ShowChannel_Option
'Function: Show channel options
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'====================================================================
SubAdmin_ShowChannel_Option(ChannelID)
DimSqlc, Rsc, ChannelName, TempStr
ChannelID=Clng(ChannelID)
Sqlc="selectChannelID,ChannelNamefromCl_ChannelwhereChannelID>0andChannelID<>6and
ChannelType<2andModuleID=1"
SetRsc=server.CreateObject("adodb.recordset")
OpenConn:Rsc.OpenSqlc,Conn,1,1
TempStr="<optionvalue=""0"">Please select channel</option>"
IfRsc.EofandRsc.BofThen
TempStr=TempStr&"<optionvalue=""0"">Please add channel</option>"
Else
DowhilenotRsc.Eof
TempStr=TempStr&"<optionvalue="&""""&Rsc("ChannelID")&""""&""
IfChannelID=Rsc("ChannelID")Then
TempStr=TempStr&"Selected"
EndIf
TempStr=TempStr&">"&Rsc("ChannelName")
TempStr=TempStr&"</option>"