コードコピーは次のとおりです。
<%
'========================================================================
'プロセス名: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>"