코드 사본은 다음과 같습니다.
<%
'=======================================================================================
'프로세스 이름 : admin_showchannel_name
'기능 : 채널 이름 표시
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'=======================================================================================
subadmin_showchannel_name (channelid)
dimsqlc, rsc, tempstr
channelid = clng (channelid)
SQLC = "SELECTTOP1CHANNELNAMEFROMCL_CHANNELWHERECHANNILID ="& channelId
setrsc = server.createobject ( "adodb.recordset")
OpenConn : RSC.Opensqlc, Conn, 1,1
ifrsc.eofandrsc.bofthen
tempstr = "지정된 채널 없음"
또 다른
tempstr = rsc ( "ChannelName")
endif
rsc.close : setrsc = 아무것도
응답 .writetempstr
Endsub
'=======================================================================================
'프로세스 이름 : admin_showchannel_option
'기능 : 채널 옵션 표시
'Parameters: ChannelID----------------------------------------------------------------------------------------------------------------------
'=======================================================================================
subadmin_showchannel_option (channelid)
Dimsqlc, RSC, ChannelName, TempStr
channelid = clng (channelid)
SQLC = "selectChannelId, ChannelNamefromcl_channelwherechannelid> 0andchannelid <> 6 및
채널 유형 <2andmoduleid = 1 "
setrsc = server.createobject ( "adodb.recordset")
OpenConn : RSC.Opensqlc, Conn, 1,1
tempstr = "<옵션 value =" "0" "> 채널 </옵션>을 선택하십시오."
ifrsc.eofandrsc.bofthen
tempstr = tempstr & "<옵션 value =" "0" "> channel </옵션>을 추가하십시오"
또 다른
dowhilenotrsc.eof
tempStr = tempStr & "<옵션 value ="& "" ""& rsc ( "channelId") & "" ""& ""
ifchannelid = rsc ( "channelid")
tempstr = tempst & "selected"
endif
tempstr = tempstr & ">"& rsc ( "ChannelName")
tempstr = tempstr & "</옵션>"