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

📄 style.aspx

📁 医院网站的后台管理程序
💻 ASPX
📖 第 1 页 / 共 4 页
字号:
			"<tr><td width='15%'>上传组件:</td><td width='35%'>" & s_FormUploadObject & " <span class=red>*</span></td><td width='15%'>自动目录:</td><td width='35%'>" & s_FormAutoDir & " <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>图片目录:</td><td width='35%'><input type=text class=input size=20 name=d_dir title='存放此样式图片文件的目录名,必须在ButtonImage下,最大50个字符长度' value=""" & sStyleDir & """> <span class=red>*</span></td><td width='15%'>样式目录:</td><td width='35%'><input type=text class=input size=20 name=d_css title='存放此样式css文件的目录名,必须在CSS下,最大50个字符长度' value=""" & sStyleCSS & """> <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>最佳宽度:</td><td width='35%'><input type=text class=input name=d_width size=20 title='最佳引用效果的宽度,数字型' value='" & sStyleWidth & "'> <span class=red>*</span></td><td width='15%'>最佳高度:</td><td width='35%'><input type=text class=input name=d_height size=20 title='最佳引用效果的高度,数字型' value='" & sStyleHeight & "'> <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>状 态 栏:</td><td width='35%'>" & s_FormStateFlag & " <span class=red>*</span></td><td width='15%'>Word粘贴:</td><td width='35%'>" & s_FormDetectFromWord & " <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>远程文件:</td><td width='35%'>" & s_FormAutoRemote & " <span class=red>*</span></td><td width='15%'>指导方针:</td><td width='35%'>" & s_FormShowBorder & " <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>自动语言检测:</td><td width='35%'>" & s_FormAutoDetectLanguage & " <span class=red>*</span></td><td width='15%'>默认语言:</td><td width='35%'>" & s_FormDefaultLanguage & " <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>上传文件浏览:</td><td width='35%'>" & s_FormAllowBrowse & " <span class=red>*</span></td><td width='15%'>&nbsp;</td><td width='35%'>&nbsp;</td></tr>" & _
			"<tr><td>备注说明:</td><td colspan=3><input type=text name=d_memo size=90 title='此样式的说明,更有利于调用' value=""" & sStyleMemo & """></td></tr>" & _
			"<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;上传文件及系统文件路径相关设置(只有在使用相对路径模式时,才要设置显示路径和内容路径):</span></td></tr>" & _
			"<tr><td width='15%'>路径模式:</td><td width='35%'>" & s_FormBaseUrl & " <span class=red>*</span> <a href='#baseurl'>说明</a></td><td width='15%'>上传路径:</td><td width='35%'><input type=text class=input size=20 name=d_uploaddir title='上传文件所存放路径,相对eWebEditor根目录文件的路径,最大50个字符长度' value=""" & sStyleUploadDir & """> <span class=red>*</span></td></tr>" & _
			"<tr><td width='15%'>显示路径:</td><td width='35%'><input type=text class=input size=20 name=d_basehref title='显示内容页所存放路径,必须以&quot;/&quot;开头,最大50个字符长度' value=""" & sStyleBaseHref & """></td><td width='15%'>内容路径:</td><td width='35%'><input type=text class=input size=20 name=d_contentpath title='实际保存在内容中的路径,相对显示路径的路径,不能以&quot;/&quot;开头,最大50个字符长度' value=""" & sStyleContentPath & """></td></tr>" & _
			"<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;允许上传文件类型及文件大小设置(文件大小单位为KB,0表示没有限制):</span></td></tr>" & _
			"<tr><td width='15%'>图片类型:</td><td width='35%'><input type=text class=input name=d_imageext size=20 title='用于图片相关的上传,最大250个字符长度' value='" & sStyleImageExt & "'></td><td width='15%'>图片限制:</td><td width='35%'><input type=text class=input name=d_imagesize size=20 title='数字型,单位KB' value='" & sStyleImageSize & "'></td></tr>" & _
			"<tr><td width='15%'>Flash类型:</td><td width='35%'><input type=text class=input name=d_flashext size=20 title='用于插入Flash动画,最大250个字符长度' value='" & sStyleFlashExt & "'></td><td width='15%'>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%'>媒体类型:</td><td width='35%'><input type=text class=input name=d_mediaext size=20 title='用于插入媒体文件,最大250个字符长度' value='" & sStyleMediaExt & "'></td><td width='15%'>媒体限制:</td><td width='35%'><input type=text class=input name=d_mediasize size=20 title='数字型,单位KB' value='" & sStyleMediaSize & "'></td></tr>" & _
			"<tr><td width='15%'>其它类型:</td><td width='35%'><input type=text class=input name=d_fileext size=20 title='用于插入其它文件,最大250个字符长度' value='" & sStyleFileExt & "'></td><td width='15%'>其它限制:</td><td width='35%'><input type=text class=input name=d_filesize size=20 title='数字型,单位KB' value='" & sStyleFileSize & "'></td></tr>" & _
			"<tr><td width='15%'>远程类型:</td><td width='35%'><input type=text class=input name=d_remoteext size=20 title='用于自动上传远程文件,最大250个字符长度' value='" & sStyleRemoteExt & "'></td><td width='15%'>远程限制:</td><td width='35%'><input type=text class=input name=d_remotesize size=20 title='数字型,单位KB' value='" & sStyleRemoteSize & "'></td></tr>" & _
			"<tr><td colspan=4><span class=red>&nbsp;&nbsp;&nbsp;缩略图及水印相关设置:</span></td></tr>" & _
			"<tr><td width='15%'>图形处理组件:</td><td width='35%'>" & s_FormSLTSYObject & "</td><td width='15%'>处理图形扩展名:</td><td width='35%'><input type=text name=d_sltsyext size=20 class=input value=""" & sSLTSYExt & """></td></tr>" & _
			"<tr><td width='15%'>缩略图使用状态:</td><td width='35%'>" & s_FormSLTFlag & "</td><td width='15%'>缩略图长度条件</td><td width='35%'><input type=text name=d_sltminsize size=20 class=input title='图形的长度只有达到此最小长度要求时才会生成缩略图,数字型' value='" & sSLTMinSize & "'>px</td></tr>" & _
			"<tr><td width='15%'>缩略图生成长度:</td><td width='35%'><input type=text name=d_sltoksize size=20 class=input title='生成的缩略图长度值,数字型' value='" & sSLTOkSize & "'>px</td><td width='15%'>&nbsp;</td><td width='35%'>&nbsp;</td></tr>" & _
			"<tr><td width='15%'>水印使用状态:</td><td width='35%'>" & s_FormSYFlag & "</td><td width='15%'>水印宽度条件:</td><td width='35%'><input type=text name=d_syminsize size=20 class=input title='图形的宽度只有达到此最小宽度要求时才会生成水印,数字型' value='" & sSYMinSize & "'>px</td></tr>" & _
			"<tr><td width='15%'>文字水印内容:</td><td width='35%'><input type=text name=d_sytext size=20 class=input title='当使用文字水印时的文字内容' value=""" & sSYText & """></td><td width='15%'>文字水印字体颜色:</td><td width='35%'><input type=text name=d_syfontcolor size=20 class=input title='当使用文字水印时文字的颜色' value=""" & sSYFontColor & """></td></tr>" & _
			"<tr><td width='15%'>文字水印阴影颜色:</td><td width='35%'><input type=text name=d_syshadowcolor size=20 class=input title='当使用文字水印时的文字阴影颜色' value=""" & sSYShadowColor & """></td><td width='15%'>文字水印阴影大小:</td><td width='35%'><input type=text name=d_syshadowoffset size=20 class=input title='当使用文字水印时文字的阴影大小' value=""" & sSYShadowOffset & """>px</td></tr>" & _
			"<tr><td width='15%'>文字水印字体大小:</td><td width='35%'><input type=text name=d_syfontsize size=20 class=input title='当使用文字水印时文字的字体大小' value=""" & sSYFontSize & """>px</td><td width='15%'>文字水印字体名称:</td><td width='35%'><input type=text name=d_syfontname size=20 class=input title='当使用文字水印时文字的字体名' value=""" & sSYFontName & """></td></tr>" & _
			"<tr><td width='15%'>图片水印图片路径:</td><td width='35%'><input type=text name=d_sypicpath size=20 class=input title='当使用图片水印时图片的路径' value=""" & sSYPicPath & """></td><td width='15%'></td><td width='35%'></td></tr>" & _
			s_Button & _
			"</form>" & _
			"</table><br>")

	Dim sMsg
	sMsg = "<a name=baseurl></a><p><span class=blue><b>路径模式设置说明:</b></span><br>" & _
		"<b>相对路径:</b>指所有的相关上传或自动插入文件路径,编辑后都以""UploadFile/...""或""../UploadFile/...""形式呈现,当使用此模式时,显示路径和内容路径必填,显示路径必须以""/""开头和结尾,内容路径设置中不能以""/""开头。<br>" & _
		"<b>绝对根路径:</b>指所有的相关上传或自动插入文件路径,编辑后都以""/eWebEditor/UploadFile/...""这种形式呈现,当使用此模式时,显示路径和内容路径不必填。<br>" & _
		"<b>绝对全路径:</b>指所有的相关上传或自动插入文件路径,编辑后都以""http://xxx.xxx.xxx/eWebEditor/UploadFile/...""这种形式呈现,当使用此模式时,显示路径和内容路径不必填。</p>"

	Call ShowMessage(sMsg)

End Sub

Sub InitStyle()
	Dim b, aCurrStyle
	b = False
	sStyleID = Trim(Request("id"))
	If IsNumeric(sStyleID) = True Then
		nStyleID = Clng(sStyleID)
		If nStyleID <= Ubound(aStyle) Then
			aCurrStyle = Split(aStyle(nStyleID), "|||")
			sStyleName = aCurrStyle(0)
			sStyleDir = aCurrStyle(1)
			sStyleCSS = aCurrStyle(2)
			sStyleUploadDir = aCurrStyle(3)
			sStyleBaseHref = aCurrStyle(22)
			sStyleContentPath = aCurrStyle(23)
			sStyleWidth = aCurrStyle(4)
			sStyleHeight = aCurrStyle(5)
			sStyleMemo = aCurrStyle(26)
			'nStyleIsSys = aCurrStyle()
			sStyleFileExt = aCurrStyle(6)
			sStyleFlashExt = aCurrStyle(7)
			sStyleImageExt = aCurrStyle(8)
			sStyleMediaExt = aCurrStyle(9)
			sStyleRemoteExt = aCurrStyle(10)
			sStyleFileSize = aCurrStyle(11)
			sStyleFlashSize = aCurrStyle(12)
			sStyleImageSize = aCurrStyle(13)
			sStyleMediaSize = aCurrStyle(14)
			sStyleRemoteSize = aCurrStyle(15)
			sStyleStateFlag = aCurrStyle(16)
			sStyleAutoRemote = aCurrStyle(24)
			sStyleShowBorder = aCurrStyle(25)
			sAutoDetectLanguage = aCurrStyle(27)
			sDefaultLanguage = aCurrStyle(28)
			sStyleUploadObject = aCurrStyle(20)
			sStyleAutoDir = aCurrStyle(21)
			sStyleDetectFromWord = aCurrStyle(17)
			sStyleInitMode = aCurrStyle(18)
			sStyleBaseUrl = aCurrStyle(19)
			sSLTFlag = aCurrStyle(29)
			sSLTMinSize = aCurrStyle(30)
			sSLTOkSize = aCurrStyle(31)
			sSYFlag = aCurrStyle(32)
			sSYText = aCurrStyle(33)
			sSYFontColor = aCurrStyle(34)
			sSYFontSize = aCurrStyle(35)
			sSYFontName = aCurrStyle(36)
			sSYPicPath = aCurrStyle(37)
			sSLTSYObject = aCurrStyle(38)
			sSLTSYExt = aCurrStyle(39)
			sSYMinSize = aCurrStyle(40)
			sSYShadowColor = aCurrStyle(41)
			sSYShadowOffset = aCurrStyle(42)
			sStyleAllowBrowse = aCurrStyle(43)
			b = True
		End If
	End If
	If b = False Then
		GoError ("无效的样式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"))
	sStyleBaseHref = Trim(Request("d_basehref"))
	sStyleContentPath = Trim(Request("d_contentpath"))
	sStyleWidth = Trim(Request("d_width"))
	sStyleHeight = Trim(Request("d_height"))
	sStyleMemo = Trim(Request("d_memo"))
	sStyleImageExt = Request("d_imageext")
	sStyleFlashExt = Request("d_flashext")
	sStyleMediaExt = Request("d_mediaext")
	sStyleRemoteExt = Request("d_remoteext")
	sStyleFileExt = Request("d_fileext")
	sStyleImageSize = Request("d_imagesize")
	sStyleFlashSize = Request("d_flashsize")
	sStyleMediaSize = Request("d_mediasize")
	sStyleRemoteSize = Request("d_remotesize")
	sStyleFileSize = Request("d_filesize")
	sStyleStateFlag = Request("d_stateflag")
	sStyleAutoRemote = Request("d_autoremote")
	sStyleShowBorder = Request("d_showborder")
	sAutoDetectLanguage = Request("d_autodetectlanguage")
	sDefaultLanguage = Request("d_defaultlanguage")
	sStyleUploadObject = Request("d_uploadobject")
	sStyleAutoDir = Request("d_autodir")
	sStyleDetectFromWord = Request("d_detectfromword")
	sStyleInitMode = Request("d_initmode")
	sStyleBaseUrl = Request("d_baseurl")
	sSLTFlag = Trim(Request("d_sltflag"))
	sSLTMinSize = Trim(Request("d_sltminsize"))
	sSLTOkSize = Trim(Request("d_sltoksize"))
	sSYFlag = Trim(Request("d_syflag"))
	sSYText = Trim(Request("d_sytext"))
	sSYFontColor = Trim(Request("d_syfontcolor"))
	sSYFontSize = Trim(Request("d_syfontsize"))
	sSYFontName = Trim(Request("d_syfontname"))
	sSYPicPath = Trim(Request("d_sypicpath"))
	sSLTSYObject = Trim(Request("d_sltsyobject"))
	sSLTSYExt = Trim(Request("d_sltsyext"))
	sSYMinSize = Trim(Request("d_syminsize"))
	sSYShadowColor = Trim(Request("d_syshadowcolor"))
	sSYShadowOffset = Trim(Request("d_syshadowoffset"))
	sStyleAllowBrowse = Trim(Request("d_allowbrowse"))

	sStyleUploadDir = Replace(sStyleUploadDir, "\", "/")
	sStyleBaseHref = Replace(sStyleBaseHref, "\", "/")
	sStyleContentPath = Replace(sStyleContentPath, "\", "/")
	If Right(sStyleUploadDir, 1) <> "/" Then sStyleUploadDir = sStyleUploadDir & "/"
	If Right(sStyleBaseHref, 1) <> "/" Then sStyleBaseHref = sStyleBaseHref & "/"
	If Right(sStyleContentPath, 1) <> "/" Then sStyleContentPath = sStyleContentPath & "/"

	If sStyleName = "" Or GetTrueLen(sStyleName) > 50 Then
		GoError ("样式名不能为空,且不大于50个字符长度!")
	End If
	If IsSafeStr(sStyleName) = False Then
		GoError ("样式名请勿包含特殊字符!")
	End If
	If sStyleDir = "" Or GetTrueLen(sStyleDir) > 50 Then
		GoError ("按钮图片目录名不能为空,且不大于50个字符长度!")
	End If
	If IsSafeStr(sStyleDir) = False Then
		GoError ("按钮图片目录名请勿包含特殊字符!")
	End If
	If sStyleCSS = "" Or GetTrueLen(sStyleCSS) > 50 Then
		GoError ("样式CSS目录名不能为空,且不大于50个字符长度!")
	End If
	If IsSafeStr(sStyleCSS) = False Then
		GoError ("样式CSS目录名请勿包含特殊字符!")
	End If

	If sStyleUploadDir = "" Or GetTrueLen(sStyleUploadDir) > 50 Then
		GoError ("上传路径不能为空,且不大于50个字符长度!")
	End If
	If IsSafeStr(sStyleUploadDir) = False Then
		GoError ("上传路径请勿包含特殊字符!")
	End If
	Select Case sStyleBaseUrl
	Case "0"
		If sStyleBaseHref = "" Or GetTrueLen(sStyleBaseHref) > 50 Then
			GoError ("当使用相对路径模式时,显示路径不能为空,且不大于50个字符长度!")
		End If
		If IsSafeStr(sStyleBaseHref) = False Then
			GoError ("当使用相对路径模式时,显示路径请勿包含特殊字符!")
		End If
		If Left(sStyleBaseHref, 1) <> "/" Then
			GoError ("当使用相对路径模式时,显示路径必须以&quot;/&quot;开头!")
		End If

		If sStyleContentPath = "" Or GetTrueLen(sStyleContentPath) > 50 Then
			GoError ("当使用相对路径模式时,内容路径不能为空,且不大于50个字符长度!")
		End If
		If IsSafeStr(sStyleContentPath) = False Then
			GoError ("当使用相对路径模式时,内容路径请勿包含特殊字符!")
		End If
		If Left(sStyleContentPath, 1) = "/" Then
			GoError ("当使用相对路径模式时,内容路径不能以&quot;/&quot;开头!")
		End If
	Case "1", "2"
		sStyleBaseHref = ""
		sStyleContentPath = ""
	End Select
	
	If IsNumeric(sStyleWidth) = False Then
		GoError ("请填写有效的最佳引用宽度!")
	End If
	If IsNumeric(sStyleHeight) = False Then
		GoError ("请填写有效的最佳引用高度!")
	End If

	If GetTrueLen(sStyleImageExt) > 250 Then
		GoError ("图片文件类型不能大于250个字符长度!")
	End If
	If GetTrueLen(sStyleFlashExt) > 250 Then
		GoError ("Flash文件类型不能大于250个字符长度!")
	End If
	If GetTrueLen(sStyleMediaExt) > 250 Then
		GoError ("媒体文件类型不能大于250个字符长度!")
	End If
	If GetTrueLen(sStyleFileExt) > 250 Then
		GoError ("其它文件类型不能大于250个字符长度!")
	End If
	If GetTrueLen(sStyleRemoteExt) > 250 Then
		GoError ("远程文件类型不能大于250个字符长度!")
	End If

	If IsNumeric(sStyleImageSize) = False Then
		GoError ("请填写有效的图片限制大小!")
	End If
	If IsNumeric(sStyleFlashSize) = False Then
		GoError ("请填写有效的Flash限制大小!")
	End If
	If IsNumeric(sStyleMediaSize) = False Then
		GoError ("请填写有效的媒体文件限制大小!")
	End If
	If IsNumeric(sStyleFileSize) = False Then
		GoError ("请填写有效的其它文件限制大小!")
	End If
	If IsNumeric(sStyleRemoteSize) = False Then
		GoError ("请填写有效的远程文件限制大小!")
	End If

	If IsNumeric(sSLTMinSize) = False Then
		GoError ("请填写有效的缩略图使用最小长度条件,不能为空,且为数字型!")
	End If
	If IsNumeric(sSLTOkSize) = False Then
		GoError ("请填写有效的缩略图生成长度,不能为空,且为数字型!")
	End If

	If IsNumeric(sSYMinSize) = False Then
		GoError ("请填写有效的水印的最小宽度条件,不能为空,且为数字型!")
	End If
	If sSYText = "" Then
		GoError ("请填写有效水印文字内容,不能为空!")
	End If
	If isValidColor(sSYFontColor) = False Then
		GoError ("请填写有效的水印文字颜色,6位长度,如黑色:000000!")
	End If
	If isValidColor(sSYShadowColor) = False Then
		GoError ("请填写有效的水印文字阴影颜色,6位长度,如白色:FFFFFF!")
	End If
	If IsNumeric(sSYShadowOffset) = False Then
		GoError ("请填写有效的水印文字阴影大小,不能为空,且为数字型!")
	End If
	If IsNumeric(sSYFontSize) = False Then
		GoError ("请填写有效的水印文字大小,不能为空,且为数字型!")
	End If
	If sSYFontName = "" Then
		GoError ("请填写水印文字字体名称,不能为空!")
	End If
End Sub

⌨️ 快捷键说明

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