<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true    
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 

dim ChannelID,LinkName
ChannelID=trim(request("ChannelID"))
LinkName=trim(request("LinkName"))

if ChannelID="" then
    response.write "频道参数丢失！"
    response.end
end if
ChannelID=Clng(ChannelID)
%>
<HTML>
<HEAD>
<title>插入超级链接</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" type="text/css" href="editor_dialog.css">
<a href='' target='_blank'></a>
</head>
<BODY bgColor='#D4D0C8' topmargin=15 leftmargin=15 >
<FORM METHOD='POST' name='myform' ACTION=''>
<table width=100% border="0" cellpadding="0" cellspacing="2">
  <tr>
    <td>
     <FIELDSET align=left>
      <LEGEND align=left><strong>超级链接信息</strong></LEGEND>
       <table border="0" cellpadding="0" cellspacing="3">
        <tr> 
          <td align='right'>链接类型：</td>
          <td>
           <select name='LinkType' id='id' onchange='document.myform.linkurl.value=this.value;'>
              <option value='http://' selected>http:</option>
              <option value='ftp://'>ftp:</option>
              <option value='file://'>文件</option>
              <option value='news://'>news:</option>
              <option value='mailto:'>mailto:</option>
           </select>
          </td>
        </tr>
        <tr>
          <td align='right'>链接地址：</td>    
          <td>
            <input name="linkurl" value="http://" size="40" >
          </td>
        </tr>
        <tr> 
         <td align='right'>打开方式：</td>    
         <td>
           <select name='Openfashion' id='Openfashion' >
              <option value='0' selected>原窗体打开</option>
              <option value='1'>新窗体打开</option>
           </select>
         </td>
        </tr>
        <tr>
          <td align='right'>title：</td>
          <td>
            <input name="Linktitle"  value="" size="30" ><br><FONT style='font-size:12px' color='blue'>这里填写链接title属性</FONT>
          </td>
        </tr>
        <tr> 
          <td align='right'>链接字体颜色：</td>
          <td>
            <input name="t_color" id=t_color  size="7" maxlength="7">
            <img border=0 src="images/rect.gif" width=18 style="cursor:hand" id=s_color onclick="SelectColor('color')">
          </td>
        </tr>
        <tr class='tdbg'  class='tdbg5'>
          <td align="right" class='tdbg5'>链接是否加粗：</td>
          <td>
            <input type="radio" name="LinkB" value="true">是
            <input type="radio" name="LinkB" value="false" checked>否
          </td>
        </tr>
        <tr class='tdbg'  class='tdbg5'>
          <td align="right"  class='tdbg5'>链接是否加下划线：</td>
          <td>
            <input type="radio" name="LinkX" value="true">是
            <input type="radio" name="LinkX" value="false" checked>否
          </td>
        </tr>
        <tr>
          <td align='right'>链接扩展：</td>    
          <td>
            <input name="Linkexpand"  value="" size="30" ><br><FONT style='font-size:12px' color='blue'>这里填写链接扩展属性或脚本事件</FONT>
          </td>
        </tr>
        <tr class='tdbg'  class='tdbg5'>
          <td align="right"  class='tdbg5'>要链接的内容：</td>
          <td>
            <TEXTAREA style="WIDTH: 240px; HEIGHT: 100px" name="EditTagCode"></TEXTAREA>
          </td>
        </tr>
       </table>
      </FORM>
     </fieldset>
    </td>
    <td width=80 align="center">
      <input name="cmdOK" type="button" id="cmdOK" value="  确定  " onClick="OK();">
      <br><br>
      <input name="cmdCancel" type=button id="cmdCancel" onclick="window.close();" value="  取消  ">
    </td>
   </tr>
  </table>
<script language="JavaScript">
var oControl;
var oSeletion;
var sRangeType;
var LinkType;

oSelection = dialogArguments.HtmlEdit.document.selection.createRange();
sRangeType = dialogArguments.HtmlEdit.document.selection.type;
if (sRangeType == "Control") {
    oControl = oSelection.item(0);
    document.myform.EditTagCode.value=oControl.outerHTML;
}else {
    if (dialogArguments.HtmlEdit!=null) oControl=dialogArguments.HtmlEdit;
    document.myform.EditTagCode.value="<%=LinkName%>";
}
function SelectColor(what){
    var dEL = document.all("t_"+what);
    var sEL = document.all("s_"+what);
    var url = "editor_selcolor.asp?color="+encodeURIComponent(dEL.value);
    var arr = showModalDialog(url,window,"dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no");
    if (arr) {
        dEL.value=arr;
        sEL.style.backgroundColor=arr;
    }
}
function OK(){
    var str1;
    var str2;
    var LinkName;
    var LinkB;
    var LinkX;
    for (var i=0;i<document.myform.LinkB.length;i++){
        var PowerEasy = document.myform.LinkB[i];
        if (PowerEasy.checked==true)       
            LinkB = PowerEasy.value
        }
    for (var i=0;i<document.myform.LinkX.length;i++){
        var PowerEasy = document.myform.LinkX[i];
        if (PowerEasy.checked==true)       
            LinkX = PowerEasy.value
    }
    LinkName=document.myform.EditTagCode.value;
    if (document.myform.t_color.value!="" ){
        LinkName="<font color="+document.myform.t_color.value+">"+ LinkName +"</font>";
    }
    if (LinkB=="true" ){
        LinkName="<B>"+LinkName+"</B>";
    }
    if (LinkX=="true" ){
        LinkName="<U>"+LinkName+"</U>";
    }
    if (document.myform.Openfashion.value == '1') {
        str2="target=\"_blank\" "
    }else{
        str2=""    
    }
    str1="<a href='"+document.myform.linkurl.value+"' title=\""+document.myform.Linktitle.value+"\" "+str2+document.myform.Linkexpand.value+">"+LinkName+"</a>"
    window.returnValue = str1
    window.close();
}
</script>
</body>
</html>