?? style.aspx
字號:
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按實際關聯(lián)的表單項進行修改）：</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> 當前工具欄：<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 & _
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -