📄 editor.asp
字号:
<!-- #include File="Start.asp" -->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim arrButtons(104), arrButtons2, strButtons, arrButtonOption, i, TemplateType, EditorContent, tContentID
Dim ChannelID,ShowType,rs
'获取频道相关数据
ChannelID = PE_CLng(Trim(Request("ChannelID")))
tContentID = FilterJS(Request("tContentID"))
TemplateType = Trim(Request("TemplateType"))
If TemplateType = "" Then
TemplateType = 1
Else
TemplateType = PE_CLng(TemplateType)
End If
ShowType = PE_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')$line.gif"
arrButtons(38) = "Btn$插入特殊水平线$insert('hr')$sline.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$插入公式$insert('InsertEQ')$eq.gif"
arrButtons(53) = "Btn$内容过滤$insert('FilterCode')$FilterCode.gif"
arrButtons(54) = "BtnMenu$公式操作$showToolMenu('gongshi')$arrow.gif"
arrButtons(55) = "Btn$插入图片，支持格式为：jpg、gif、bmp、png等$insert('pic')$img.gif"
arrButtons(56) = "Btn$批量上传图片，支持格式为：jpg、gif、bmp、png等$insert('batchpic')$pimg.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) = "Btn$插入标签$insert('Label')$label.gif"
arrButtons(63) = "Btn$图片单行居中$imgalign('center')$imgcenter.gif"
arrButtons(64) = "Btn$插入带标题的分页$insert('pagetitle')$pagetitle.gif"
arrButtons(65) = "Btn$显示文章标题等信息$SuperFunctionLabel('" & InstallDir & "Editor/editor_label.asp','GetArticleList','文章列表函数标签',1,'GetList',800,700)$LabelIco\GetArticleList.gif"
arrButtons(66) = "Btn$显示图片文章$SuperFunctionLabel('" & InstallDir & "Editor/editor_label.asp','GetPicArticle','显示图片文章标签',1,'GetPic',700,500)$LabelIco\GetPicArticle.gif"
arrButtons(67) = "Btn$显示幻灯片文章$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetSlidePicArticle','显示幻灯片文章标签',1,'GetSlide',700,500)$LabelIco\GetSlidePicArticle.gif"
arrButtons(68) = "Btn$文章自定义列表$SuperFunctionLabel('" & InstallDir &"Editor/editor_CustomListLabel.asp','CustomListLable','文章自定义列表标签',1,'GetArticleCustom',720,700)$LabelIco\GetArticleCustom.gif"
arrButtons(69) = "Btn$显示软件标题$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetSoftList','下载列表函数标签',2,'GetList',800,700)$LabelIco\GetSoftList.gif"
arrButtons(70) = "Btn$显示图片下载$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetPicSoft','显示图片下载标签',2,'GetPic',700,500)$LabelIco\GetPicSoft.gif"
arrButtons(71) = "Btn$显示幻灯片下载$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetSlidePicSoft','显示幻灯片下载标签',2,'GetSlide',700,500)$LabelIco\GetSlidePicSoft.gif"
arrButtons(72) = "Btn$下载自定义列表$SuperFunctionLabel('" & InstallDir &"Editor/editor_CustomListLabel.asp','CustomListLable','下载自定义列表标签',2,'GetSoftCustom',720,700)$LabelIco\GetSoftCustom.gif"
arrButtons(73) = "Btn$显示图片标题$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetPhotoList','图片列表函数标签',3,'GetList',800,700)$LabelIco\GetPhotoList.gif"
arrButtons(74) = "Btn$显示图片$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetPicPhoto','显示图片图文标签',3,'GetPic',700,550)$LabelIco\GetPicPhoto.gif"
arrButtons(75) = "Btn$显示图片幻灯片$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetSlidePicPhoto','显示幻灯片图片标签',3,'GetSlide',700,550)$LabelIco\GetSlidePicPhoto.gif"
arrButtons(77) = "Btn$显示商品标题$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetProductList','商城列表函数标签',5,'GetList',800,750)$LabelIco\GetProductList.gif"
arrButtons(78) = "Btn$显示商品图片$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetPicProduct','显示图片商城标签',5,'GetPic',700,600)$LabelIco\GetPicProduct.gif"
arrButtons(79) = "Btn$显示商品幻灯片$SuperFunctionLabel('" & InstallDir &"Editor/editor_label.asp','GetSlidePicProduct','显示幻灯片商城标签',5,'GetSlide',700,460)$LabelIco\GetSlidePicProduct.gif"
arrButtons(80) = "Btn$商品自定义列表$SuperFunctionLabel('" & InstallDir &"Editor/editor_CustomListLabel.asp','CustomListLable','商城自定义列表标签',5,'GetProductCustom',720,700)$LabelIco\GetProductCustom.gif"
arrButtons(81) = "Btn$网站logo$FunctionLabel('" & InstallDir &"Editor/Lable/PE_Logo.htm','240','140')$LabelIco\PE_logo.gif"
arrButtons(82) = "Btn$网站banner$FunctionLabel('" & InstallDir &"Editor/Lable/PE_Banner.htm','240','140')$LabelIco\PE_banner.gif"
arrButtons(83) = "Btn$弹出公告$FunctionLabel('" & InstallDir &"Editor/Lable/PE_AnnWin.htm','240','140')$LabelIco\PE_PopAnnouce.gif"
arrButtons(84) = "Btn$公告$FunctionLabel('" & InstallDir &"Editor/Lable/PE_Annouce2.htm','240','210')$LabelIco\PE_Annouce.gif"
arrButtons(85) = "Btn$友情$FunctionLabel('" & InstallDir &"Editor/Lable/PE_FSite2.htm','330','510')$LabelIco\PE_FriendSite.gif"
arrButtons(86) = "Btn$调查$InsertLabel('ShowVote')$LabelIco\PE_Vote.gif"
arrButtons(87) = "Btn$作者列表$FunctionLabel('" & InstallDir &"Editor/Lable/PE_Author_ShowList.htm','400','345')$LabelIco\PE_Author.gif"
arrButtons(88) = "Btn$厂商列表$FunctionLabel('" & InstallDir &"Editor/Lable/PE_ProducerList.htm','400','450')$LabelIco\PE_Producer.gif"
arrButtons(89) = "Btn$显示作品集排行$FunctionLabel('" & InstallDir &"Editor/Lable/PE_ShowBlogList.htm','400','400')$LabelIco\PE_Blog.gif"
arrButtons(90) = "Btn$显示专题列表$FunctionLabel('" & InstallDir &"Editor/Lable/PE_ShowSpecialList.htm','320','300')$LabelIco\PE_Special.gif"
arrButtons(91) = "Btn$显示注册用户$InsertLabel('ShowTopUser')$LabelIco\PE_user.gif"
arrButtons(92) = "Btn$登录$InsertLabel('ShowAdminLogin')$LabelIco\PE_AdminLogin.gif"
arrButtons(93) = "Btn$导航$InsertLabel('ShowPath')$LabelIco\PE_Path.gif"
arrButtons(94) = "Btn$版权$InsertLabel('Copyright')$LabelIco\PE_Copyright.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) & "|" & arrButtons(3) & "|" & arrButtons(16) & "|"
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(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) & "|" & arrButtons(24) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(37) & "|"
strButtons = strButtons & arrButtons(38) & "|" & arrButtons(3) & "|" & arrButtons(39) &"|" & "|" & arrButtons(64) & "|" & 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) & "|" & arrButtons(53) & "|"
strButtons = strButtons & arrButtons(54) & "|" & arrButtons(3) & "|" & arrButtons(55) & "|" & arrButtons(56) & "|"
strButtons = strButtons & arrButtons(57) & "|" & arrButtons(58) & "|" & arrButtons(59) & "|" & arrButtons(60) & "|"
strButtons = strButtons & arrButtons(1)
Case 1 '模板
strButtons = arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(65) & "|" & arrButtons(66) & "|" & arrButtons(67) & "|"
strButtons = strButtons & arrButtons(68) & "|" & arrButtons(3) & "|" & arrButtons(69) & "|" & arrButtons(70) & "|"
strButtons = strButtons & arrButtons(71) & "|" & arrButtons(72) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(73) & "|" & arrButtons(74) & "|" & arrButtons(75) & "|" & arrButtons(3) & "|" & arrButtons(77) & "|"
strButtons = strButtons & arrButtons(78) & "|" & arrButtons(79) & "|" & arrButtons(80) & "|"& arrButtons(3) & "|"
strButtons = strButtons & arrButtons(81) & "|" & arrButtons(82) & "|" & arrButtons(3) & "|" & arrButtons(83) & "|"
strButtons = strButtons & arrButtons(84) & "|" & arrButtons(85) & "|" & arrButtons(86) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(87) & "|" & arrButtons(88) & "|" & arrButtons(89) & "|" & arrButtons(90) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(91) & "|" & arrButtons(92) & "|" & arrButtons(93) & "|" & arrButtons(94) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(5) & "|" & arrButtons(3) & "|" & arrButtons(6) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(7) & "|" & arrButtons(8) & "|" & arrButtons(9) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(11) & "|" & arrButtons(12) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(13) & "|" & arrButtons(3) & "|" & arrButtons(14) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(15) & "|" & arrButtons(3) & "|" & arrButtons(16) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|" & arrButtons(20) & "|"
strButtons = strButtons & arrButtons(21) & "|" & arrButtons(3) & "|" & arrButtons(33) & "|" & arrButtons(63) & "|"
strButtons = strButtons & arrButtons(34) & "|" & arrButtons(3) & "|" & arrButtons(22) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(37) & "|" & arrButtons(38) & "|" & arrButtons(40) & "|" & arrButtons(41) & "|"
strButtons = strButtons & arrButtons(52) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(24) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(101) & "|" & arrButtons(102) & "|" & arrButtons(103) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(27) & "|" & arrButtons(28) & "|" & arrButtons(29) & "|" & arrButtons(30) & "|"
strButtons = strButtons & arrButtons(31) & "|" & arrButtons(3) & "|" & arrButtons(62) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(43) & "|" & arrButtons(45) & "|" & arrButtons(46) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(32) & "|" & arrButtons(47) & "|" & arrButtons(48) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(49) & "|" & arrButtons(50) & "|" & arrButtons(55) & "|" & arrButtons(57) & "|"
strButtons = strButtons & arrButtons(58) & "|" & arrButtons(59) & "|" & arrButtons(60) & "|" & 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(16) & "|" & 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(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(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(22) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(52) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(55) & "|" & arrButtons(57) & "|" & arrButtons(58) & "|"
strButtons = strButtons & arrButtons(59) & "|" & arrButtons(60) & "|" & arrButtons(1)
Case 4 '商城
strButtons = arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(5) & "|" & arrButtons(3) & "|" & arrButtons(6) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(7) & "|" & arrButtons(8) & "|" & arrButtons(9) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(11) & "|" & arrButtons(12) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(13) & "|" & arrButtons(14) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(17) & "|" & arrButtons(18) & "|" & arrButtons(19) & "|" & arrButtons(20) & "|"
strButtons = strButtons & arrButtons(21) & "|" & arrButtons(3) & "|" & arrButtons(33) & "|" & arrButtons(63) & "|"
strButtons = strButtons & arrButtons(34) & "|" & arrButtons(3) & "|" & arrButtons(22) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(38) & "|" & arrButtons(40) & "|" & arrButtons(41) & "|"
strButtons = strButtons & arrButtons(52) & "|" & arrButtons(35) & "|" & arrButtons(36) & "|" & arrButtons(24) & "|"
strButtons = strButtons & arrButtons(1) & "|" & arrButtons(0) & "|" & arrButtons(2) & "|" & arrButtons(101) & "|" & arrButtons(102) & "|" & arrButtons(103) & "|"
strButtons = strButtons & arrButtons(3) & "|" & arrButtons(25) & "|" & arrButtons(26) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(27) & "|" & arrButtons(28) & "|" & arrButtons(29) & "|"
strButtons = strButtons & arrButtons(31) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(45) & "|" & arrButtons(46) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(47) & "|" & arrButtons(48) & "|" & arrButtons(3) & "|"
strButtons = strButtons & arrButtons(55) & "|" & arrButtons(56) & "|" & arrButtons(57) & "|"
strButtons = strButtons & arrButtons(58) & "|" & arrButtons(59) & "|" & arrButtons(60) & "|" & arrButtons(1)
Case 5 '供求模块
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(16) & "|" & 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(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 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(55) & "|" & arrButtons(1)
End Select
arrButtons2 = Split(strButtons, "|")
For i = 0 To UBound(arrButtons2)
If arrButtons2(i) <> "" Then
arrButtonOption = Split(arrButtons2(i), "$")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -