📄 editor_label.asp
字号:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!-- #include File="../conn.asp" -->
<%
Dim Action, Title, ModuleType, ChannelShortName, ChannelShowType, imageproperty, rs
Dim editLabel, Labletemp
Dim ClassID, NClassID, IncludeChild, SpecialID, Num, ProductType, IsHot, IsElite, AuthorName, DateNum
Dim OrderType, ShowType, TitleLen, ContentLen, ShowClassName, ShowPropertyType, ShowIncludePic, ShowAuthor
Dim ShowDateType, ShowHits, ShowHotSign, ShowNewSign, ShowTips, ShowCommentLink, UsePage, OpenType, Cols
Dim ImgWidth, ImgHeight, iTimeOut, urltype, CssNameA, CssName1, CssName2, effectID, IntervalLines
'商城
Dim ShowTableTitle, TableTitleStr, ShowProductModel, ShowProductStandard, ShowUnit, ShowStocksType, ShowPriceType
Dim ShowWeight, ShowPrice_Market, ShowPrice_Original, ShowPrice, ShowPrice_Member, ShowDiscount, ShowButtonType, ButtonStyle
Dim CssNameTable, CssNameTitle
'人才招聘
Dim PositionNum, IsUrgent, WorkPlaceNameLen, SubCompanyNameLen, PShowPoints, WShowPoints, SShowPoints, ShowPositionID, ShowPositionName, ShowWorkPlaceName, ShowSubCompanyName, ShowPositionNum, ShowPositionStatus, ShowValidDate, ShowUrgentSign, ShowNum
'是模板还是右键
Dim InsertTemplate
Dim ChannelID, iChannelID, dChannelID
ChannelID = Trim(request("ChannelID"))
dChannelID = Trim(request("dChannelID"))
NClassID = False
If dChannelID = "" Then
dChannelID = ChannelID
End If
If ChannelID = "" And iChannelID = "" Then
Response.Write "频道参数丢失！"
Response.End
End If
If ChannelID = "ChannelID" Then
iChannelID = Trim(dChannelID)
Else
ChannelID = PE_CLng(ChannelID)
iChannelID = ChannelID
End If
Action = Trim(request.querystring("Action"))
Title = Trim(request.querystring("Title"))
ModuleType = PE_CLng(Trim(request.querystring("ModuleType")))
ChannelShowType = Trim(request.querystring("ChannelShowType"))
InsertTemplate = PE_CLng(Trim(request.querystring("InsertTemplate")))
If SpecialID = "" Then SpecialID = 0
If Trim(request.querystring("editLabel")) <> "" Then
editLabel = True
End If
Call Execute
Call strJS
Sub Execute()
If Action = "" Then
Action = Trim(request.Form("Action"))
Title = Trim(request.Form("Title"))
ModuleType = PE_CLng(Trim(request.Form("ModuleType")))
If Trim(request.Form("ChannelID")) = "ChannelID" Then
ChannelID = Trim(request.Form("ChannelID"))
Else
ChannelID = PE_CLng(Trim(request.Form("ChannelID")))
End If
ChannelShowType = Trim(request.Form("ChannelShowType"))
InsertTemplate = PE_CLng(Trim(request.Form("InsertTemplate")))
If Trim(request.Form("SpecialID")) = "SpecialID" Then
SpecialID = Trim(request.Form("SpecialID"))
Else
SpecialID = PE_CLng(Trim(request.Form("SpecialID")))
End If
If editLabel = "" Then
editLabel = Trim(request.Form("editLabel"))
End If
End If
If Trim(request.querystring("editLabel")) = "" Then
If ModuleType = 1 Then
ChannelShortName = "文章"
imageproperty = "article"
ElseIf ModuleType = 2 Then
ChannelShortName = "软件"
imageproperty = "Soft"
ElseIf ModuleType = 3 Then
ChannelShortName = "图片"
imageproperty = "Photo"
ElseIf ModuleType = 5 Then
iChannelID = 1000
ChannelShortName = "商品"
imageproperty = "Product"
ElseIf ModuleType = 8 Then
ChannelShortName = "职位"
imageproperty = "Job"
End If
Else
Call Modifylabel
If ChannelID = "ChannelID" Then
iChannelID = PE_CLng(Trim(dChannelID))
Else
ChannelID = PE_CLng(ChannelID)
iChannelID = ChannelID
End If
End If
Response.Write "<html><head><title>" & Title & "</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='" & InstallDir & AdminDir & "/Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "<base target='_self'>"
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin=0 topmargin=0>" & vbCrLf
Response.Write "<form action='editor_label.asp' method='post' name='myform' id='myform'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' colspan='2' align='center'><strong>" & Title & "</strong></td>"
Response.Write " </tr>"
If ModuleType <> 8 Then
If ModuleType <> 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>所属频道：</strong></td>" & vbCrLf
Response.Write " <td height='25'><input type='hidden' name='iChannelID' value='" & ChannelID & "'><select name='ChannelID' onChange='document.myform.submit();'>" & GetChannel_Option(ModuleType, ChannelID) & "</select></td>"
Response.Write " </tr>"
End If
If PE_CLng(iChannelID) > 0 Or ModuleType = 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>所属栏目：</strong></td>" & vbCrLf
Response.Write " <td height='25'><select name='ClassID' "
If NClassID = True Then
Response.Write "size='2' multiple style='height:250px;width:400px;'"
Else
Response.Write "size='1'"
End If
Response.Write ">" & GetClass_Channel(iChannelID, Trim(ClassID), NClassID) & "</select>"
Response.Write " <input type='checkbox' name='IncludeChild' value='1' "
If LCase(Trim(IncludeChild)) = "true" Then
Response.Write " checked "
End If
Response.Write " >包含子栏目 <font color='red'><b>注意：</b></font>不能指定为外部栏目 </font>"
Response.Write " <br><input type='checkbox' name='NClassChild' value='1' onClick=""javascript:NClassIDChild()"" "
If NClassID = True Then
Response.Write " checked "
End If
Response.Write " >是否选择多个栏目 <font color='red'><b>注意：</b></font>多选红色的栏目不能选 </font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>所属专题：</strong></td>"
Response.Write " <td height='25' ><select name='SpecialID' id='SpecialID'>" & GetSpecial_Option(iChannelID, SpecialID) & "</select></td>"
Response.Write " </tr>"
Else
Response.Write "<INPUT TYPE='hidden' name='ClassID' value='0' >"
Response.Write "<INPUT TYPE='hidden' name='NClassChild' value='0' >"
Response.Write "<INPUT TYPE='hidden' name='IncludeChild' value='true' >"
Response.Write "<INPUT TYPE='hidden' name='SpecialID' value='0' >"
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>标签说明：</strong></td>" & vbCrLf
Response.Write " <td height='25'><INPUT TYPE='text' NAME='lableExplain' value='' id='id' size='15' maxlength='20'> <FONT style='font-size:12px' color='blue'>请在这里填写标签的使用说明方便以后的查找</FONT> </td>"
Response.Write " </tr>"
End If
Select Case ChannelShowType
Case "GetList"
Call GetList
Case "GetPic"
Call GetPic
Case "GetSlide"
Call GetSlide
Case "GetPositionList"
Call GetPositionList
Case "GetSearchResult"
Call GetSearchResult
Case Else
Response.Write "错误的参数命令！"
Response.End
End Select
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='40' colspan='2' align='center'>"
Response.Write " <input name='Title' type='hidden' id='Title' value='" & Title & "'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='" & Action & "'>"
Response.Write " <input name='editLabel' type='hidden' id='editLabel' value='" & editLabel & "'>"
Response.Write " <input name='dChannelID' type='hidden' id='dChannelID' value='" & dChannelID & "'>"
Response.Write " <input name='ModuleType' type='hidden' id='ModuleType' value='" & ModuleType & "'>"
Response.Write " <input name='InsertTemplate' type='hidden' id='InsertTemplate' value='" & InsertTemplate & "'>"
Response.Write " <input name='ChannelShowType' type='hidden' id='ChannelShowType' value='" & ChannelShowType & "'>"
Response.Write " <input name='MakeJS' type='button' id='MakeJS' onclick=""makejs('" & Action & "','" & ChannelShowType & "');"" value=' 确 定 '>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub GetList()
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>显示样式：</strong></td>"
Response.Write " <td height='25'>"
Response.Write " <select name='ShowType' id='ShowType'>"
Response.Write " <option value='1' "
If Trim(ShowType) = "1" Then Response.Write "selected"
Response.Write ">普通列表</option>"
Response.Write " <option value='2' "
If Trim(ShowType) = "2" Then Response.Write "selected"
Response.Write ">表格式</option>"
Response.Write " <option value='3' "
If Trim(ShowType) = "3" Then Response.Write "selected"
Response.Write ">各项独立式</option>"
If ModuleType = 1 Then
Response.Write " <option value='4' "
If Trim(ShowType) = "4" Then Response.Write "selected"
Response.Write ">智能多列式</option>"
Response.Write " <option value='5' "
If Trim(ShowType) = "5" Then Response.Write "selected"
Response.Write ">输出DIV格式</option>"
Response.Write " <option value='6' "
If Trim(ShowType) = "6" Then Response.Write "selected"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -