📄 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
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -