📄 admin_class.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName & EL_Channel.ClassItemName%>管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong><%=EL_Channel.ChannelName & EL_Channel.ClassItemName%>管理</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：<a href="Admin_Class.asp?ChannelID=<%=EL_Channel.ChannelID%>"><%=EL_Channel.ClassItemName%>管理首页</a> | <a href="Admin_Class.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加<%=EL_Channel.ClassItemName%></a> | <a href="Admin_Class.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Batch"><%=EL_Channel.ClassItemName%>批量设置</a></td>
</tr>
</table>
<br>
<%
Dim CMC_1, CMC_2, CMC_3, CMC_4, CMC_5, CMC_6, CMC_7, CMC_8, CMC_9, CMC_10, CMC_11, CMC_12, CMC_13, CMC_14, CMC_15
Dim CMC_16 , CMC_17, CMC_18, CMC_19, CMC_20, CMC_21, CMC_22, CMC_23
Dim CMC_Item_1, CMC_Item_2, CMC_Item_3, CMC_Item_4, CMC_Item_5, CMC_Item_6, CMC_Item_7, CMC_Item_8, CMC_Item_9, CMC_Item_10
Dim CMC_Item_11, CMC_Item_12, CMC_Item_13, CMC_Item_14, CMC_Item_15, CMC_Item_16, CMC_Item_17, CMC_Item_18, CMC_Item_19
Dim CMC_Item_20, CMC_Item_21, CMC_Item_22, CMC_Item_23, CMC_Item_24, CMC_Item_25, CMC_Item_26, CMC_Item_27, CMC_Item_28
Dim CMC_Item_29, CMC_Item_30, CMC_Item_31, CMC_Item_32, CMC_Item_33, CMC_Item_34, CMC_Item_35, CMC_Item_36, CMC_Item_37
Dim CMC_Item_38, CMC_Item_39
Dim pNum, pNum2
Select Case Action
Case "": Call ManageClass()
Case "Add": Call AddClass()
Case "SaveNew": Call UpdateClass(0)
Case "Modify": Call ModifyClass()
Case "SaveModify": Call UpdateClass(1)
Case "Delete": Call UpdateClass(2)
Case "Clear": Call SetClassAttrib(0)
Case "Move": Call MoveClass()
Case "SaveMove": Call SetClassAttrib(1)
Case "Up": Call SetClassAttrib(2)
Case "Down": Call SetClassAttrib(3)
Case "Batch": Call BatchSetup()
Case "SaveBatch": Call SaveBatchSetup()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub CreateSearchFormJs()
On Error Resume Next
Dim JString, i, TempPriceArea, ClassOptionJs
Dim f0, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10
ClassOptionJs = EL_Common.ShowClassTree(EL_Channel.ChannelID, 0, 0, "")
Select Case EL_Channel.ChannelModule
Case 1: ' 文章
f0 = EL_Common.ReplaceText(EL_Common.Lang("Article.SearchField.f0", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f1 = EL_Common.ReplaceText(EL_Common.Lang("Article.SearchField.f1", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f2 = EL_Common.ReplaceText(EL_Common.Lang("Article.SearchField.f2", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f3 = EL_Common.ReplaceText(EL_Common.Lang("Article.SearchField.f3", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f4 = EL_Common.ReplaceText(EL_Common.Lang("Article.SearchField.f4", ""), "\{\$ItemName\}", EL_Channel.ItemName)
JString = "document.write(""<table border='0' cellpadding='0' cellspacing='0'><form name='Search_"& EL_Channel.ChannelID &"' id='Search_"& EL_Channel.ChannelID &"' action='"& InstallDir & EL_Channel.ChannelDir &"/Search.asp' method='get'>"
JString = JString &"<tr><td>"
JString = JString &"<select name='Field' id='Field'>"
JString = JString &"<option value='Title' selected>"& f0 &"</option>"
JString = JString &"<option value='Content'>"& f1 &"</option>"
JString = JString &"<option value='Author'>"& f2 &"</option>"
JString = JString &"</select> "
JString = JString &"<select name='ClassID' id='ClassID'><option value='0'>"& f3 &"</option>"
JString = JString & ClassOptionJs
JString = JString &"</select> "
JString = JString &"<input type='text' name='Keyword' size='20' value='' maxlength='50' class='search_keyword'> "
JString = JString &"<input type='submit' value=' "& f4 &" ' class='search_btn'>"
JString = JString &"</td></tr></form></table>"");"
Case 3: '度假
f0 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f0", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f1 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f1", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f2 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f2", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f3 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f3", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f4 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f4", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f5 = EL_Common.ReplaceText(EL_Common.Lang("Product.SearchField.f5", ""), "\{\$ItemName\}", EL_Channel.ItemName)
JString = "document.write(""<table border='0' cellpadding='0' cellspacing='1'><form name='Search_"& EL_Channel.ChannelID &"' id='Search_"& EL_Channel.ChannelID &"' action='"& InstallDir & EL_Channel.ChannelDir &"/Search.asp' method='get' style='margin:0px'>"
JString = JString &"<tr><td>"& f0 &"</td><td>"
JString = JString &"<select name='ClassID' id='ClassID'><option value='0'>"& f1 &"</option>"
JString = JString & ClassOptionJs
JString = JString &"</select></td></tr>"
JString = JString &"<tr><td>"& f2 &"</td><td><input name='SightInfo' type='text' id='SightInfo' size='15'></td></tr>"
JString = JString &"<tr><td>"& f3 &"</td><td><input name='Days' type='text' id='Days' size='15'></td></tr>"
JString = JString &"<tr><td>"& f4 &"</td><td><input name='Keyword' type='text' id='Keyword' size='15'></td></tr>"
JString = JString &"<tr><td align='center' colspan=2 height='40'><input type='submit' value=' "& f5 &" ' class='search_btn'></tr>"
JString = JString &"</form></table>"");"
Case 6: '图片
f0 = EL_Common.ReplaceText(EL_Common.Lang("Photo.SearchField.f0", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f1 = EL_Common.ReplaceText(EL_Common.Lang("Photo.SearchField.f1", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f2 = EL_Common.ReplaceText(EL_Common.Lang("Photo.SearchField.f2", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f3 = EL_Common.ReplaceText(EL_Common.Lang("Photo.SearchField.f3", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f4 = EL_Common.ReplaceText(EL_Common.Lang("Photo.SearchField.f4", ""), "\{\$ItemName\}", EL_Channel.ItemName)
JString = "document.write(""<table border='0' cellpadding='0' cellspacing='0'><form name='Search_"& EL_Channel.ChannelID &"' id='Search_"& EL_Channel.ChannelID &"' action='"& InstallDir & EL_Channel.ChannelDir &"/Search.asp' method='get'>"
JString = JString &"<tr><td>"
JString = JString &"<select name='Field' id='Field'>"
JString = JString &"<option value='PhotoName' selected>"& f0 &"</option>"
JString = JString &"<option value='Content'>"& f1 &"</option>"
JString = JString &"<option value='Author'>"& f2 &"</option>"
JString = JString &"</select> "
JString = JString &"<select name='ClassID' id='ClassID'><option value='0'>"& f3 &"</option>"
JString = JString & ClassOptionJs
JString = JString &"</select> "
JString = JString &"<input type='text' name='Keyword' size='20' value='' maxlength='50' class='search_keyword'> "
JString = JString &"<input type='submit' value=' "& f4 &" ' class='search_btn'>"
JString = JString &"</td></tr></form></table>"");"
Case 7: '商城
f0 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f0", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f1 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f1", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f2 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f2", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f3 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f3", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f4 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f4", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f5 = EL_Common.ReplaceText(EL_Common.Lang("Shop.SearchField.f5", ""), "\{\$ItemName\}", EL_Channel.ItemName)
JString = "document.write(""<table border='0' cellpadding='0' cellspacing='0'><form name='Search_"& EL_Channel.ChannelID &"' id='Search_"& EL_Channel.ChannelID &"' action='"& InstallDir & EL_Channel.ChannelDir &"/Search.asp' method='get' style='margin:0px'>"
JString = JString &"<td><select name='ClassID' id='ClassID'><option value='0'>"& f1 &"</option>"
JString = JString & ClassOptionJs
JString = JString &"</select></td>"
JString = JString &"<td> "& f3 &"</td><td><select name='Points' id='Points'>"
JString = JString &"<option value='0'>"& f5 &"</option>"
For i = 20 To 1 Step -1
TempPriceArea = EL_Common.Lang("Shop.SearchField.PointArea.a"& i &".text", "")
If TempPriceArea<>"" Then
JString = JString &"<option value='"& i &"'>"& TempPriceArea &"</option>"
End If
Next
JString = JString &"</select></td>"
JString = JString &"<td> "& f2 &"</td><td><input type='text' name='ProductName' id='ProductName' size='15' value='' maxlength='100'></td>"
JString = JString &"<td align='center'> <input type='submit' value=' "& f4 &" ' class='search_btn'>"
JString = JString &"</td></tr></form></table>"");"
Case 8: '租车
f0 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f0", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f1 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f1", ""), "\{\$ClassItemName\}", EL_Channel.ClassItemName)
f2 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f2", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f3 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f3", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f4 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f4", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f5 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f5", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f6 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f6", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f7 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f7", ""), "\{\$ItemName\}", EL_Channel.ItemName)
f8 = EL_Common.ReplaceText(EL_Common.Lang("Car.SearchField.f8", ""), "\{\$ItemName\}", EL_Channel.ItemName)
JString = "document.write(""<table border='0' cellpadding='0' cellspacing='1'><form name='Search_"& EL_Channel.ChannelID &"' id='Search_"& EL_Channel.ChannelID &"' action='"& InstallDir & EL_Channel.ChannelDir &"/Search.asp' method='get'>"
JString = JString &"<tr><td>"& f0 &"</td><td>"
JString = JString &"<select name='ClassID' id='ClassID'><option value='0'>"& f1 &"</option>"
JString = JString & ClassOptionJs
JString = JString &"</select></td></tr>"
JString = JString &"<tr><td>"& f2 &"</td>"
JString = JString &"<td><input type='text' name='CarName' id='CarName' size='18' value='' maxlength='100'></td></tr>"
JString = JString &"<tr><td>"& f3 &"</td>"
JString = JString &"<td><input type='text' name='Seat' id='Seat' size='10' value='' maxlength='10'></td></tr>"
JString = JString &"<tr><td>"& f4 &"</td>"
JString = JString &"<td><select name='HireType' id='HireType'>"
JString = JString &"<option value='0'>"& EL_Common.Lang("Car.HireTypeName.Type0", "时租")&"</option>"
JString = JString &"<option value='1'>"& EL_Common.Lang("Car.HireTypeName.Type1", "日租")&"</option>"
JString = JString &"<option value='2'>"& EL_Common.Lang("Car.HireTypeName.Type2", "月租")&"</option>"
JString = JString &"</select></td></tr>"
JString = JString &"<tr><td>"& f5 &"</td>"
JString = JString &"<td><select name='Price' id='Price'>"
JString = JString &"<option value='0'>"& f8 &"</option>"
For i = 6 To 1 Step -1
TempPriceArea = EL_Common.Lang("Car.SearchField.PriceArea.a"& i &".text", "")
If TempPriceArea<>"" Then
JString = JString &"<option value='"& i &"'>"& TempPriceArea &"</option>"
End If
Next
JString = JString &"</select></td></tr>"
JString = JString &"<tr><td>"& f6 &"</td>"
JString = JString &"<td><input type='text' name='Keyword' id='Keyword' size='18' value='' maxlength='100'></td></tr>"
JString = JString &"<tr><td colspan='2' align='center' height='50'><input type='submit' value=' "& f7 &" ' class='search_btn'>"
JString = JString &"</td></tr></form></table>"");"
End Select
Call EL_Common.CreateFile(JString, InstallDir & EL_Channel.ChannelDir &"/Js/ShowSearchForm.js", True)
Call EL_Common.CreateFile("document.write("""& ClassOptionJs &""");" , InstallDir & EL_Channel.ChannelDir &"/Js/ClassOption.js", True)
EL_Common.ShowScriptError()
End Sub
Sub CreateClassMenuJs()
On Error Resume Next
Dim RootCmd, rsRoot, RootCount
Dim JString, i, ArrOpenType(1)
Dim FSO, JsFile, ClassNumLine
Call ReadConfig()
ClassNumLine = EL_Common.ELClng(EL_Channel.ClassNumLine)
JString = ""
ArrOpenType(0) = "_self"
ArrOpenType(1) = "_blank"
pNum = 1
pNum2 = 0
Call EL_Common.InitCommonCmd(RootCmd, rsRoot, "EL_Class", "ClassID,ClassName,OpenType,ArrChildID", "ChannelID="& EL_Channel.ChannelID &" AND ShowName="& EL_True &" And ParentID=0 Order By OrderID")
rsRoot.Close()
RootCount = RootCmd(0)
JString = stm_bm() & VBCRLF
JString = JString & stm_bp_h() & VBCRLF
JString = JString & stm_ai() & VBCRLF
JString = JString & stm_aix("p0i1", "p0i0", EL_Channel.ChannelName & "首页", InstallDir & EL_Channel.ChannelDir & "/Index.asp", "_self", "", False) & VBCRLF
JString = JString & stm_aix("p0i2", "p0i0", "|", "", "_self", "", False) & VBCRLF
rsRoot.Open()
For i = 1 To RootCount
JString = JString & stm_aix("p0i" & (i+2) & "", "p0i0", Replace(rsRoot("ClassName"), "'", "\'"), InstallDir & EL_Channel.ChannelDir & "/ShowClass.asp?ClassID=" & rsRoot("ClassID"), ArrOpenType(rsRoot("OpenType")), "", False) & VBCRLF
If rsRoot("ArrChildID") <> "" And Not IsNULL(rsRoot("ArrChildID")) Then
JString = JString & GetChildClass(rsRoot("ClassID"), 0)
End If
JString = JString & stm_aix("p0i2", "p0i0", "|", "", "_self", "", False) & VBCRLF
If (i Mod ClassNumLine) = 0 And RootCount > ClassNumLine Then
JString = JString & "stm_em();" & VBCRLF
JString = JString & stm_bm() & VBCRLF
JString = JString & stm_bp_h() & VBCRLF
JString = JString & stm_ai() & VBCRLF
End If
If i<RootCount Then rsRoot.MoveNext
Next
rsRoot.Close()
Set rsRoot = Nothing
Set RootCmd = Nothing
JString = JString & "stm_em();" & VBCRLF
Set FSO = Server.CreateObject(Object_FSO)
Set JsFile = FSO.CreateTextFile(Server.MapPath(InstallDir & EL_Channel.ChannelDir &"/Js/ShowClassMenu.js"), True)
JsFile.Write JString
JsFile.Close()
Set JsFile = Nothing
Set FSO = Nothing
EL_Common.ShowScriptError()
End Sub
Function GetChildClass(ByVal ParentID, ShowType)
On Error Resume Next
Dim ChildCmd, rsChild, ChildCount
Dim JString, i, ArrOpenType(1), Depth
JString = ""
ArrOpenType(0) = "_self"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -