複製代碼代碼如下:
<%
'==================================================
'過程名：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>"