复制代码代码如下:
<%
'==================================================
'过程名：Admin_ShowChannel_Name
'作用：显示频道名称
'参数：ChannelID------频道ID
'==================================================
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="无指定频道"
Else
TempStr=Rsc("ChannelName")
Endif
Rsc.Close:SetRsc=Nothing
response.writeTempStr
EndSub
'==================================================
'过程名：Admin_ShowChannel_Option
'作用：显示频道选项
'参数：ChannelID------频道ID
'==================================================
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"">请选择频道</option>"
IfRsc.EofandRsc.BofThen
TempStr=TempStr&"<optionvalue=""0"">请添加频道</option>"
Else
DowhilenotRsc.Eof
TempStr=TempStr&"<optionvalue="&""""&Rsc("ChannelID")&""""&""
IfChannelID=Rsc("ChannelID")Then
TempStr=TempStr&"Selected"
EndIf
TempStr=TempStr&">"&Rsc("ChannelName")
TempStr=TempStr&"</option>"