نسخة الكود كما يلي:
<٪
'================================================================
اسم العملية: admin_showchannel_name
"الوظيفة: إظهار اسم القناة
'المعلمات: ChannelId ----------------------------------------------------------------------------------------------------------------
'================================================================
subadmin_showchannel_name (قناة)
DimSqlc ، RSC ، Tempster
ChannelId = clng (ChannelId)
sqlc = "selectTop1ChannelNameFromCl_ChannelWherechAnnelid =" & ChannelId
setRSC = server.createObject ("adodb.recordset")
Openconn: RSC.Opensqlc ، Conn ، 1،1
ifrsc.eofandrsc.bofthen
tempstr = "لا قناة محددة"
آخر
tempstr = rsc ("channelname")
Endif
rsc.close: setRSC = لا شيء
استجابة
ينتهي
'================================================================
اسم العملية: admin_showchannel_option
"الوظيفة: إظهار خيارات القناة
'المعلمات: ChannelId ----------------------------------------------------------------------------------------------------------------
'================================================================
subadmin_showchannel_option (قناة)
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>"
آخر
dowhilenotrsc.eof
TempStr = tempstr & "<OptionValue =" & "" "" & RSC ("Channelid") & "" "" & ""
ifchannelid = rsc ("channelid") ثم
tempstr = tempstr و "محدد"
Endif
tempstr = tempstr & ">" & rsc ("channelname")
tempstr = tempstr & "</point>"