?? admin_style.asp
字號:
Sub DoToolBarAdd()
Dim s_Name, s_Order
s_Name = Trim(Request("d_name"))
s_Order = Trim(Request("d_order"))
If s_Name = "" Or Get_TrueLen(s_Name) > 50 Then
Go_Error "工具欄名不能為空，且長度不能大于50個字符長度！"
End If
If IsNumeric(s_Order) = False Then
Go_Error "無效的工具欄排序號，排序號必須為數字！"
End If
If nStyleIsSys = 1 Then
Go_Error "系統自帶樣式下的工具欄，不允許新增！"
End If
sSql = "select * from ewebeditor_toolbar where 1=0"
oRs.Open sSql, oConn, 1, 3
oRs.AddNew
oRs("s_id") = sStyleID
oRs("t_name") = s_Name
oRs("t_order") = s_Order
oRs("t_button") = ""
oRs.Update
oRs.Close
Response.Write "<script language=javascript>alert(""工具欄（" & outHTML(s_Name) & "）增加操作成功！"");</script>"
End Sub
' 修改工具欄
Sub DoToolBarModi()
Dim s_Name, s_Order
If nStyleIsSys = 1 Then
Go_Error "系統自帶樣式下的工具欄，不允許修改！"
End If
sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID
oRs.Open sSql, oConn, 1, 3
Do While Not oRs.Eof
s_Name = Trim(Request("d_name" & oRs("t_id")))
s_Order = Trim(Request("d_order" & oRs("t_id")))
If s_Name <> "" And IsNumeric(s_Order) = True Then
If s_Name <> oRs("t_name") Or s_Order <> CStr(oRs("t_Order")) Then
oRs("t_name") = s_Name
oRs("t_order") = s_Order
oRs.Update
End If
End If
oRs.MoveNext
Loop
oRs.Close
Response.Write "<script language=javascript>alert('工具欄修改操作成功！');</script>"
End Sub
' 刪除工具欄
Sub DoToolBarDel()
Dim s_DelID
s_DelID = Trim(Request("delid"))
If nStyleIsSys = 1 Then
Go_Error "系統自帶樣式下的工具欄，不允許刪除！"
End If
If IsNumeric(s_DelID) = True Then
sSql = "delete from ewebeditor_toolbar where s_id=" & sStyleID & " and t_id=" & s_DelID
oConn.Execute sSql
Response.Write "<script language=javascript>alert('工具欄（ID：" & s_DelID & "）刪除操作成功！');</script>"
End If
End Sub
' 初始化工具欄
Sub InitToolBar()
Dim b
b = False
sToolBarID = Trim(Request("toolbarid"))
If IsNumeric(sToolBarID) = True Then
sSql = "select * from ewebeditor_toolbar where s_id=" & sStyleID & " and t_id=" & sToolBarID
oRs.Open sSql, oConn, 0, 1
If Not oRs.Eof Then
sToolBarName = oRs("T_Name")
sToolBarOrder = oRs("T_Order")
sToolBarButton = oRs("T_Button")
b = True
End If
oRs.Close
End If
If b = False Then
Go_Error "無效的工具欄ID號，請通過頁面上的鏈接進行操作！"
End If
End Sub
' 按鈕設置
Sub ShowButtonList()
Dim i, n
' 導航
Response.Write "<table border=0 cellpadding=5 cellspacing=0 height=30 width='100%'><tr>" & _
"<td><b>當前樣式：<span class=highlight2>" & outHTML(sStyleName) & "</span> 當前工具欄：<span class=highlight2>" & outHTML(sToolBarName) & "</span></b></td>" & _
"<td align=right><a href='?action=toolbar&id=" & sStyleID & "'>返回工具欄管理</a> | <a href='?'>返回樣式管理</a></td>" & _
"</tr></table>"
' 取所有按鈕
Dim aButtonCode(), aButtonTitle(), aButtonImage()
sSql = "select * from ewebeditor_button where b_allowselect=1 order by b_order asc"
oRs.Open sSql, oConn, 0, 1
i = 0
Do While Not oRs.Eof
i = i + 1
Redim Preserve aButtonCode(i)
Redim Preserve aButtonTitle(i)
Redim Preserve aButtonImage(i)
aButtonCode(i) = oRs("B_Code")
aButtonTitle(i) = oRs("B_Title")
aButtonImage(i) = oRs("B_Image")
oRs.MoveNext
Loop
oRs.Close
' 取可選列表
Dim s_Option1
s_Option1 = ""
For i = 1 To UBound(aButtonCode)
s_Option1 = s_Option1 & "<option value='" & aButtonCode(i) & "'>" & aButtonTitle(i) & "</option>"
Next
' 取已選列表
Dim aButton, s_Option2, s_Temp
aButton = Split(sToolBarButton, "|")
s_Option2 = ""
For i = 0 To UBound(aButton)
s_Temp = Code2Title(aButton(i), aButtonCode, aButtonTitle)
If s_Temp <> "" Then
s_Option2 = s_Option2 & "<option value='" & aButton(i) & "'>" & s_Temp & "</option>"
End If
Next
'以下為客戶端操作選擇腳本
'''''''''''''''''''''''''''''''''''
%>
<script language=javascript>
// 加入已選
function Add() {
var sel1=document.myform.d_b1;
var sel2=document.myform.d_b2;
if (sel1.selectedIndex<0) {
alert("請選擇一個待選按鈕！");
return;
}
sel2.options[sel2.length]=new Option(sel1.options[sel1.selectedIndex].innerHTML,sel1.options[sel1.selectedIndex].value);
}
// 從已選中刪除
function Del() {
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if (nLen<1) return;
if (nIndex<0) {
alert("請選擇一個已選按鈕！");
return;
}
for (var i=nIndex;i<nLen-1;i++) {
sel.options[i].value=sel.options[i+1].value;
sel.options[i].innerHTML=sel.options[i+1].innerHTML;
}
sel.length=nLen-1;
}
// 排序：向上移動
function Up() {
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if ((nLen<1)||(nIndex==0)) return;
if (nIndex<0) {
alert("請選擇一個要移動的已選按鈕！");
return;
}
var sValue=sel.options[nIndex].value;
var sHTML=sel.options[nIndex].innerHTML;
sel.options[nIndex].value=sel.options[nIndex-1].value;
sel.options[nIndex].innerHTML=sel.options[nIndex-1].innerHTML;
sel.options[nIndex-1].value=sValue;
sel.options[nIndex-1].innerHTML=sHTML;
sel.selectedIndex=nIndex-1;
}
// 排序：向下移動
function Down() {
var sel=document.myform.d_b2;
var nIndex = sel.selectedIndex;
var nLen = sel.length;
if ((nLen<1)||(nIndex==nLen-1)) return;
if (nIndex<0) {
alert("請選擇一個要移動的已選按鈕！");
return;
}
var sValue=sel.options[nIndex].value;
var sHTML=sel.options[nIndex].innerHTML;
sel.options[nIndex].value=sel.options[nIndex+1].value;
sel.options[nIndex].innerHTML=sel.options[nIndex+1].innerHTML;
sel.options[nIndex+1].value=sValue;
sel.options[nIndex+1].innerHTML=sHTML;
sel.selectedIndex=nIndex+1;
}
// 提交處理
function checkform() {
var sel=document.myform.d_b2;
var nLen = sel.length;
var str="";
for (var i=0;i<nLen;i++) {
if (i>0) str+="|";
str+=sel.options[i].value;
}
document.myform.d_button.value=str;
return true;
}
</script>
<%
'''''''''''''''''''''''''''''''''''
' 選擇設置表單
Dim s_SubmitButton
If nStyleIsSys = 1 Then
s_SubmitButton = ""
Else
s_SubmitButton = "<input type=submit name=b value=' 保存設置 '>"
End If
Response.Write "<table border=0 cellpadding=5 cellspacing=0 align=center>" & _
"<form action='?action=buttonsave&id=" & sStyleID & "&toolbarid=" & sToolBarID & "' method=post name=myform onsubmit='return checkform()'>" & _
"<tr align=center><td>可選按鈕</td><td></td><td>已選按鈕</td><td></td></tr>" & _
"<tr align=center>" & _
"<td><select name='d_b1' size=20 style='width:200px' ondblclick='Add()'>" & s_Option1 & "</select></td>" & _
"<td><input type=button name=b1 value=' → ' onclick='Add()'><br><br><input type=button name=b1 value=' ← ' onclick='Del()'></td>" & _
"<td><select name='d_b2' size=20 style='width:200px' ondblclick='Del()'>" & s_Option2 & "</select></td>" & _
"<td><input type=button name=b3 value='↑' onclick='Up()'><br><br><br><input type=button name=b4 value='↓' onclick='Down()'></td>" & _
"</tr>" & _
"<input type=hidden name='d_button' value=''>" & _
"<tr><td colspan=4 align=right>" & s_SubmitButton & "</td></tr>" & _
"</form></table>"
' 顯示圖片對照表
Response.Write "<p class=highlight1><b>以下是按鈕圖片對照表（部分下拉框或特殊按鈕可能沒圖）：</b></p>"
Response.Write "<table border=1 cellpadding=3 cellspacing=0 width='100%'>"
n = 0
For i = 1 To UBound(aButtonCode)
n = i Mod 4
If n = 1 Then
Response.Write "<tr>"
End If
Response.Write "<td>"
If aButtonImage(i) <> "" Then
Response.Write "<img border=0 align=absmiddle src='ButtonImage/standard/" & aButtonImage(i) & "'>"
End If
Response.Write aButtonTitle(i)
Response.Write "</td>"
If n = 0 Then
Response.Write "</tr>"
End If
Next
If n > 0 Then
For i = 1 To 4 - n
Response.Write "<td> </td>"
Next
Response.Write "</tr>"
End if
Response.Write "</table><br><br>"
End Sub
' 由按鈕代碼得到按鈕標題
Function Code2Title(s_Code, a_ButtonCode, a_ButtonTitle)
Dim i
Code2Title = ""
For i = 1 To UBound(a_ButtonCode)
If UCase(a_ButtonCode(i)) = UCase(s_Code) Then
Code2Title = a_ButtonTitle(i)
Exit Function
End If
Next
End Function
' 按鈕設置保存
Sub DoButtonSave()
Dim s_Button
s_Button = Trim(Request("d_button"))
If nStyleIsSys = 1 Then
Go_Error "系統自帶樣式，不允許對按鈕進行修改！"
End If
sSql = "select * from ewebeditor_toolbar where t_id=" & sToolBarID
oRs.Open sSql, oConn, 1, 3
If Not oRs.Eof Then
oRs("T_Button") = s_Button
oRs.Update
End If
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><li><a href='?action=buttonset&id=" & sStyleID & "&toolbarid=" & sToolBarID & "'>重新設置此工具欄下的按鈕</a></ul></td></tr>" & _
"</table><br><br>"
End Sub
Sub RemoveApplication()
Dim aApplicationName, i
aApplicationName = Application("eWebEditor_ApplicationName")
If IsArray(aApplicationName) = True Then
For i = 1 To UBound(aApplicationName)
Application.Contents.Remove(aApplicationName(i))
Next
Application.Contents.Remove("eWebEditor_ApplicationName")
Application.Contents.Remove("eWebEditor_ApplicationUrl")
End If
End Sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -