コードコピーは次のとおりです。
<％
'========================================================================
'プロセス名：admin_showchannel_name
'関数：チャネル名を表示します
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'========================================================================
subadmin_showchannel_name（channelid）
dimsqlc、rsc、tempstr
Channelid = clng（chanchenid）
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 = Nothing
Response.WriteTempstr
Endingub
'========================================================================
'プロセス名：admin_showchannel_option
'機能：チャネルオプションを表示します
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'========================================================================
subadmin_showchannel_option（channelid）
dimsqlc、rsc、channelname、tempstr
Channelid = clng（chanchenid）
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> "
それ以外
dowhileenotrsc.eof
tempstr = tempstr＆ "<optionvalue ="＆ "" "＆rsc（" channelid "）＆" "" "＆" "
IfChannelid = rsc（ "channelid"）then
tempstr = tempstr＆ "selected"
endif
tempstr = tempstr＆ ">"＆rsc（ "channelname"）
tempstr = tempstr＆ "</option>"