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>]&nbsp;&nbsp;&nbsp;&nbsp;[<a href='?action=styleadd'>新建一样式</a>]&nbsp;&nbsp;&nbsp;&nbsp;[<a href='?action=updateconfig'>更新所有样式的前台配置文件</a>]&nbsp;&nbsp;&nbsp;&nbsp;[<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>&nbsp;<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>&nbsp;&nbsp;" & 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>" & _