?? admin_style.asp
字號:
sStyleHeight = Trim(Request("d_height"))
sStyleMemo = 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")
sStyleUploadObject = Request("d_uploadobject")
sStyleAutoDir = Request("d_autodir")
sStyleDetectFromWord = Request("d_detectfromword")
sStyleInitMode = Request("d_initmode")
sStyleBaseUrl = Request("d_baseurl")
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 Get_TrueLen(sStyleName) > 50 Then
Go_Error "樣式名不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleName) = False Then
Go_Error "樣式名請勿包含特殊字符！"
End If
If sStyleDir = "" Or Get_TrueLen(sStyleDir) > 50 Then
Go_Error "按鈕圖片目錄名不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleDir) = False Then
Go_Error "按鈕圖片目錄名請勿包含特殊字符！"
End If
If sStyleCSS = "" Or Get_TrueLen(sStyleCSS) > 50 Then
Go_Error "樣式CSS目錄名不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleCSS) = False Then
Go_Error "樣式CSS目錄名請勿包含特殊字符！"
End If
If sStyleUploadDir = "" Or Get_TrueLen(sStyleUploadDir) > 50 Then
Go_Error "上傳路徑不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleUploadDir) = False Then
Go_Error "上傳路徑請勿包含特殊字符！"
End If
Select Case sStyleBaseUrl
Case "0"
If sStyleBaseHref = "" Or Get_TrueLen(sStyleBaseHref) > 50 Then
Go_Error "當使用相對路徑模式時，顯示路徑不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleBaseHref) = False Then
Go_Error "當使用相對路徑模式時，顯示路徑請勿包含特殊字符！"
End If
If Left(sStyleBaseHref, 1) <> "/" Then
Go_Error "當使用相對路徑模式時，顯示路徑必須以"/"開頭！"
End If
If sStyleContentPath = "" Or Get_TrueLen(sStyleContentPath) > 50 Then
Go_Error "當使用相對路徑模式時，內容路徑不能為空，且不大于50個字符長度！"
End If
If IsSafeStr(sStyleContentPath) = False Then
Go_Error "當使用相對路徑模式時，內容路徑請勿包含特殊字符！"
End If
If Left(sStyleContentPath, 1) = "/" Then
Go_Error "當使用相對路徑模式時，內容路徑不能以"/"開頭！"
End If
Case "1", "2"
sStyleBaseHref = ""
sStyleContentPath = ""
End Select
If IsNumeric(sStyleWidth) = False Then
Go_Error "請填寫有效的最佳引用寬度！"
End If
If IsNumeric(sStyleHeight) = False Then
Go_Error "請填寫有效的最佳引用高度！"
End If
If Get_TrueLen(sStyleImageExt) > 250 Then
Go_Error "圖片文件類型不能大于250個字符長度！"
End If
If Get_TrueLen(sStyleFlashExt) > 250 Then
Go_Error "Flash文件類型不能大于250個字符長度！"
End If
If Get_TrueLen(sStyleMediaExt) > 250 Then
Go_Error "媒體文件類型不能大于250個字符長度！"
End If
If Get_TrueLen(sStyleFileExt) > 250 Then
Go_Error "其它文件類型不能大于250個字符長度！"
End If
If Get_TrueLen(sStyleRemoteExt) > 250 Then
Go_Error "遠程文件類型不能大于250個字符長度！"
End If
If IsNumeric(sStyleImageSize) = False Then
Go_Error "請填寫有效的圖片限制大小！"
End If
If IsNumeric(sStyleFlashSize) = False Then
Go_Error "請填寫有效的Flash限制大小！"
End If
If IsNumeric(sStyleMediaSize) = False Then
Go_Error "請填寫有效的媒體文件限制大小！"
End If
If IsNumeric(sStyleFileSize) = False Then
Go_Error "請填寫有效的其它文件限制大小！"
End If
If IsNumeric(sStyleRemoteSize) = False Then
Go_Error "請填寫有效的遠程文件限制大小！"
End If
End Sub
' 樣式新增保存
Sub DoStyleAddSave()
sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "'"
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
Go_Error "此樣式名已經存在，請用另一個樣式名！"
End If
oRs.Close
sSql = "select * from ewebeditor_style where s_id=0"
oRs.Open sSql, oConn, 1, 3
oRs.AddNew
oRs("S_Name") = sStyleName
oRs("S_Dir") = sStyleDir
oRs("S_CSS") = sStyleCSS
oRs("S_UploadDir") = sStyleUploadDir
oRs("S_BaseHref") = sStyleBaseHref
oRs("S_ContentPath") = sStyleContentPath
oRs("S_Width") = sStyleWidth
oRs("S_Height") = sStyleHeight
oRs("S_Memo") = sStyleMemo
oRs("S_ImageExt") = sStyleImageExt
oRs("S_FlashExt") = sStyleFlashExt
oRs("S_MediaExt") = sStyleMediaExt
oRs("S_FileExt") = sStyleFileExt
oRs("S_RemoteExt") = sStyleRemoteExt
oRs("S_ImageSize") = sStyleImageSize
oRs("S_FlashSize") = sStyleFlashSize
oRs("S_MediaSize") = sStyleMediaSize
oRs("S_FileSize") = sStyleFileSize
oRs("S_RemoteSize") = sStyleRemoteSize
oRs("S_StateFlag") = sStyleStateFlag
oRs("S_AutoRemote") = sStyleAutoRemote
oRs("S_ShowBorder") = sStyleShowBorder
oRs("S_UploadObject") = sStyleUploadObject
oRs("S_AutoDir") = sStyleAutoDir
oRs("S_DetectFromWord") = sStyleDetectFromWord
oRs("S_InitMode") = sStyleInitMode
oRs("S_BaseUrl") = sStyleBaseUrl
oRs.Update
sStyleID = oRs("S_ID")
oRs.Close
Response.Write "<br><table border=0 cellspacing=20 align=center>" & _
"<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>樣式增加成功！</span></b><br><br><ul>我現在<br><br><li><a href='admin_default.asp'>返回后臺管理首頁</a><li><a href='?'>返回樣式管理</a><li><a href='?action=toolbar&id=" & sStyleID & "'>設置此樣式下的工具欄</a></ul></td></tr>" & _
"</table><br><br>"
End Sub
' 樣式修改保存
Sub DoStyleSetSave()
sStyleID = Trim(Request("id"))
If IsNumeric(sStyleID) = True Then
' 是否存在同名
sSql = "select * from ewebeditor_style where s_name='" & sStyleName & "' and s_id<>" & sStyleID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
Go_Error "此樣式名已經存在，請用另一個樣式名！"
End If
oRs.Close
sSql = "select * from ewebeditor_style where s_id=" & sStyleID
oRs.Open sSql, oConn, 1, 3
If Not oRs.Eof Then
If oRs("S_IsSys") = 1 Then
Go_Error "系統樣式，不允許修改！"
End If
Else
Go_Error "無效的樣式ID號，請通過頁面上的鏈接進行操作！"
End If
oRs("S_Name") = sStyleName
oRs("S_Dir") = sStyleDir
oRs("S_CSS") = sStyleCSS
oRs("S_UploadDir") = sStyleUploadDir
oRs("S_BaseHref") = sStyleBaseHref
oRs("S_ContentPath") = sStyleContentPath
oRs("S_Width") = sStyleWidth
oRs("S_Height") = sStyleHeight
oRs("S_Memo") = sStyleMemo
oRs("S_ImageExt") = sStyleImageExt
oRs("S_FlashExt") = sStyleFlashExt
oRs("S_MediaExt") = sStyleMediaExt
oRs("S_FileExt") = sStyleFileExt
oRs("S_RemoteExt") = sStyleRemoteExt
oRs("S_ImageSize") = sStyleImageSize
oRs("S_FlashSize") = sStyleFlashSize
oRs("S_MediaSize") = sStyleMediaSize
oRs("S_RemoteSize") = sStyleRemoteSize
oRs("S_FileSize") = sStyleFileSize
oRs("S_StateFlag") = sStyleStateFlag
oRs("S_AutoRemote") = sStyleAutoRemote
oRs("S_ShowBorder") = sStyleShowBorder
oRs("S_UploadObject") = sStyleUploadObject
oRs("S_AutoDir") = sStyleAutoDir
oRs("S_DetectFromWord") = sStyleDetectFromWord
oRs("S_InitMode") = sStyleInitMode
oRs("S_BaseUrl") = sStyleBaseUrl
oRs.Update
oRs.Close
Else
Go_Error "無效的樣式ID號，請通過頁面上的鏈接進行操作！"
End If
Response.Write "<br><table border=0 cellspacing=20 align=center>" & _
"<tr valign=top><td><img src='admin/do_ok.gif' border=0></td><td><b><span class=highlight2>樣式修改成功！</span></b><br><br><ul>我現在<br><br><li><a href='admin_default.asp'>返回后臺管理首頁</a><li><a href='?'>返回樣式管理</a><li><a href='?action=toolbar&id=" & sStyleID & "'>設置此樣式下的工具欄</a></ul></td></tr>" & _
"</table><br><br>"
End Sub
' 樣式刪除
Sub DoStyleDel()
If nStyleIsSys = 0 Then
sSql = "delete from ewebeditor_style where s_id=" & sStyleID
oConn.Execute sSql
sSql = "delete from ewebeditor_toolbar where s_id=" & sStyleID
oConn.Execute sSql
End If
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.asp?id=content1&style=" & sStyleName & "' frameborder=0 scrolling=no width='" & sStyleWidth & "' HEIGHT='" & sStyleHeight & "'></iframe>" & _
"</body></html>"
End Sub
' 顯示引用代碼
Sub ShowStyleCode()
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 width='90%' border=0 align='center' cellpadding=5 cellspacing=0 height=20 width='100%'><tr><td><p class=highlight2>樣式（<b>" & outHTML(sStyleName) & "</b>）的最佳調用代碼如下（其中XXX按實際關聯的表單項進行修改）：</p>"
Response.Write "<textarea rows=5 cols=65 style='width:100%'><IFRAME ID=""eWebEditor1"" SRC=""ewebeditor.asp?id=XXX&style=" & sStyleName & """ FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""" & sStyleWidth & """ HEIGHT=""" & sStyleHeight & """></IFRAME></textarea><br><br></td></tr></table>"
End Sub
' 顯示工具欄表單列表
Sub ShowToolBarList()
Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=20 width='100%'><tr>" & _
"<td class=highlight2><b>樣式（" & outHTML(sStyleName) & "）下的工具欄管理：</b></td>" & _
"<td align=right><a href='?'>返回樣式管理</a></td></tr></table>"
Dim s_AddForm, s_ModiForm
' 增加表單
If nStyleIsSys = 1 Then
s_AddForm = ""
Else
' 取當前最大排序號
Dim nMaxOrder
sSql = "select max(T_order) from ewebeditor_toolbar where s_id=" & sStyleID
oRs.Open sSql, oConn, 0, 1
If IsNull(oRs(0)) Then
nMaxOrder = 1
Else
nMaxOrder = oRs(0) + 1
End If
oRs.Close
s_AddForm = "<hr width='95%' 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='95%' 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=0 align=center class=list1>" & _
"<tr align=center><th>ID</th><th>工具欄名</th><th>排序號</th><th>操作</th></tr>"
sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID & " order by t_order asc"
oRs.Open sSql, oConn, 0, 1
Do While Not oRs.Eof
s_Manage = "<a href='?id=" & sStyleID & "&action=buttonset&toolbarid=" & oRs("t_id") & "'>按鈕設置</a>"
If nStyleIsSys <> 1 Then
s_Manage = s_Manage & "|<a href='?id=" & sStyleID & "&action=toolbardel&delid=" & oRs("t_id") & "'>刪除</a>"
End If
s_ModiForm = s_ModiForm & "<tr align=center>" & _
"<td>" & oRs("t_id") & "</td>" & _
"<td><input type=text name='d_name" & oRs("t_id") & "' value=""" & inHTML(oRs("t_name")) & """ size=30 class=input></td>" & _
"<td><input type=text name='d_order" & oRs("t_id") & "' value='" & oRs("t_order") & "' size=5 class=input></td>" & _
"<td>" & s_Manage & "</td>" & _
"</tr>"
oRs.MoveNext
Loop
oRs.Close
If nStyleIsSys = 1 Then
s_SubmitButton = ""
Else
s_SubmitButton = "<p align=center><input type=submit name=b1 value=' 修改 '></p>"
End If
s_ModiForm = s_ModiForm & "</table>" & s_SubmitButton & "</form><br><br>"
' 輸出表單
Response.Write s_AddForm & s_ModiForm
End Sub
' 新增工具欄
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -