?? admin_style.asp
字號:
<!--#include file = "Include/Startup.asp"-->
<!--#include file = "admin_private.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ eWebEditor - eWebSoft在線編輯器 ☆
'★ ★
'☆ 版權所有: eWebSoft.com ☆
'★ ★
'☆ 程序制作: eWeb開發團隊 ☆
'★ email:webmaster@webasp.net ★
'☆ QQ:589808 ☆
'★ ★
'☆ 相關網址: [產品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆
'★ [支持論壇]http://bbs.eWebSoft.com/ ★
'☆ ☆
'★ 主頁地址: http://www.eWebSoft.com/ eWebSoft團隊及產品 ★
'☆ http://www.webasp.net/ WEB技術及應用資源網站 ☆
'★ http://bbs.webasp.net/ WEB技術交流論壇 ★
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
Dim sStyleID, sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, nStyleIsSys, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl, sStyleUploadObject, sStyleAutoDir, sStyleBaseHref, sStyleContentPath, sStyleAutoRemote, sStyleShowBorder
Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleRemoteExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize, sStyleRemoteSize
Dim sToolBarID, sToolBarName, sToolBarOrder, sToolBarButton
sPosition = sPosition & "樣式管理"
If sAction = "STYLEPREVIEW" Then
' 樣式預覽
Call InitStyle()
Call ShowStylePreview()
Response.End
End If
Call Header()
Call Content()
Call Footer()
Sub Content()
Select Case sAction
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()
Call RemoveApplication()
Case "STYLEDEL"
' 樣式刪除
Call InitStyle()
Call DoStyleDel()
Call ShowStyleList()
Call RemoveApplication()
Case "CODE"
' 顯示引用代碼
Call InitStyle()
Call ShowStyleCode()
Case "TOOLBAR"
' 顯示工具欄表單
Call InitStyle()
Call ShowToolBarList()
Case "TOOLBARADD"
' 新增工具欄
Call InitStyle()
Call DoToolBarAdd()
Call ShowToolBarList()
Call RemoveApplication()
Case "TOOLBARMODI"
' 修改工具欄
Call InitStyle()
Call DoToolBarModi()
Call ShowToolBarList()
Call RemoveApplication()
Case "TOOLBARDEL"
' 刪除工具欄
Call InitStyle()
Call DoToolBarDel()
Call ShowToolBarList()
Call RemoveApplication()
Case "BUTTONSET"
' 按鈕設置
Call InitStyle()
Call InitToolBar()
Call ShowButtonList()
Case "BUTTONSAVE"
' 按鈕設置保存
Call InitStyle()
Call InitToolBar()
Call DoButtonSave()
Call RemoveApplication()
Case Else
' 當前所有樣式列表
Call ShowStyleList()
End Select
End Sub
' 當前所有樣式列表
Sub ShowStyleList()
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width='100%' height=40><tr>" & _
"<td class=highlight2><b>以下為當前所有樣式列表：</b></td>" & _
"<td align=right><a href='?action=styleadd'>新增樣式</a></td></tr></table>"
Response.Write "<table border=0 cellpadding=0 cellspacing=0 class=list1>" & _
"<form action='?action=del' method=post name=myform>" & _
"<tr align=center>" & _
"<th width=80>樣式名</th>" & _
"<th width=60>最佳寬度</th>" & _
"<th width=60>最佳高度</th>" & _
"<th width=200>說明</th>" & _
"<th width=180>管理</th>" & _
"</tr>"
Dim sManage
sSql = "select * from ewebeditor_style"
oRs.Open sSql, oConn, 0, 1
Do While Not oRs.Eof
sManage = "<a href='?action=stylepreview&id=" & oRs("S_ID") & "' target='_blank'>預覽</a>|<a href='?action=code&id=" & oRs("S_ID") & "'>代碼</a>|<a href='?action=styleset&id=" & oRs("S_ID") & "'>設置</a>|<a href='?action=toolbar&id=" & oRs("S_ID") & "'>工具欄</a>"
If oRs("S_IsSys") = 1 Then
sManage = sManage & "|<a href='?action=copy&id=" & oRs("S_ID") & "'>拷貝</a>"
Else
sManage = sManage & "|<a href='?action=styledel&id=" & oRs("S_ID") & "'>刪除</a>"
End If
Response.Write "<tr align=center>" & _
"<td>" & outHTML(oRs("S_Name")) & "</td>" & _
"<td>" & oRs("S_Width") & "</td>" & _
"<td>" & oRs("S_Height") & "</td>" & _
"<td align=left>" & outHTML(oRs("S_Memo")) & "</td>" & _
"<td>" & sManage & "</td>" & _
"</tr>"
oRs.MoveNext
Loop
oRs.Close
Response.Write "</table>"
Response.Write "<p class=highlight1><b>說明：</b>系統自帶樣式不允許對設置進行修改刪除，但允許查看設置！你可以先“拷貝一標準樣式”然后對其設置進行修改以達到快速新建樣式的目的。</p><br><br>"
End Sub
' 拷貝一標準樣式
Sub DoCopy()
' 只有系統樣式才有拷貝功能
If nStyleIsSys <> 1 Then
Exit Sub
End If
' 自動取有效的樣式名，從1......到...
Dim i, b, sNewID, sNewName
b = False
i = 0
Do While b = False
i = i + 1
sNewName = sStyleName & i
sSql = "select s_id from ewebeditor_style where s_name='" & sNewName & "'"
oRs.Open sSql, oConn, 0, 1
If oRs.Eof And oRs.Bof Then
b = True
End If
oRs.Close
Loop
' 插入一與標準樣式相同的記錄，名不同
sSql = "insert into ewebeditor_style(s_name,s_dir,s_css,s_uploaddir,s_width,s_height,s_memo,s_issys,s_fileext,s_flashext,s_imageext,s_mediaext, s_remoteext,s_filesize,s_flashsize,s_imagesize,s_mediasize,s_remotesize,s_stateflag,s_detectfromword,s_initmode,s_baseurl,s_uploadobject,s_basehref,s_contentpath) select '" & sNewName & "',s_dir,s_css,s_uploaddir,s_width,s_height,s_memo,0,s_fileext,s_flashext,s_imageext,s_mediaext,s_remoteext,s_filesize,s_flashsize,s_imagesize,s_mediasize,s_remotesize,s_stateflag,s_detectfromword,s_initmode,s_baseurl,s_uploadobject,s_basehref,s_contentpath from ewebeditor_style where s_id=" & sStyleID
oConn.Execute sSql
' 取新樣式的ID
sSql = "select s_id from ewebeditor_style where s_name='" & sNewName & "'"
oRs.Open sSql, oConn, 0, 1
sNewID = oRs(0)
oRs.Close
' 拷貝工具欄
sSql = "insert into ewebeditor_toolbar(s_id,t_name,t_order,t_button) select " & sNewID & ",t_name,t_order,t_button from ewebeditor_toolbar where s_id=" & sStyleID
oConn.Execute sSql
End Sub
' 樣式表單
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
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"
sStyleUploadObject = "0"
sStyleAutoDir = "0"
sStyleDetectFromWord = "true"
sStyleInitMode = "EDIT"
sStyleBaseUrl = "0"
Else
sStyleName = inHTML(sStyleName)
sStyleDir = inHTML(sStyleDir)
sStyleCSS = inHTML(sStyleCSS)
sStyleUploadDir = inHTML(sStyleUploadDir)
sStyleBaseHref = inHTML(sStyleBaseHref)
sStyleContentPath = inHTML(sStyleContentPath)
sStyleMemo = inHTML(sStyleMemo)
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_FormUploadObject = InitSelect("d_uploadobject", Split("無懼無組件上傳類|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("true|false", "|"), sStyleDetectFromWord, "", "")
s_FormInitMode = InitSelect("d_initmode", Split("代碼模式|編輯模式|文本模式|預覽模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "", "")
s_FormBaseUrl = InitSelect("d_baseurl", Split("相對路徑|絕對根路徑|絕對全路徑", "|"), Split("0|1|2", "|"), sStyleBaseUrl, "", "")
If nStyleIsSys = 0 Then
s_Button = "<tr><td align=center colspan=4><input type=image border=0 src='admin/submit.gif' align=absmiddle> <a href='javascript:document.myform.reset()'><img border=0 src='admin/reset.gif' align=absmiddle></a></td></tr>"
Else
s_Button = ""
End If
Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=20 width='100%'><tr><td align=right><a href='javascript:history.back()'>返回</a></td></tr></table>"
Response.Write "<table border=0 cellpadding=0 cellspacing=0 align=center class=form1>" & _
"<form action='?action=" & s_Action & "&id=" & sStyleID & "' method=post name=myform>" & _
"<tr><th colspan=4> " & s_Title & "（鼠標移到輸入框可看說明，帶*號為必填項）</th></tr>" & _
"<tr><td width='15%' align=right>樣式名稱：</td><td width='35%'><input type=text class=input size=20 name=d_name title='引用此樣式的名字，不要加特殊符號，最大50個字符長度' value=""" & sStyleName & """> <span class=highlight2>*</span></td><td width='15%' align=right>初始模式：</td><td width='35%'>" & s_FormInitMode & " <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>上傳組件：</td><td width='35%'>" & s_FormUploadObject & " <span class=highlight2>*</span></td><td width='15%' align=right>自動目錄：</td><td width='35%'>" & s_FormAutoDir & " <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>圖片目錄：</td><td width='35%'><input type=text class=input size=20 name=d_dir title='存放此樣式圖片文件的目錄名，必須在ButtonImage下，最大50個字符長度' value=""" & sStyleDir & """> <span class=highlight2>*</span></td><td width='15%' align=right>樣式目錄：</td><td width='35%'><input type=text class=input size=20 name=d_css title='存放此樣式css文件的目錄名，必須在CSS下，最大50個字符長度' value=""" & sStyleCSS & """> <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>最佳寬度：</td><td width='35%'><input type=text class=input name=d_width size=20 title='最佳引用效果的寬度，數字型' value='" & sStyleWidth & "'> <span class=highlight2>*</span></td><td width='15%' align=right>最佳高度：</td><td width='35%'><input type=text class=input name=d_height size=20 title='最佳引用效果的高度，數字型' value='" & sStyleHeight & "'> <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>狀 態 欄：</td><td width='35%'>" & s_FormStateFlag & " <span class=highlight2>*</span></td><td width='15%' align=right>Word粘貼：</td><td width='35%'>" & s_FormDetectFromWord & " <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>遠程文件：</td><td width='35%'>" & s_FormAutoRemote & " <span class=highlight2>*</span></td><td width='15%' align=right>指導方針：</td><td width='35%'>" & s_FormShowBorder & " <span class=highlight2>*</span></td></tr>" & _
"<tr><td colspan=4><span class=highlight2> 上傳文件及系統文件路徑相關設置（只有在使用相對路徑模式時，才要設置顯示路徑和內容路徑）：</span></td></tr>" & _
"<tr><td width='15%' align=right>路徑模式：</td><td width='35%'>" & s_FormBaseUrl & " <span class=highlight2>*</span> <a href='#baseurl'>說明</a></td><td width='15%' align=right>上傳路徑：</td><td width='35%'><input type=text class=input size=20 name=d_uploaddir title='上傳文件所存放路徑，相對eWebEditor根目錄文件的路徑，最大50個字符長度' value=""" & sStyleUploadDir & """> <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>顯示路徑：</td><td width='35%'><input type=text class=input size=20 name=d_basehref title='顯示內容頁所存放路徑，必須以"/"開頭，最大50個字符長度' value=""" & sStyleBaseHref & """></td><td width='15%' align=right>內容路徑：</td><td width='35%'><input type=text class=input size=20 name=d_contentpath title='實際保存在內容中的路徑，相對顯示路徑的路徑，不能以"/"開頭，最大50個字符長度' value=""" & sStyleContentPath & """></td></tr>" & _
"<tr><td colspan=4><span class=highlight2> 允許上傳文件類型及文件大小設置（文件大小單位為KB，0表示沒有限制）：</span></td></tr>" & _
"<tr><td width='15%' align=right>圖片類型：</td><td width='35%'><input type=text class=input name=d_imageext size=20 title='用于圖片相關的上傳，最大250個字符長度' value='" & sStyleImageExt & "'></td><td width='15%' align=right>圖片限制：</td><td width='35%'><input type=text class=input name=d_imagesize size=20 title='數字型，單位KB' value='" & sStyleImageSize & "'></td></tr>" & _
"<tr><td width='15%' align=right>Flash類型：</td><td width='35%'><input type=text class=input name=d_flashext size=20 title='用于插入Flash動畫，最大250個字符長度' value='" & sStyleFlashExt & "'></td><td width='15%' align=right>Flash限制：</td><td width='35%'><input type=text class=input name=d_flashsize size=20 title='數字型，單位KB' value='" & sStyleFlashSize & "'></td></tr>" & _
"<tr><td width='15%' align=right>媒體類型：</td><td width='35%'><input type=text class=input name=d_mediaext size=20 title='用于插入媒體文件，最大250個字符長度' value='" & sStyleMediaExt & "'></td><td width='15%' align=right>媒體限制：</td><td width='35%'><input type=text class=input name=d_mediasize size=20 title='數字型，單位KB' value='" & sStyleMediaSize & "'></td></tr>" & _
"<tr><td width='15%' align=right>其它類型：</td><td width='35%'><input type=text class=input name=d_fileext size=20 title='用于插入其它文件，最大250個字符長度' value='" & sStyleFileExt & "'></td><td width='15%' align=right>其它限制：</td><td width='35%'><input type=text class=input name=d_filesize size=20 title='數字型，單位KB' value='" & sStyleFileSize & "'></td></tr>" & _
"<tr><td width='15%' align=right>遠程類型：</td><td width='35%'><input type=text class=input name=d_remoteext size=20 title='用于自動上傳遠程文件，最大250個字符長度' value='" & sStyleRemoteExt & "'></td><td width='15%' align=right>遠程限制：</td><td width='35%'><input type=text class=input name=d_remotesize size=20 title='數字型，單位KB' value='" & sStyleRemoteSize & "'></td></tr>" & _
"<tr><td align=right>備注說明：</td><td colspan=3><textarea class=textarea rows=7 cols=65 name=d_memo title='此樣式的說明，更有利于調用'>" & sStyleMemo & "</textarea></td></tr>" & s_Button & _
"</form>" & _
"</table>"
Response.Write "<a name=baseurl></a><p><span class=highlight2><b>路徑模式設置說明：</b></span><br>" & _
"<b>相對路徑：</b>指所有的相關上傳或自動插入文件路徑，編輯后都以""UploadFile/...""或""../UploadFile/...""形式呈現，當使用此模式時，顯示路徑和內容路徑必填，顯示路徑必須以""/""開頭和結尾，內容路徑設置中不能以""/""開頭。<br>" & _
"<b>絕對根路徑：</b>指所有的相關上傳或自動插入文件路徑，編輯后都以""/eWebEditor/UploadFile/...""這種形式呈現，當使用此模式時，顯示路徑和內容路徑不必填。<br>" & _
"<b>絕對全路徑：</b>指所有的相關上傳或自動插入文件路徑，編輯后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""這種形式呈現，當使用此模式時，顯示路徑和內容路徑不必填。</p><br><br>"
End Sub
' 初始化樣式表數據
Sub InitStyle()
Dim b
b = False
sStyleID = Trim(Request("id"))
If IsNumeric(sStyleID) = True Then
sSql = "select * from ewebeditor_style where s_id=" & sStyleID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sStyleName = oRs("S_Name")
sStyleDir = oRs("S_Dir")
sStyleCSS = oRs("S_CSS")
sStyleUploadDir = oRs("S_UploadDir")
sStyleBaseHref = oRs("S_BaseHref")
sStyleContentPath = oRs("S_ContentPath")
sStyleWidth = CStr(oRs("S_Width"))
sStyleHeight = CStr(oRs("S_Height"))
sStyleMemo = oRs("S_Memo")
nStyleIsSys = oRs("S_IsSys")
sStyleFileExt = oRs("S_FileExt")
sStyleFlashExt = oRs("S_FlashExt")
sStyleImageExt = oRs("S_ImageExt")
sStyleMediaExt = oRs("S_MediaExt")
sStyleRemoteExt = oRs("S_RemoteExt")
sStyleFileSize = oRs("S_FileSize")
sStyleFlashSize = oRs("S_FlashSize")
sStyleImageSize = oRs("S_ImageSize")
sStyleMediaSize = oRs("S_MediaSize")
sStyleRemoteSize = oRs("S_RemoteSize")
sStyleStateFlag = CStr(oRs("S_StateFlag"))
sStyleAutoRemote = CStr(oRs("S_AutoRemote"))
sStyleShowBorder = CStr(oRs("S_ShowBorder"))
sStyleUploadObject = CStr(oRs("S_UploadObject"))
sStyleAutoDir = CStr(oRs("S_AutoDir"))
sStyleDetectFromWord = oRs("S_DetectFromWord")
sStyleInitMode = oRs("S_InitMode")
sStyleBaseUrl = oRs("S_BaseUrl")
b = True
End If
oRs.Close
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -