红栌温泉山庄在线编辑器.docx

1、红栌温泉山庄在线编辑器红栌温泉山庄在线编辑器var sPath = document.location.pathname;sPath = sPath.substr(0, sPath.length-14);var sLinkFieldName = ;var sLinkOriginalFileName = ;var sLinkSaveFileName = ;var sLinkSavePathFileName = ;/ 全局设置对象var config = new Object() ;config.Version = ;config.ReleaseDate = ;config.License = ;

2、config.StyleName = ;config.StyleMenuHeader = link href=+sPath+css/MenuArea.css type=text/css rel=stylesheet;config.StyleDir = ;config.StyleUploadDir = ;config.InitMode = ;config.AutoDetectPasteFromWord = ;config.BaseUrl = ;config.BaseHref = ;config.AutoRemote = ;config.ShowBorder = ;config.ModId = ;

3、 /提交过来的模板号config.oBoardId = ; /提交过来的栏目号var sBaseHref = ;if(config.BaseHref!=) sBaseHref = ;config.StyleEditorHeader = link href= + sPath + css/EditorArea.css type=text/css rel=stylesheet + sBaseHref + ;Script Language=Javascript src=Script Language=Javascript src=www.bj-return true ; / 隐藏错误 /*辅助线 va

4、r borderShown = 0 function sBorders() allTables = eWebEditor.document.body.getElementsByTagName(TABLE); for(i=0; i allTables.length; i+) if(!borderShown) allTablesi.runtimeStyle.borderTop = allTablesi.runtimeStyle.borderLeft = 1px dotted #BFBFBF; else allTablesi.runtimeStyle.cssText = ; allRows = al

5、lTablesi.rows; for(y=0; y allRows.length; y+) allCells = allRowsy.cells; for(x=0; x allCells.length; x+) if(!borderShown) allCellsx.runtimeStyle.borderRight = allCellsx.runtimeStyle.borderBottom = 1px dotted #BFBFBF; else allCellsx.runtimeStyle.cssText = ; borderShown = borderShown ? 0 : 1; if(!bord

6、erShown) eWebEditor.document.body.innerHTML = eWebEditor.document.body.innerHTML; function copyContent() eWebEditor.document.body.createTextRange().select(); / 选中编辑器内所有内容 eWebEditor.document.execCommand(copy,null); / 复制 setTimeout(sBorders();,1000); !-编辑器内核由eWebEditor提供,特此感谢!- td %If Session(IsDesig

7、n) yes Then% style=display:none class=StatusBarBtnOff id=eWebEditor_CODE onClick=setMode(CODE)img border=0 src=buttonimage/modecode.gif width=50 height=15 align=absmiddle td %If Session(IsDesign) yes Then% style=display:none width=5 img border=0 src=buttonimage/modeedit.gif width=50 height=15 align=

8、absmiddle img border=0 src=buttonimage/modetext.gif width=50 height=15 align=absmiddle img border=0 src=buttonimage/modepreview.gif width=50 height=15 align=absmiddle 复制 远程自动上传 img border=0 SRC=buttonimage/sizeplus.gif width=20 height=20 alt=增高编辑区 img border=0 SRC=buttonimage/sizeminus.gif width=20

9、height=20 alt=减小编辑区 form id=eWebEditor_UploadForm action=upload.asp?action=remote&type=remote&style=&ModId= method=post target=eWebEditor_UploadTarget style=margin:0.远程文件收集中.请等待.% 显示调用错误提示Sub ShowErr(str) Call DBConnEnd() Response.Write 调用错误： & str Response.EndEnd Sub 初始化Sub Init() 取全屏标志 sFullScreen

10、 = Trim(Request.QueryString(fullscreen) 取对应的内容ID sContentID = Trim(Request.QueryString(id) If sContentID = Then ShowErr 请传入调用参数ID，即隐藏的内容表单项ID！ 取样式初始值 sStyleName = Get_SafeStr(Trim(Request.QueryString(style) If sStyleName = Then sStyleName = standard Dim s_SelfUrl, s_ApplicationName, n_Application, i

11、 s_SelfUrl = UCase(Request.ServerVariables(SERVER_NAME) & : & Request.ServerVariables(SERVER_PORT) & Request.ServerVariables(SCRIPT_NAME) & ?style= & sStyleName) n_Application = 0 Dim aApplicationName, aApplicationUrl, aApplicationValue aApplicationName = Application(eWebEditor_ApplicationName) aApp

12、licationUrl = Application(eWebEditor_ApplicationUrl) If IsArray(aApplicationName) = True Then n_Application = UBound(aApplicationName) 是否在内存中 For i = 1 To n_Application If aApplicationUrl(i) = s_SelfUrl Then s_ApplicationName = aApplicationName(i) aApplicationValue = Application(s_ApplicationName) s

13、StyleID = aApplicationValue(0) sStyleName = aApplicationValue(1) sStyleDir = aApplicationValue(2) sStyleCSS = aApplicationValue(3) sStyleUploadDir = aApplicationValue(4) nStateFlag = aApplicationValue(5) sDetectFromWord = aApplicationValue(6) sInitMode = aApplicationValue(7) sBaseUrl = aApplicationV

14、alue(8) sVersion = aApplicationValue(9) sReleaseDate = aApplicationValue(10) sLicense = aApplicationValue(11) sToolBarNormal = aApplicationValue(12) sToolBarFullScreen = aApplicationValue(13) sBaseHref = aApplicationValue(14) sAutoRemote = aApplicationValue(15) sShowBorder = aApplicationValue(16) If

15、 sFullScreen = 1 Then sToolBar = sToolBarFullScreen Else sToolBar = sToolBarNormal End If Exit Sub End If Next End If 初始化数据库连接 Call DBConnBegin() sSql = select * from ewebeditor_style where s_name= & sStyleName & oRs.Open sSql, oConn, 0, 1 If Not oRs.Eof Then sStyleID = oRs(lingbiqishi.org/S_ID) sStyleName = oRs(S_Name) sStyleDir = oRs(S_Dir) sStyleCSS = oRs(S_CSS) sStyleUploadDir = oRs(S_UploadDir) nStateFlag = oRs(S_StateFlag)