📄 editor_createlink.asp
字号:
<%@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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -