?? admin_style.asp
字號(hào):
<!--#include file = "Include/Startup.asp"-->
<!--#include file = "admin_private.asp"-->
<%
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
'★ ★
'☆ eWebEditor - eWebSoft在線編輯器 ☆
'★ ★
'☆ 版權(quán)所有: eWebSoft.com ☆
'★ ★
'☆ 程序制作: eWeb開發(fā)團(tuán)隊(duì) ☆
'★ email:webmaster@webasp.net ★
'☆ QQ:589808 ☆
'★ ★
'☆ 相關(guān)網(wǎng)址: [產(chǎn)品介紹]http://www.eWebSoft.com/Product/eWebEditor/ ☆
'★ [支持論壇]http://bbs.eWebSoft.com/ ★
'☆ ☆
'★ 主頁(yè)地址: http://www.eWebSoft.com/ eWebSoft團(tuán)隊(duì)及產(chǎn)品 ★
'☆ http://www.webasp.net/ WEB技術(shù)及應(yīng)用資源網(wǎng)站 ☆
'★ http://bbs.webasp.net/ WEB技術(shù)交流論壇 ★
'★ ★
'☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
%>
<%
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
' 樣式預(yù)覽
Call InitStyle()
Call ShowStylePreview()
Response.End
End If
Call Header()
Call Content()
Call Footer()
Sub Content()
Select Case sAction
Case "COPY"
' 拷貝一標(biāo)準(zhǔn)樣式
Call InitStyle()
Call DoCopy()
Call ShowStyleList()
Case "STYLEADD"
' 新增樣式表單
Call ShowStyleForm("ADD")
Case "STYLESET"
' 樣式設(shè)置，修改或查看
Call InitStyle()
Call ShowStyleForm("SET")
Case "STYLEADDSAVE"
' 樣式新增保存
Call CheckStyleForm()
Call DoStyleAddSave()
Case "STYLESETSAVE"
' 樣式設(shè)置修改保存
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"
' 按鈕設(shè)置
Call InitStyle()
Call InitToolBar()
Call ShowButtonList()
Case "BUTTONSAVE"
' 按鈕設(shè)置保存
Call InitStyle()
Call InitToolBar()
Call DoButtonSave()
Call RemoveApplication()
Case Else
' 當(dāng)前所有樣式列表
Call ShowStyleList()
End Select
End Sub
' 當(dāng)前所有樣式列表
Sub ShowStyleList()
Response.Write "<table border=0 cellpadding=0 cellspacing=0 width='100%' height=40><tr>" & _
"<td class=highlight2><b>以下為當(dāng)前所有樣式列表：</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>說(shuō)明</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'>預(yù)覽</a>|<a href='?action=code&id=" & oRs("S_ID") & "'>代碼</a>|<a href='?action=styleset&id=" & oRs("S_ID") & "'>設(shè)置</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>說(shuō)明：</b>系統(tǒng)自帶樣式不允許對(duì)設(shè)置進(jìn)行修改刪除，但允許查看設(shè)置！你可以先“拷貝一標(biāo)準(zhǔn)樣式”然后對(duì)其設(shè)置進(jìn)行修改以達(dá)到快速新建樣式的目的。</p><br><br>"
End Sub
' 拷貝一標(biāo)準(zhǔn)樣式
Sub DoCopy()
' 只有系統(tǒng)樣式才有拷貝功能
If nStyleIsSys <> 1 Then
Exit Sub
End If
' 自動(dòng)取有效的樣式名，從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
' 插入一與標(biāo)準(zhǔn)樣式相同的記錄，名不同
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 = "設(shè)置樣式"
s_Action = "StyleSetSave"
End If
s_FormStateFlag = InitSelect("d_stateflag", Split("顯示|不顯示", "|"), Split("1|0", "|"), sStyleStateFlag, "", "")
s_FormAutoRemote = InitSelect("d_autoremote", Split("自動(dòng)上傳|不自動(dòng)上傳", "|"), Split("1|0", "|"), sStyleAutoRemote, "", "")
s_FormShowBorder = InitSelect("d_showborder", Split("默認(rèn)顯示|默認(rèn)不顯示", "|"), Split("1|0", "|"), sStyleShowBorder, "", "")
s_FormUploadObject = InitSelect("d_uploadobject", Split("無(wú)懼無(wú)組件上傳類|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("自動(dòng)檢測(cè)有提示|不自動(dòng)檢測(cè)", "|"), Split("true|false", "|"), sStyleDetectFromWord, "", "")
s_FormInitMode = InitSelect("d_initmode", Split("代碼模式|編輯模式|文本模式|預(yù)覽模式", "|"), Split("CODE|EDIT|TEXT|VIEW", "|"), sStyleInitMode, "", "")
s_FormBaseUrl = InitSelect("d_baseurl", Split("相對(duì)路徑|絕對(duì)根路徑|絕對(duì)全路徑", "|"), 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 & "（鼠標(biāo)移到輸入框可看說(shuō)明，帶*號(hào)為必填項(xiàng)）</th></tr>" & _
"<tr><td width='15%' align=right>樣式名稱：</td><td width='35%'><input type=text class=input size=20 name=d_name title='引用此樣式的名字，不要加特殊符號(hào)，最大50個(gè)字符長(zhǎng)度' 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>自動(dòng)目錄：</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個(gè)字符長(zhǎng)度' 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個(gè)字符長(zhǎng)度' 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='最佳引用效果的寬度，數(shù)字型' 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='最佳引用效果的高度，數(shù)字型' value='" & sStyleHeight & "'> <span class=highlight2>*</span></td></tr>" & _
"<tr><td width='15%' align=right>狀 態(tài) 欄：</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>遠(yuǎn)程文件：</td><td width='35%'>" & s_FormAutoRemote & " <span class=highlight2>*</span></td><td width='15%' align=right>指導(dǎo)方針：</td><td width='35%'>" & s_FormShowBorder & " <span class=highlight2>*</span></td></tr>" & _
"<tr><td colspan=4><span class=highlight2> 上傳文件及系統(tǒng)文件路徑相關(guān)設(shè)置（只有在使用相對(duì)路徑模式時(shí)，才要設(shè)置顯示路徑和內(nèi)容路徑）：</span></td></tr>" & _
"<tr><td width='15%' align=right>路徑模式：</td><td width='35%'>" & s_FormBaseUrl & " <span class=highlight2>*</span> <a href='#baseurl'>說(shuō)明</a></td><td width='15%' align=right>上傳路徑：</td><td width='35%'><input type=text class=input size=20 name=d_uploaddir title='上傳文件所存放路徑，相對(duì)eWebEditor根目錄文件的路徑，最大50個(gè)字符長(zhǎng)度' 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='顯示內(nèi)容頁(yè)所存放路徑，必須以"/"開頭，最大50個(gè)字符長(zhǎng)度' value=""" & sStyleBaseHref & """></td><td width='15%' align=right>內(nèi)容路徑：</td><td width='35%'><input type=text class=input size=20 name=d_contentpath title='實(shí)際保存在內(nèi)容中的路徑，相對(duì)顯示路徑的路徑，不能以"/"開頭，最大50個(gè)字符長(zhǎng)度' value=""" & sStyleContentPath & """></td></tr>" & _
"<tr><td colspan=4><span class=highlight2> 允許上傳文件類型及文件大小設(shè)置（文件大小單位為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='用于圖片相關(guān)的上傳，最大250個(gè)字符長(zhǎng)度' value='" & sStyleImageExt & "'></td><td width='15%' align=right>圖片限制：</td><td width='35%'><input type=text class=input name=d_imagesize size=20 title='數(shù)字型，單位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動(dòng)畫，最大250個(gè)字符長(zhǎng)度' value='" & sStyleFlashExt & "'></td><td width='15%' align=right>Flash限制：</td><td width='35%'><input type=text class=input name=d_flashsize size=20 title='數(shù)字型，單位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個(gè)字符長(zhǎng)度' value='" & sStyleMediaExt & "'></td><td width='15%' align=right>媒體限制：</td><td width='35%'><input type=text class=input name=d_mediasize size=20 title='數(shù)字型，單位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個(gè)字符長(zhǎng)度' value='" & sStyleFileExt & "'></td><td width='15%' align=right>其它限制：</td><td width='35%'><input type=text class=input name=d_filesize size=20 title='數(shù)字型，單位KB' value='" & sStyleFileSize & "'></td></tr>" & _
"<tr><td width='15%' align=right>遠(yuǎn)程類型：</td><td width='35%'><input type=text class=input name=d_remoteext size=20 title='用于自動(dòng)上傳遠(yuǎn)程文件，最大250個(gè)字符長(zhǎng)度' value='" & sStyleRemoteExt & "'></td><td width='15%' align=right>遠(yuǎn)程限制：</td><td width='35%'><input type=text class=input name=d_remotesize size=20 title='數(shù)字型，單位KB' value='" & sStyleRemoteSize & "'></td></tr>" & _
"<tr><td align=right>備注說(shuō)明：</td><td colspan=3><textarea class=textarea rows=7 cols=65 name=d_memo title='此樣式的說(shuō)明，更有利于調(diào)用'>" & sStyleMemo & "</textarea></td></tr>" & s_Button & _
"</form>" & _
"</table>"
Response.Write "<a name=baseurl></a><p><span class=highlight2><b>路徑模式設(shè)置說(shuō)明：</b></span><br>" & _
"<b>相對(duì)路徑：</b>指所有的相關(guān)上傳或自動(dòng)插入文件路徑，編輯后都以""UploadFile/...""或""../UploadFile/...""形式呈現(xiàn)，當(dāng)使用此模式時(shí)，顯示路徑和內(nèi)容路徑必填，顯示路徑必須以""/""開頭和結(jié)尾，內(nèi)容路徑設(shè)置中不能以""/""開頭。<br>" & _
"<b>絕對(duì)根路徑：</b>指所有的相關(guān)上傳或自動(dòng)插入文件路徑，編輯后都以""/eWebEditor/UploadFile/...""這種形式呈現(xiàn)，當(dāng)使用此模式時(shí)，顯示路徑和內(nèi)容路徑不必填。<br>" & _
"<b>絕對(duì)全路徑：</b>指所有的相關(guān)上傳或自動(dòng)插入文件路徑，編輯后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""這種形式呈現(xiàn)，當(dāng)使用此模式時(shí)，顯示路徑和內(nèi)容路徑不必填。</p><br><br>"
End Sub
' 初始化樣式表數(shù)據(jù)
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -