⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 style.aspx

📁 医院网站的后台管理程序
💻 ASPX
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
Sub DoStyleAddSave()

	If StyleName2ID(sStyleName) <> -1 Then
		GoError ("此样式名已经存在，请用另一个样式名！")
	End If

	Dim nNewStyleID
	nNewStyleID = Ubound(aStyle) + 1
	Redim Preserve aStyle(nNewStyleID)

	aStyle(nNewStyleID) = sStyleName & "|||" & sStyleDir & "|||" & sStyleCSS & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||" & sAutoDetectLanguage & "|||" & sDefaultLanguage & "|||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYMinSize & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse

	Call WriteConfig()
	Call WriteStyle(nNewStyleID)

	Call ShowMessage("<b><span class=red>样式增加成功！</span></b><li><a href='?action=toolbar&id=" & nNewStyleID & "'>设置此样式下的工具栏</a>")

End Sub

Sub DoUpdateConfig()
	Dim i
	Call WriteConfig()
	For i = 1 To UBound(aStyle)
		Call WriteStyle(i)
	Next
	Call ShowMessage("<b><span class=red>所有样式的前台配置文件更新操作成功！</span></b><li><a href='?'>返回所有样式列表</a>")
End Sub

Sub DoStyleSetSave()
	Dim n, s_OldStyleName
	sStyleID = Trim(Request("id"))
	If IsNumeric(sStyleID) = True Then
		n = StyleName2ID(sStyleName)
		If CStr(n) <> sStyleID And n <> -1 Then
			GoError ("此样式名已经存在，请用另一个样式名！")
		End If
		
		If Clng(sStyleID) < 1 And Clng(sStyleID)>UBound(aStyle) Then
			GoError ("无效的样式ID号，请通过页面上的链接进行操作！")
		End If

		s_OldStyleName = Split(aStyle(Clng(sStyleID)), "|||")(0)

		aStyle(Clng(sStyleID)) = sStyleName & "|||" & sStyleDir & "|||" & sStyleCSS & "|||" & sStyleUploadDir & "|||" & sStyleWidth & "|||" & sStyleHeight & "|||" & sStyleFileExt & "|||" & sStyleFlashExt & "|||" & sStyleImageExt & "|||" & sStyleMediaExt & "|||" & sStyleRemoteExt & "|||" & sStyleFileSize & "|||" & sStyleFlashSize & "|||" & sStyleImageSize & "|||" & sStyleMediaSize & "|||" & sStyleRemoteSize & "|||" & sStyleStateFlag & "|||" & sStyleDetectFromWord & "|||" & sStyleInitMode & "|||" & sStyleBaseUrl & "|||" & sStyleUploadObject & "|||" & sStyleAutoDir & "|||" & sStyleBaseHref & "|||" & sStyleContentPath & "|||" & sStyleAutoRemote & "|||" & sStyleShowBorder & "|||" & sStyleMemo & "|||" & sAutoDetectLanguage & "|||" & sDefaultLanguage & "|||" & sSLTFlag & "|||" & sSLTMinSize & "|||" & sSLTOkSize & "|||" & sSYFlag & "|||" & sSYText & "|||" & sSYFontColor & "|||" & sSYFontSize & "|||" & sSYFontName & "|||" & sSYPicPath & "|||" & sSLTSYObject & "|||" & sSLTSYExt & "|||" & sSYMinSize & "|||" & sSYShadowColor & "|||" & sSYShadowOffset & "|||" & sStyleAllowBrowse

	Else
		GoError ("无效的样式ID号，请通过页面上的链接进行操作！")
	End If

	Call WriteConfig()
	If LCase(s_OldStyleName) <> LCase(sStyleName) Then
		Call DeleteFile(s_OldStyleName)
	End If
	Call WriteStyle(Clng(sStyleID))

	Call ShowMessage("<b><span class=red>样式修改成功！</span></b><li><a href='?action=stylepreview&id=" & sStyleID & "' target='_blank'>预览此样式</a><li><a href='?action=toolbar&id=" & sStyleID & "'>设置此样式下的工具栏</a>")

End Sub

Sub DoStyleDel()
	aStyle(Clng(sStyleID)) = ""
	Call WriteConfig()
	Call DeleteFile(sStyleName)
	Call GoUrl("?")
End Sub

Sub ShowStylePreview()
	Response.Write ("<html><head>" & _
		"<title>样式预览</title>" & _
		"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & _
		"</head><body>" & _
		"<input type=hidden name=content1  value=''>" & _
		"<iframe ID='eWebEditor1' src='../ewebeditor.htm?id=content1&style=" & sStyleName & "' frameborder=0 scrolling=no width='" & sStyleWidth & "' HEIGHT='" & sStyleHeight & "'></iframe>" & _
		"</body></html>")
End Sub

Sub ShowStyleCode()
	Response.Write ("<table border=0 cellspacing=1 align=center class=list>" & _
		"<tr><th>样式（" & outHTML(sStyleName) & "）的最佳调用代码如下（其中XXX按实际关联的表单项进行修改）：</th></tr>" & _
		"<tr><td><textarea rows=5 cols=65 style='width:100%'><IFRAME ID=""eWebEditor1"" SRC=""ewebeditor.htm?id=XXX&style=" & sStyleName & """ FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""" & sStyleWidth & """ HEIGHT=""" & sStyleHeight & """></IFRAME></textarea></td></tr>" & _
		"</table>")
End Sub

Sub ShowToolBarList()

	Call ShowMessage("<b class=blue>样式（" & outHTML(sStyleName) & "）下的工具栏管理：</b>")

	Dim s_AddForm, s_ModiForm, i, aCurrToolbar

	If nStyleIsSys = 1 Then
		s_AddForm = ""
	Else
		Dim nMaxOrder
		nMaxOrder = 0
		For i = 1 To UBound(aToolbar)
			aCurrToolbar = Split(aToolbar(i), "|||")
			If aCurrToolbar(0) = sStyleID Then
				If Clng(aCurrToolbar(3)) > nMaxOrder Then
					nMaxOrder = Clng(aCurrToolbar(3))
				End If
			End If
		Next
		nMaxOrder = nMaxOrder + 1

		s_AddForm = "<hr width='80%' align=center size=1><table border=0 cellpadding=4 cellspacing=0 align=center>" & _
		"<form action='?id=" & sStyleID & "&action=toolbaradd' name='addform' method=post>" & _
		"<tr><td>工具栏名：<input type=text name=d_name size=20 class=input value='工具栏" & nMaxOrder & "'> 排序号：<input type=text name=d_order size=5 value='" & nMaxOrder & "' class=input> <input type=submit name=b1 value='新增工具栏'></td></tr>" & _
		"</form></table><hr width='80%' align=center size=1>"
	End If

	Dim s_Manage, s_SubmitButton
	s_ModiForm = "<form action='?id=" & sStyleID & "&action=toolbarmodi' name=modiform method=post>" & _
		"<table border=0 cellpadding=0 cellspacing=1 align=center class=form>" & _
		"<tr align=center><th>ID</th><th>工具栏名</th><th>排序号</th><th>操作</th></tr>"

	For i = 1 To UBound(aToolbar)
		aCurrToolbar = Split(aToolbar(i), "|||")
		If aCurrToolbar(0) = sStyleID Then
			s_Manage = "<a href='?id=" & sStyleID & "&action=buttonset&toolbarid=" & i & "'>按钮设置</a>"
			s_Manage = s_Manage & "|<a href='?id=" & sStyleID & "&action=toolbardel&delid=" & i & "'>删除</a>"
			s_ModiForm = s_ModiForm & "<tr align=center>" & _
				"<td>" & i & "</td>" & _
				"<td><input type=text name='d_name" & i & "' value=""" & inHTML(aCurrToolbar(2)) & """ size=30 class=input></td>" & _
				"<td><input type=text name='d_order" & i & "' value='" & aCurrToolbar(3) & "' size=5 class=input></td>" & _
				"<td>" & s_Manage & "</td>" & _
				"</tr>"
		End If
	Next

	s_SubmitButton = "<tr><td colspan=4 align=center><input type=submit name=b1 value='  修改  '></td></tr>"
	s_ModiForm = s_ModiForm & s_SubmitButton & "</table></form>"

	Response.Write (s_AddForm & s_ModiForm)

End Sub

Sub DoToolBarAdd()
	Dim s_Name, s_Order
	s_Name = Trim(Request("d_name"))
	s_Order = Trim(Request("d_order"))
	If s_Name = "" Or GetTrueLen(s_Name) > 50 Then
		GoError ("工具栏名不能为空，且长度不能大于50个字符长度！")
	End If
	If IsNumeric(s_Order) = False Then
		GoError ("无效的工具栏排序号，排序号必须为数字！")
	End If

	Dim nToolbarNum
	nToolbarNum = Ubound(aToolbar) + 1
	Redim Preserve aToolbar(nToolbarNum)
	aToolbar(nToolbarNum) = sStyleID & "||||||" & s_Name & "|||" & s_Order

	Call WriteConfig()
	Call WriteStyle(Clng(sStyleID))

	Response.Write ("<script language=javascript>alert(""工具栏（" & outHTML(s_Name) & "）增加操作成功！"");</s" & "cript>")
	Call GoUrl("?action=toolbar&id=" & sStyleID)
End Sub

Sub DoToolBarModi()
	Dim s_Name, s_Order, i, aCurrToolbar

	For i = 1 To UBound(aToolbar)
		aCurrToolbar = Split(aToolbar(i), "|||")
		If aCurrToolbar(0) = sStyleID Then
			s_Name = Trim(Request("d_name" & i))
			s_Order = Trim(Request("d_order" & i))
			If s_Name = "" Or IsNumeric(s_Order) = False Then 
				aCurrToolbar(0) = ""
				s_Name = ""
			End If
			aToolbar(i) = aCurrToolbar(0) & "|||" & aCurrToolbar(1) & "|||" & s_Name & "|||" & s_Order
		End If
	Next

	Call WriteConfig()
	Call WriteStyle(Clng(sStyleID))

	Response.Write ("<script language=javascript>alert('工具栏修改操作成功！');</s" & "cript>")
	Call GoUrl("?action=toolbar&id=" & sStyleID)

End Sub

Sub DoToolBarDel()
	Dim s_DelID
	s_DelID = Trim(Request("delid"))
	If IsNumeric(s_DelID) = True Then
		aToolbar(Clng(s_DelID)) = ""
		Call WriteConfig()
		Call WriteStyle(Clng(sStyleID))
		Response.Write ("<script language=javascript>alert('工具栏（ID：" & s_DelID & "）删除操作成功！');</s" & "cript>")
		Call GoUrl("?action=toolbar&id=" & sStyleID)
	End If
End Sub

Sub InitToolBar()
	Dim b, aCurrToolbar, nToolbarID
	b = False
	sToolBarID = Trim(Request("toolbarid"))
	If IsNumeric(sToolBarID) = True Then
		If Clng(sToolBarID) <= UBound(aToolbar) And Clng(sToolBarID) > 0 Then
			aCurrToolbar = Split(aToolbar(Clng(sToolbarID)), "|||")
			sToolBarName = aCurrToolbar(2)
			sToolBarOrder = aCurrToolbar(3)
			sToolBarButton = aCurrToolbar(1)
			b = True
		End If
	End If
	If b = False Then
		GoError ("无效的工具栏ID号，请通过页面上的链接进行操作！")
	End If
End Sub

Sub ShowButtonList()

	Call ShowMessage("<b class=blue>当前样式：<span class=red>" & outHTML(sStyleName) & "</span>&nbsp;&nbsp;当前工具栏：<span class=red>" & outHTML(sToolBarName) & "</span></b>")
	
	Dim i, n

	Dim s_Option1
	s_Option1 = ""
	For i = 1 To UBound(aButton, 1)
		If aButton(i, 8) = 1 Then
			s_Option1 = s_Option1 & "<option value='" & aButton(i, 1) & "'>" & aButton(i, 2) & "</option>"
		End If
	Next

	Dim aSelButton, s_Option2, s_Temp
	aSelButton = Split(sToolBarButton, "|")
	s_Option2 = ""
	For i = 0 To UBound(aSelButton)
		s_Temp = Code2Title(aSelButton(i))
		If s_Temp <> "" Then
			s_Option2 = s_Option2 & "<option value='" & aSelButton(i) & "'>" & s_Temp & "</option>"
		End If
	Next



	Response.Write ("<s" & "cript language=javascript>" & VBCrlf & _
	"function Add() {" & VBCrlf & _
	"	var sel1=document.myform.d_b1;" & VBCrlf & _
	"	var sel2=document.myform.d_b2;" & VBCrlf & _
	"	if (sel1.selectedIndex<0) {" & VBCrlf & _
	"		alert(""请选择一个待选按钮！"");" & VBCrlf & _
	"		return;" & VBCrlf & _
	"	}" & VBCrlf & _
	"	sel2.options[sel2.length]=new Option(sel1.options[sel1.selectedIndex].innerHTML,sel1.options[sel1.selectedIndex].value);" & VBCrlf & _
	"}" & VBCrlf & _
	"" & VBCrlf & _
	"function Del() {" & VBCrlf & _
	"	var sel=document.myform.d_b2;" & VBCrlf & _
	"	var nIndex = sel.selectedIndex;" & VBCrlf & _
	"	var nLen = sel.length;" & VBCrlf & _
	"	if (nLen<1) return;" & VBCrlf & _
	"	if (nIndex<0) {" & VBCrlf & _
	"		alert(""请选择一个已选按钮！"");" & VBCrlf & _
	"		return;" & VBCrlf & _
	"	}" & VBCrlf & _
	"	for (var i=nIndex;i<nLen-1;i++) {" & VBCrlf & _
	"		sel.options[i].value=sel.options[i+1].value;" & VBCrlf & _
	"		sel.options[i].innerHTML=sel.options[i+1].innerHTML;" & VBCrlf & _
	"	}" & VBCrlf & _
	"	sel.length=nLen-1;" & VBCrlf & _
	"}" & VBCrlf & _
	"" & VBCrlf & _
	"function Up() {" & VBCrlf & _
	"	var sel=document.myform.d_b2;" & VBCrlf & _
	"	var nIndex = sel.selectedIndex;" & VBCrlf & _
	"	var nLen = sel.length;" & VBCrlf & _
	"	if ((nLen<1)||(nIndex==0)) return;" & VBCrlf & _
	"	if (nIndex<0) {" & VBCrlf & _
	"		alert(""请选择一个要移动的已选按钮！"");" & VBCrlf & _
	"		return;" & VBCrlf & _
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -