?? style.aspx
字號:
?<!--#include file = "private.aspx"-->
<%
'######################################
' eWebEditor v4.00 - Advanced online web based WYSIWYG HTML editor.
' Copyright (c) 2003-2007 eWebSoft.com
'
' For further information go to http://www.ewebsoft.com/
' This copyright notice MUST stay intact for use.
'######################################
%>
<%
sPosition = sPosition & "樣式管理"
If sAction = "STYLEPREVIEW" Then
Call InitStyle()
Call ShowStylePreview()
Response.End
End If
Call Header()
Call ShowPosition()
Call Content()
Call Footer()
%>
<script language="vb" runat="server">
Dim sStyleID, sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, nStyleIsSys, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl, sStyleUploadObject, sStyleAutoDir, sStyleBaseHref, sStyleContentPath, sStyleAutoRemote, sStyleShowBorder, sAutoDetectLanguage, sDefaultLanguage, sStyleAllowBrowse
Dim sSLTFlag, sSLTMinSize, sSLTOkSize, sSYFlag, sSYText, sSYFontColor, sSYFontSize, sSYFontName, sSYPicPath, sSLTSYObject, sSLTSYExt, sSYMinSize, sSYShadowColor, sSYShadowOffset
Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleRemoteExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize, sStyleRemoteSize
Dim sToolBarID, sToolBarName, sToolBarOrder, sToolBarButton
Dim nStyleID
Sub Content()
Select Case sAction
Case "UPDATECONFIG"
Call DoUpdateConfig()
Case "COPY"
Call InitStyle()
Call DoCopy()
Call ShowStyleList()
Case "STYLEADD"
Call ShowStyleForm("ADD")
Case "STYLESET"
Call InitStyle()
Call ShowStyleForm("SET")
Case "STYLEADDSAVE"
Call CheckStyleForm()
Call DoStyleAddSave()
Case "STYLESETSAVE"
Call CheckStyleForm()
Call DoStyleSetSave()
Case "STYLEDEL"
Call InitStyle()
Call DoStyleDel()
Call ShowStyleList()
Case "CODE"
Call InitStyle()
Call ShowStyleCode()
Case "TOOLBAR"
Call InitStyle()
Call ShowToolBarList()
Case "TOOLBARADD"
Call InitStyle()
Call DoToolBarAdd()
Call ShowToolBarList()
Case "TOOLBARMODI"
Call InitStyle()
Call DoToolBarModi()
Call ShowToolBarList()
Case "TOOLBARDEL"
Call InitStyle()
Call DoToolBarDel()
Call ShowToolBarList()
Case "BUTTONSET"
Call InitStyle()
Call InitToolBar()
Call ShowButtonList()
Case "BUTTONSAVE"
Call InitStyle()
Call InitToolBar()
Call DoButtonSave()
Case Else
Call ShowStyleList()
End Select
End Sub
Sub ShowPosition()
Response.Write ("<table border=0 cellspacing=1 align=center class=navi>" & _
"<tr><th>" & sPosition & "</th></tr>" & _
"<tr><td align=center>[<a href='?'>所有樣式列表</a>] [<a href='?action=styleadd'>新建一樣式</a>] [<a href='?action=updateconfig'>更新所有樣式的前臺配置文件</a>] [<a href='#' onclick='history.back()'>返回前一頁</a>]</td></tr>" & _
"</table><br>")
End Sub
Sub ShowMessage(str)
Response.Write ("<table border=0 cellspacing=1 align=center class=list><tr><td>" & str & "</td></tr></table><br>")
End Sub
Sub ShowStyleList()
Call ShowMessage("<b class=blue>以下為當前所有樣式列表：</b>")
Response.Write ("<table border=0 cellpadding=0 cellspacing=1 class=list align=center>" & _
"<form action='?action=del' method=post name=myform>" & _
"<tr align=center>" & _
"<th width='10%'>樣式名</th>" & _
"<th width='10%'>最佳寬度</th>" & _
"<th width='10%'>最佳高度</th>" & _
"<th width='45%'>說明</th>" & _
"<th width='25%'>管理</th>" & _
"</tr>")
Dim sManage, i, aCurrStyle
For i = 1 To Ubound(aStyle)
aCurrStyle = Split(aStyle(i), "|||")
sManage = "<a href='?action=stylepreview&id=" & i & "' target='_blank'>預覽</a>|<a href='?action=code&id=" & i & "'>代碼</a>|<a href='?action=styleset&id=" & i & "'>設置</a>|<a href='?action=toolbar&id=" & i & "'>工具欄</a>|<a href='?action=copy&id=" & i & "'>拷貝</a>|<a href='?action=styledel&id=" & i & "' onclick=""return confirm('提示：您確定要刪除此樣式嗎？')"">刪除</a>"
Response.Write ("<tr align=center>" & _
"<td>" & outHTML(aCurrStyle(0)) & "</td>" & _
"<td>" & aCurrStyle(4) & "</td>" & _
"<td>" & aCurrStyle(5) & "</td>" & _
"<td align=left>" & outHTML(aCurrStyle(26)) & "</td>" & _
"<td>" & sManage & "</td>" & _
"</tr>")
Next
Response.Write ("</table><br>")
Call ShowMessage("<b class=blue>提示：</b>你可以通過""拷貝""一樣式以達到快速新建樣式的目的。")
End Sub
Sub DoCopy()
Dim i, b, sNewID, sNewName
b = False
i = 0
Do While b = False
i = i + 1
sNewName = sStyleName & i
If StyleName2ID(sNewName) = -1 Then
b = True
End If
Loop
Dim nNewStyleID
nNewStyleID = Ubound(aStyle) + 1
Redim Preserve aStyle(nNewStyleID)
aStyle(nNewStyleID) = sNewName & Mid(aStyle(nStyleID), Len(sStyleName)+1)
Dim nToolbarNum, nNewToolbarID, aCurrToolbar
nToolbarNum = Ubound(aToolbar)
For i = 1 To nToolbarNum
aCurrToolbar = Split(aToolbar(i), "|||")
If aCurrToolbar(0) = sStyleID Then
nNewToolbarID = Ubound(aToolbar) + 1
Redim Preserve aToolbar(nNewToolbarID)
aToolbar(nNewToolbarID) = nNewStyleID & "|||" & aCurrToolbar(1) & "|||" & aCurrToolbar(2) & "|||" & aCurrToolbar(3)
End If
Next
Call WriteConfig()
Call WriteStyle(nNewStyleID)
Call GoUrl("?")
End Sub
Function StyleName2ID(str)
Dim i
StyleName2ID = -1
For i = 1 To UBound(aStyle)
If Lcase(Split(aStyle(i), "|||")(0)) = Lcase(str) Then
StyleName2ID = i
Exit Function
End If
Next
End Function
Sub ShowStyleForm(sFlag)
Dim s_Title, s_Button, s_Action
Dim s_FormStateFlag, s_FormDetectFromWord, s_FormInitMode, s_FormBaseUrl, s_FormUploadObject, s_FormAutoDir, s_FormAutoRemote, s_FormShowBorder, s_FormAutoDetectLanguage, s_FormDefaultLanguage, s_FormSLTFlag, s_FormSYFlag, s_FormSLTSYObject, s_FormAllowBrowse
If sFlag = "ADD" Then
sStyleID = ""
sStyleName = ""
sStyleDir = "standard"
sStyleCSS = "office"
sStyleUploadDir = "UploadFile/"
sStyleBaseHref = "http://Localhost/eWebEditor/"
sStyleContentPath = "UploadFile/"
sStyleWidth = "600"
sStyleHeight = "400"
sStyleMemo = ""
nStyleIsSys = 0
s_Title = "新增樣式"
s_Action = "StyleAddSave"
sStyleFileExt = "rar|zip|exe|doc|xls|chm|hlp"
sStyleFlashExt = "swf"
sStyleImageExt = "gif|jpg|jpeg|bmp"
sStyleMediaExt = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
sStyleRemoteExt = "gif|jpg|bmp"
sStyleFileSize = "500"
sStyleFlashSize = "100"
sStyleImageSize = "100"
sStyleMediaSize = "100"
sStyleRemoteSize = "100"
sStyleStateFlag = "1"
sStyleAutoRemote = "1"
sStyleShowBorder = "0"
sAutoDetectLanguage = "1"
sDefaultLanguage = "zh-cn"
sStyleAllowBrowse = "0"
sStyleUploadObject = "0"
sStyleAutoDir = "0"
sStyleDetectFromWord = "1"
sStyleInitMode = "EDIT"
sStyleBaseUrl = "0"
sSLTFlag = "0"
sSLTMinSize = "300"
sSLTOkSize = "120"
sSYFlag = "0"
sSYText = "版權所有..."
sSYFontColor = "000000"
sSYFontSize = "12"
sSYFontName = "宋體"
sSYPicPath = ""
sSLTSYObject = "0"
sSLTSYExt = "bmp|jpg|jpeg|gif"
sSYMinSize = "100"
sSYShadowColor = "FFFFFF"
sSYShadowOffset = "1"
Else
sStyleName = inHTML(sStyleName)
sStyleDir = inHTML(sStyleDir)
sStyleCSS = inHTML(sStyleCSS)
sStyleUploadDir = inHTML(sStyleUploadDir)
sStyleBaseHref = inHTML(sStyleBaseHref)
sStyleContentPath = inHTML(sStyleContentPath)
sStyleMemo = inHTML(sStyleMemo)
sSYText = inHTML(sSYText)
sSYFontColor = inHTML(sSYFontColor)
sSYFontSize = inHTML(sSYFontSize)
sSYFontName = inHTML(sSYFontName)
sSYPicPath = inHTML(sSYPicPath)
s_Title = "設置樣式"
s_Action = "StyleSetSave"
End If
s_FormStateFlag = InitSelect("d_stateflag", Split("顯示|不顯示", "|"), Split("1|0", "|"), sStyleStateFlag, "")
s_FormAutoRemote = InitSelect("d_autoremote", Split("自動上傳|不自動上傳", "|"), Split("1|0", "|"), sStyleAutoRemote, "")
s_FormShowBorder = InitSelect("d_showborder", Split("默認顯示|默認不顯示", "|"), Split("1|0", "|"), sStyleShowBorder, "")
s_FormAutoDetectLanguage = InitSelect("d_autodetectlanguage", Split("自動檢測|不自動檢測", "|"), Split("1|0", "|"), sAutoDetectLanguage, "")
s_FormDefaultLanguage = InitSelect("d_defaultlanguage", Split("簡體中文|繁體中文|英文", "|"), Split("zh-cn|zh-tw|en", "|"), sDefaultLanguage, "")
s_FormAllowBrowse = InitSelect("d_allowbrowse", Split("是,開啟|否,關閉", "|"), Split("1|0", "|"), sStyleAllowBrowse, "")
s_FormUploadObject = InitSelect("d_uploadobject", Split("ASP.net上傳|ASPUpload上傳組件|SA-FileUp上傳組件|LyfUpload上傳組件", "|"), Split("0|1|2|3", "|"), sStyleUploadObject, "")
s_FormAutoDir = InitSelect("d_autodir", Split("不使用|年目錄|年月目錄|年月日目錄", "|"), Split("0|1|2|3", "|"), sStyleAutoDir, "")
s_FormDetectFromWord = InitSelect("d_detectfromword", Split("自動檢測有提示|不自動檢測", "|"), Split("1|0", "|"), sStyleDetectFromWord, "")
s_FormInitMode = InitSelect("d_initmode", Split("代碼模式|編輯模式|文本模式|預覽模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "")
s_FormBaseUrl = InitSelect("d_baseurl", Split("相對路徑|絕對根路徑|絕對全路徑", "|"), Split("0|1|2", "|"), sStyleBaseUrl, "")
s_FormSLTFlag = InitSelect("d_sltflag", Split("使用|不使用", "|"), Split("1|0", "|"), sSLTFlag, "")
s_FormSYFlag = InitSelect("d_syflag", Split("不使用|文字水印|圖片水印", "|"), Split("0|1|2", "|"), sSYFlag, "")
s_FormSLTSYObject = InitSelect("d_sltsyobject", Split(".NET自帶圖形處理|AspJpeg圖形組件", "|"), Split("0|1", "|"), sSLTSYObject, "")
s_Button = "<tr><td align=center colspan=4><input type=submit value=' 提交 ' align=absmiddle> <input type=reset name=btnReset value=' 重填 '></td></tr>"
Response.Write ("<table border=0 cellpadding=0 cellspacing=1 align=center class=form>" & _
"<form action='?action=" & s_Action & "&id=" & sStyleID & "' method=post name=myform>" & _
"<tr><th colspan=4> " & s_Title & "（鼠標移到輸入框可看說明，帶*號為必填項）</th></tr>" & _
"<tr><td width='15%'>樣式名稱：</td><td width='35%'><input type=text class=input size=20 name=d_name title='引用此樣式的名字，不要加特殊符號，最大50個字符長度' value=""" & sStyleName & """> <span class=red>*</span></td><td width='15%'>初始模式：</td><td width='35%'>" & s_FormInitMode & " <span class=red>*</span></td></tr>" & _
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -