📄 editor.asp
字号:
<%
Option Explicit
Response.Buffer = True
%>
<!-- #include File="Conn.asp" -->
<%
Dim arrButtons(110), arrButtons2, strButtons, arrButtonOption, i, TemplateType, EditorContent, tContentID
Dim ChannelID,ShowType,rs,SystemDefaultSkin,rsSkin
If ComeUrl = "" Then
Response.Write "<br><p align=center><font color='red'>对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。</font></p>"
Response.End
End If
Function EL_CLng(ByVal str1)
If IsNumeric(str1) Then
EL_CLng = CLng(str1)
Else
EL_CLng = 0
End If
End Function
'获取频道相关数据
ChannelID = EL_CLng(Trim(Request("ChannelID")))
tContentID = Request("tContentID")
TemplateType = Trim(Request("TemplateType"))
If TemplateType = "" Then
TemplateType = 1
Else
TemplateType = EL_CLng(TemplateType)
End If
'取默认风格
Dim SkinCmd
SystemDefaultSkin = ""
Set SkinCmd = Server.CreateObject("ADODB.COMMAND")
With SkinCmd
.ActiveConnection = Conn
.CommandText = "EL_SP_GetDefaultSkin"
.CommandType = 4
.Prepared = True
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, ChannelID)
.Parameters.Append .CreateParameter("@ClassID", 3, 1, 4, 0)
.Parameters.Append .CreateParameter("@SkinID", 3, 2, 4)
.Execute()
End With
SystemDefaultSkin = InstallDir &"Skin/DefaultStyle"& SkinCmd(2) &".css"
Set SkinCmd = Nothing
ShowType = EL_CLng(Trim(Request("ShowType")))
'调入按钮数组
arrButtons(0) = "yToolbar$$$"
arrButtons(1) = "/yToolbar$$$"
arrButtons(2) = "TBHandle$$$"
arrButtons(3) = "TBSep$$$"
arrButtons(101) = "TBGen$$$"
arrButtons(102) = "TBGen2$$$"
arrButtons(103) = "TBGen3$$$"
arrButtons(5) = "Btn$全部选择$format('selectall')$selectall.gif"
arrButtons(6) = "Btn$删除$format('delete')$delete.gif"
arrButtons(7) = "Btn$剪切$format('cut')$cut.gif"
arrButtons(8) = "Btn$复制$format('copy')$copy.gif"
arrButtons(9) = "Btn$粘贴$format('paste')$paste.gif"
arrButtons(10) = "Btn$从word中粘贴$insert('word')$wordpaste.gif"
arrButtons(11) = "Btn$撤消$format('undo')$undo.gif"
arrButtons(12) = "Btn$恢复$format('redo')$redo.gif"
arrButtons(13) = "Btn$查找 / 替换$findstr()$find.gif"
arrButtons(14) = "Btn$计算器$insert('calculator')$calculator.gif"
arrButtons(15) = "Btn$打印$format('Print')$print.gif"
arrButtons(16) = "Btn$查看帮助$insert('help')$help.gif"
arrButtons(17) = "Btn$左对齐$format('justifyleft')$aleft.gif"
arrButtons(18) = "Btn$居中$format('justifycenter')$acenter.gif"
arrButtons(19) = "Btn$右对齐$format('justifyright')$aright.gif"
arrButtons(20) = "Btn$两端对齐$format('JustifyFull')$JustifyFull.gif"
arrButtons(21) = "Btn$绝对或相对位置$format('absolutePosition')$abspos.gif"
arrButtons(22) = "Btn$删除文字格式$format('RemoveFormat')$clear.gif"
arrButtons(23) = "Btn$插入段落$format('insertparagraph')$paragraph.gif"
arrButtons(24) = "Btn$插入换行符号$insert('br')$chars.gif"
arrButtons(25) = "Btn$字体颜色$insert('fgcolor')$fgcolor.gif"
arrButtons(26) = "Btn$文字背景色$insert('fgbgcolor')$fgbgcolor.gif"
arrButtons(27) = "Btn$加粗$format('bold')$bold.gif"
arrButtons(28) = "Btn$斜体$format('italic')$italic.gif"
arrButtons(29) = "Btn$下划线$format('underline')$underline.gif"
arrButtons(30) = "Btn$删除线$format('StrikeThrough')$strikethrough.gif"
arrButtons(31) = "BtnMenu$更多文字格式$showToolMenu('font')$arrow.gif"
arrButtons(32) = "Btn$显示或隐藏表格虚线、按钮等显示样式$showBorders()$showBorders.gif"
arrButtons(33) = "Btn$图片左环绕$imgalign('left')$imgleft.gif"
arrButtons(34) = "Btn$图片右环绕$imgalign('right')$imgright.gif"
arrButtons(35) = "Btn$插入超级连接$insert('CreateLink')$url.gif"
arrButtons(36) = "Btn$取消超级链接$format('unLink')$nourl.gif"
arrButtons(37) = "Btn$插入普通水平线$format('InsertHorizontalRule')$sline.gif"
arrButtons(38) = "Btn$插入特殊水平线$insert('hr')$line.gif"
arrButtons(39) = "Btn$插入分页符$insert('page')$page.gif"
arrButtons(40) = "Btn$插入当前日期$insert('nowdate')$date.gif"
arrButtons(41) = "Btn$插入当前时间$insert('nowtime')$time.gif"
arrButtons(42) = "Btn$插入栏目框$insert('FIELDSET')$fieldset.gif"
arrButtons(43) = "Btn$插入网页$insert('iframe')$htm.gif"
arrButtons(44) = "Btn$插入Excel表格$insert('excel')$excel.gif"
arrButtons(45) = "Btn$插入表格$TableInsert()$table.gif"
arrButtons(46) = "BtnMenu$表格操作$showToolMenu('table')$arrow.gif"
arrButtons(47) = "Btn$插入下拉菜单$Insermenu('" & Now() & "')$menu.gif"
arrButtons(48) = "BtnMenu$更多表单控件$showToolMenu('form')$arrow.gif"
arrButtons(49) = "Btn$插入滚动文本$insert('insermarquee')$Marquee.gif"
arrButtons(50) = "BtnMenu$插入更多样式$showToolMenu('object')$arrow.gif"
arrButtons(51) = "Btn$插入表情符号$insert('inseremot')$Emot.gif"
arrButtons(52) = "Btn$插入特殊符号$Insertlr('editor_tsfh.asp',300,190," & (Now() - Date) * 24 * 60 * 60 * 1000 & ")$symbol.gif"
arrButtons(53) = "Btn$上移一层$zIndex('forward')$forward.gif"
arrButtons(54) = "Btn$下移一层$zIndex('backward')$backward.gif"
arrButtons(55) = "Btn$插入图片,支持格式为:jpg、gif、bmp、png等$insert('pic')$img.gif"
arrButtons(56) = "BtnMenu$更多图片格式$showToolMenu('IMG')$arrow.gif"
arrButtons(57) = "Btn$插入flash多媒体文件$insert('swf')$flash.gif"
arrButtons(58) = "Btn$插入视频文件,支持格式为:avi、wmv、asf等$insert('wmv')$wmv.gif"
arrButtons(59) = "Btn$插入RealPlay文件,支持格式为:rm、ra、ram$insert('rm')$rm.gif"
arrButtons(60) = "Btn$上传附件$insert('fujian')$fujian.gif"
arrButtons(61) = "Btn$从上传文件中选择$insert('SelectUpFile')$SelectUpFile.gif"
arrButtons(62) = ""
arrButtons(63) = "Btn$图片单行居中$imgalign('center')$imgcenter.gif"
arrButtons(64) = "Btn$插入广告$insert('Advertisement')$ad.gif"
arrButtons(65) = "Btn$引用样式$insert('quote')$quote.gif"
arrButtons(66) = "Btn$代码样式$insert('code')$code.gif"
Response.Write "<html>"
Response.Write "<head>"
Response.Write " <meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write " <title>HTML在线编辑器</title>"
Response.Write " <link rel='STYLESHEET' type='text/css' href='Editor/editor.css'>"
Response.Write "</head>"
Response.Write "<body bgcolor='#FFFFFF' leftmargin='0' topmargin='0' onConTextMenu='event.returnValue=false;'>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>"
Response.Write " <tr>"
Response.Write " <td valign='top'>"
Select Case ShowType
Case 0 '文章
strButtons = arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(5) & "|" & arrButtons(3) & "|" & arrButtons(6) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(7) & "|" & arrButtons(8) & "|" & arrButtons(9) & "|"
strButtons = strButtons & arrButtons(10) & "|" & arrButtons(3) & "|" & arrButtons(11) & "|" & arrButtons(12) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(13) & "|" & arrButtons(3) & "|" & arrButtons(14) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(15) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(21) & "|" & arrButtons(3) & "|" & arrButtons(22) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(3) & "|" & arrButtons(24) &"|" & arrButtons(1) & "|"
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(101) & "|" & arrButtons(102) & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(32) & "|" & arrButtons(3) & "|" & arrButtons(33) & "|"
strButtons = strButtons & arrButtons(63) & "|" & arrButtons(34) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(37) & "|"
strButtons = strButtons & arrButtons(38) & "|" & arrButtons(3) & "|" & arrButtons(39) &"|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(41) & "|" & arrButtons(40) & "|" & arrButtons(43) & "|" & arrButtons(42) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(45) & "|" & arrButtons(46) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(47) & "|" & arrButtons(48) & "|" & arrButtons(49) & "|" & arrButtons(50) & "|"
strButtons = strButtons & arrButtons(51) & "|" & arrButtons(3) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(55) & "|" & arrButtons(57) & "|" & arrButtons(58) & "|" & arrButtons(59)
strButtons = strButtons & "|" & arrButtons(60) & "|" & arrButtons(3) & "|" & arrButtons(44) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(1)
Case 1 '可上传说明框
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(102) & "|" & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(22) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(3) &"|"& arrButtons(49) &"|"& arrButtons(3) &"|"& arrButtons(55) &"|"& arrButtons(56) &"|"& arrButtons(1)
Case 2 '留言 公告
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(101) & "|" & arrButtons(102) & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(1) & "|"
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|"
strButtons = strButtons & arrButtons(19) & "|" & arrButtons(3) & "|" & arrButtons(22) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(43) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(44) & "|" & arrButtons(45) & "|" & arrButtons(46) & "|" & arrButtons(49) & "|"
strButtons = strButtons & arrButtons(50) & "|" & arrButtons(3) & "|" & arrButtons(51) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(55) & "|" & arrButtons(57) & "|" & arrButtons(58) & "|"
strButtons = strButtons & arrButtons(59) & "|" & arrButtons(60) & "|" & arrButtons(1)
Case 3 '说明框
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(102) & "|" & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(22) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(3) &"|"& arrButtons(49) &"|"& arrButtons(3) &"|"& arrButtons(55) &"|"& arrButtons(56) &"|"& arrButtons(1)
Case 4 '说明框两行
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(102) & "|" & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|" & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|"
strButtons = strButtons & arrButtons(22) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(3) &"|"& arrButtons(49) &"|" & arrButtons(50) &"|"& arrButtons(3) &"|"& arrButtons(55) &"|"& arrButtons(3) &"|"
strButtons = strButtons & arrButtons(33) &"|"& arrButtons(34) &"|"& arrButtons(63) &"|"& arrButtons(1)
Case 5
strButtons = arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(5) & "|" & arrButtons(3) & "|" & arrButtons(6) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(7) & "|" & arrButtons(8) & "|" & arrButtons(9) & "|"
strButtons = strButtons & arrButtons(10) & "|" & arrButtons(3) & "|" & arrButtons(11) & "|" & arrButtons(12) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(13) & "|" & arrButtons(3) & "|" & arrButtons(14) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(15) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(21) & "|" & arrButtons(3) & "|" & arrButtons(22) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(3) & "|" & arrButtons(1) & "|"
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(101) & "|" & arrButtons(102) & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(32) & "|" & arrButtons(3) & "|" & arrButtons(33) & "|"
strButtons = strButtons & arrButtons(63) & "|" & arrButtons(34) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(37) & "|"
strButtons = strButtons & arrButtons(38) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(41) & "|" & arrButtons(40) & "|" & arrButtons(42) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(45) & "|" & arrButtons(46) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(49) & "|" & arrButtons(53) & "|" & arrButtons(54) & "|" & arrButtons(65) & "|" & arrButtons(66) & "|"
strButtons = strButtons & arrButtons(51) & "|" & arrButtons(3) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(55) & "|" & arrButtons(57) & "|" & arrButtons(58) & "|" & arrButtons(59) & "|"
strButtons = strButtons & arrButtons(60) & "|" & arrButtons(3) & "|"& arrButtons(24) &"|"
strButtons = strButtons & arrButtons(1)
Case 6
strButtons = strButtons & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(102) & "|" & "|" & arrButtons(103) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|" & arrButtons(27) & "|"
strButtons = strButtons & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|" & arrButtons(31) & "|"
strButtons = strButtons & arrButtons(22) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|"
strButtons = strButtons & arrButtons(20) & "|" & arrButtons(3) &"|"& arrButtons(49) &"|"& arrButtons(3) &"|"& arrButtons(55) &"|"& arrButtons(56) &"|"& arrButtons(1)
End Select
arrButtons2 = Split(strButtons, "|")
For i = 0 To UBound(arrButtons2)
If arrButtons2(i) <> "" Then
arrButtonOption = Split(arrButtons2(i), "$")
Select Case arrButtonOption(0)
Case "yToolbar"
Response.Write "<div class='yToolbar'>" & vbCrLf
Case "/yToolbar"
Response.Write "</div>" & vbCrLf
Case "TBHandle"
Response.Write " <div class='TBHandle'></div>" & vbCrLf
Case "Btn"
Response.Write " <div class='Btn' TITLE='" & arrButtonOption(1) & "' LANGUAGE='javascript' onclick=""" & arrButtonOption(2) & """><img class='Ico' src='editor/images/" & arrButtonOption(3) & "' WIDTH='18' HEIGHT='18'></div>" & vbCrLf
Case "BtnMenu"
Response.Write " <div class='BtnMenu' TITLE='" & arrButtonOption(1) & "' LANGUAGE='javascript' onclick=""" & arrButtonOption(2) & """><img class='Ico' src='editor/images/" & arrButtonOption(3) & "' WIDTH='5' HEIGHT='18'></div>" & vbCrLf
Case "TBSep"
Response.Write " <div class='TBSep'></div>" & vbCrLf
Case "TBGen"
Response.Write "<select ID=""formatSelect"" class=""TBGen"" "
Response.Write "onchange=""format('FormatBlock',this[this.selectedIndex].value);this.selectedIndex=0"">"
Response.Write " <option selected>段落格式</option>"
Response.Write " <option VALUE=""<P>"">普通</option>"
Response.Write " <option VALUE=""<PRE>"">已编排格式</option>"
Response.Write " <option VALUE=""<H1>"">标题一</option>"
Response.Write " <option VALUE=""<H2>"">标题二</option>"
Response.Write " <option VALUE=""<H3>"">标题三</option>"
Response.Write " <option VALUE=""<H4>"">标题四</option>"
Response.Write " <option VALUE=""<H5>"">标题五</option>"
Response.Write " <option VALUE=""<H6>"">标题六</option>"
Response.Write " <option VALUE=""<H7>"">标题七</option>"
Response.Write "</select>"
Case "TBGen2"
Response.Write "<select id=""FontName"" class=""TBGen"" onchange=""format('fontname',this[this.selectedIndex].value);this.selectedIndex=0"">"
Response.Write " <option selected>字体</option>"
Response.Write " <option value=""宋体"">宋体</option>"
Response.Write " <option value=""黑体"">黑体</option>"
Response.Write " <option value=""楷体_GB2312"">楷体</option>"
Response.Write " <option value=""仿宋_GB2312"">仿宋</option>"
Response.Write " <option value=""隶书"">隶书</option>"
Response.Write " <option value=""幼圆"">幼圆</option>"
Response.Write " <option value=""Arial"">Arial</option>"
Response.Write " <option value=""Arial Black"">Arial Black</option>"
Response.Write " <option value=""Arial Narrow"">Arial Narrow</option>"
Response.Write " <option value=""Brush ScriptMT"">Brush Script MT</option>"
Response.Write " <option value=""Century Gothic"">Century Gothic</option>"
Response.Write " <option value=""Comic Sans MS"">Comic Sans MS</option>"
Response.Write " <option value=""Courier"">Courier</option>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -