การคัดลอกรหัสมีดังนี้:
-
-
'ชื่อกระบวนการ: admin_showchannel_name
'ฟังก์ชั่น: แสดงชื่อช่อง
'พารามิเตอร์: 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 = "ไม่มีช่องที่ระบุ"
อื่น
tempstr = rsc ("channelname")
endif
rsc.close: setrsc = ไม่มีอะไร
Response.writetempstr
enddub
-
'ชื่อกระบวนการ: admin_showchannel_option
'ฟังก์ชั่น: แสดงตัวเลือกช่อง
'พารามิเตอร์: 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 = "<optiveValue =" "0" "> โปรดเลือกช่อง </opovie>"
ifrsc.eofandrsc.bofthen
TempStr = TempStr & "<optiveValue =" "0" "> โปรดเพิ่มช่อง </opovie>"
อื่น
dowhilenotrsc.eof
tempstr = tempstr & "<optivevalue =" & "" "" & rsc ("channelid") & "" "&" "
ifchannelid = rsc ("channelid") จากนั้น
tempstr = tempstr & "เลือก"
endif
tempstr = tempstr & ">" & rsc ("channelname")
tempstr = tempstr & "</potion>"