?? admin_style.asp
字號:
<!--#include file = "Include/Startup.asp"-->
<!--#include file = "admin_private.asp"-->
<%
Dim sStyleID, sStyleName, sStyleDir, sStyleCSS, sStyleUploadDir, sStyleWidth, sStyleHeight, sStyleMemo, nStyleIsSys, sStyleStateFlag, sStyleDetectFromWord, sStyleInitMode, sStyleBaseUrl
Dim sStyleFileExt, sStyleFlashExt, sStyleImageExt, sStyleMediaExt, sStyleFileSize, sStyleFlashSize, sStyleImageSize, sStyleMediaSize
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()
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 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_filesize,s_flashsize,s_imagesize,s_mediasize,s_stateflag,s_detectfromword,s_initmode,s_baseurl) select '" & sNewName & "',s_dir,s_css,s_uploaddir,s_width,s_height,s_memo,0,s_fileext,s_flashext,s_imageext,s_mediaext,s_filesize,s_flashsize,s_imagesize,s_mediasize,s_stateflag,s_detectfromword,s_initmode,s_baseurl 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
If sFlag = "ADD" Then
sStyleID = ""
sStyleName = ""
sStyleDir = "standard"
sStyleCSS = "office"
sStyleUploadDir = "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"
sStyleFileSize = "500"
sStyleFlashSize = "100"
sStyleImageSize = "100"
sStyleMediaSize = "100"
sStyleStateFlag = "1"
sStyleDetectFromWord = "true"
sStyleInitMode = "EDIT"
sStyleBaseUrl = "true"
Else
sStyleName = inHTML(sStyleName)
sStyleDir = inHTML(sStyleDir)
sStyleCSS = inHTML(sStyleCSS)
sStyleUploadDir = inHTML(sStyleUploadDir)
sStyleMemo = inHTML(sStyleMemo)
s_Title = "設置樣式"
s_Action = "StyleSetSave"
End If
s_FormStateFlag = InitSelect("d_stateflag", Split("顯示|不顯示", "|"), Split("1|0", "|"), sStyleStateFlag, "", "")
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("true|false", "|"), 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%'><input type=text class=input size=20 name=d_uploaddir title='存放此樣式所有上傳文件的路徑目錄名，必須使用相對路徑，最后不要加斜杠，最大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_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_FormInitMode & " <span class=highlight2>*</span></td><td width='15%' align=right>相對路徑：</td><td width='35%'>" & s_FormBaseUrl & " <span class=highlight2>*</span></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 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><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")
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")
sStyleFileSize = oRs("S_FileSize")
sStyleFlashSize = oRs("S_FlashSize")
sStyleImageSize = oRs("S_ImageSize")
sStyleMediaSize = oRs("S_MediaSize")
sStyleStateFlag = CStr(oRs("S_StateFlag"))
sStyleDetectFromWord = oRs("S_DetectFromWord")
sStyleInitMode = oRs("S_InitMode")
sStyleBaseUrl = oRs("S_BaseUrl")
b = True
End If
oRs.Close
End If
If b = False Then
Go_Error "無效的樣式ID號，請通過頁面上的鏈接進行操作！"
End If
End Sub
' 檢測樣式表單提交的有效性
Sub CheckStyleForm()
sStyleName = Trim(Request("d_name"))
sStyleDir = Trim(Request("d_dir"))
sStyleCSS = Trim(Request("d_css"))
sStyleUploadDir = Trim(Request("d_uploaddir"))
sStyleWidth = Trim(Request("d_width"))
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -