'取得专题
  Sub Get_KS_Admin_Special(ChannelID,InfoID)
     With KS
       .echo "<dd><div>选择专题:<font>(<a href='javascript:;'$('#SpecialID option').each(function(){$(this).attr('selected',false);});"">取消选定</a>)</font></div>"
       .echo "<script language='javascript'>" & vbcrlf
    .echo "  SelectSpecial=function(){" &vbcrlf
    .echo "  top.openWin('选择专题','Plus/Plus_Special/KS.Special.asp?action=Select',false,350,400);" & vbcrlf
    .echo " }" &vbcrlf
    .echo "  SelectSpecial1=function(){" &vbcrlf
    .echo "  var strUrl = 'KS.SpecialSelect.asp'; "& vbcrlf
    .echo "  var isMSIE= (navigator.appName == 'Microsoft Internet Explorer');" & vbcrlf
    .echo "  var ReturnStr = null;" &vbcrlf
    .echo "  if (isMSIE){ReturnStr= window.showModalDialog(strUrl,self,'width=250,height=400,resizable=yes,scrollbars=yes');}" &vbcrlf
    .echo "  else{ var win=window.open(strUrl,'newWin','left=150,width=350,height=400,resizable=yes,scrollbars=yes'); }"&vbcrlf
    .echo "  if (ReturnStr != null){" & vbcrlf
    .echo "   UpdateSpecial(ReturnStr);}" & vbcrlf
    .echo " }" &vbcrlf
    .echo "    function UpdateSpecial(arrstr){" &vbcrlf
    .echo "   if (arrstr!=''){" &vbcrlf
    .echo "   $('#SpecialList').show();" & vbcrlf
   
    .echo "     var finder=false;" & vbcrlf
    .echo "   var arr=arrstr.split();" & vbcrlf
    .echo "     $('#SpecialID>option').each(function(){" & vbcrlf
    .echo "     if (arr[0]==this.value){" & vbcrlf
    .echo "       $('#SpecialID>option[value='+arr[0]+']').attr('selected',true);finder=true;return false;}" &vbcrlf
    .echo "  });" & vbcrlf
    .echo "  if (finder==false){" & vbcrlf
    .echo " $('#SpecialID').append(""<option value=""+arr[0]+"">""+arr[1]+""</option>"");" & vbcrlf
    .echo " $('#SpecialID >option[value='+arr[0]+']').attr('selected',true);" & vbcrlf
    .echo " }" & vbcrlf
    .echo "  }" & vbcrlf
    .echo " }" & vbcrlf
    .echo " </script>" & vbcrlf
   .echo "<table border=0 width='90%'><tr>"
   Dim RSB,IDS
   If InfoID<>0 Then
      Set RSB=Conn.Execute("Select SpecialID From KS_SpecialR Where ChannelID=" & ChannelID & " and InfoID=" & InfoID)
    If Not RSB.Eof Then
      Do While Not RSB.Eof
       IDS=IDS & "," & RSB(0)
      RSB.MoveNext
      Loop
    End If
    RSB.Close:Set RSB=Nothing
   Else
      Ids=KS.S("SpecialID")
   End If
   .echo "<td width='200'>"
   .echo "<select name='SpecialID' id='SpecialID' multiple style='height:100px;width:380px;'>" &KS.ReturnSpecial(KS.FilterIds(IDS)) & "</select></td>"
   '.echo "<select name='SpecialID' id='SpecialID' multiple style='height:100px;width:380px;'>" & OptionStr & "</select><div style='text-align:center'><font color=red>X</font> <a href='javascript:UnSelectAll()'><font color='#999999'>取消选定的专题</font></a></div></td>"
   .echo "              <td></td>"
   .echo "</table>"
   .echo "</dd>"
    End With
  End Sub