📄 editor_customlistlabel.asp

📁 江西旅行网整站源码下载希望对大家有用经过测试安全可用
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%@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
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
Dim TemplateID, Template
Dim ChannelID, iChannelID, dChannelID

ChannelID = Trim(request("ChannelID"))
dChannelID = Trim(request("dChannelID"))

TemplateID = PE_CLng(request("TemplateID"))

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("Action"))
Title = Trim(request("Title"))
ModuleType = PE_CLng(Trim(request("ModuleType")))
ChannelShowType = Trim(request("ChannelShowType"))
   
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"
End If

If SpecialID = "" Then SpecialID = 0
If Trim(request.querystring("editLabel")) <> "" Then
    editLabel = True
End If

Response.write "<html>" & vbCrLf
Response.write "<head>" & vbCrLf
Response.write "<title>" & Title & "</title>" & vbCrLf
Response.write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.write "<script language=""javascript"">" & vbCrLf
Response.write "function NClassIDChild(){" & vbCrLf
Response.write "    if (document.myform.NClassChild.checked==true){" & vbCrLf
Response.write "        document.myform.ClassID.size=2;" & vbCrLf
Response.write "        document.myform.ClassID.style.height=250;" & vbCrLf
Response.write "        document.myform.ClassID.style.width=400;" & vbCrLf
Response.write "        document.myform.ClassID.multiple=true" & vbCrLf
Response.write "        for(var i=0;i<document.myform.ClassID.length;i++){" & vbCrLf
Response.write "            if (document.myform.ClassID.options[i].value==""rsClass_arrChildID""||document.myform.ClassID.options[i].value==""ClassID""||document.myform.ClassID.options[i].value==""arrChildID""||document.myform.ClassID.options[i].value==""0""){" & vbCrLf
Response.write "                document.myform.ClassID.options[i].style.background=""red"";" & vbCrLf
Response.write "            }" & vbCrLf
Response.write "        }" & vbCrLf
Response.write "    }else{" & vbCrLf
Response.write "        document.myform.ClassID.size=1;" & vbCrLf
Response.write "        document.myform.ClassID.style.width=200;" & vbCrLf
Response.write "        document.myform.ClassID.multiple=false;" & vbCrLf
Response.write "        for(var i=0;i<document.myform.ClassID.length;i++){" & vbCrLf
Response.write "            if (document.myform.ClassID.options[i].value==""rsClass_arrChildID""||document.myform.ClassID.options[i].value==""ClassID""||document.myform.ClassID.options[i].value==""arrChildID""||document.myform.ClassID.options[i].value==""0""){" & vbCrLf
Response.write "                document.myform.ClassID.options[i].style.background="""";" & vbCrLf
Response.write "            }" & vbCrLf
Response.write "        }" & vbCrLf
Response.write "    }" & vbCrLf
Response.write "}" & vbCrLf
Response.write "function objectTag() {" & vbCrLf
Response.write "    var strJS,OrderType;" & vbCrLf
Response.write "    if (document.myform.ClassID.value==''){" & vbCrLf
Response.write "        alert('所属栏目不能指定为外部栏目！');" & vbCrLf
Response.write "        document.myform.ClassID.focus();" & vbCrLf
Response.write "        return false;" & vbCrLf
Response.write "    }" & vbCrLf
Response.write "    var UsePage,ShowAll;" & vbCrLf
Response.write "    for (var i=0;i<document.myform.UsePage.length;i++){" & vbCrLf
Response.write "    var PowerEasy = document.myform.UsePage[i];" & vbCrLf
Response.write "    if (PowerEasy.checked==true)       " & vbCrLf
Response.write "        UsePage = PowerEasy.value" & vbCrLf
Response.write "    }" & vbCrLf
'If ModuleType = 2 Then
'    Response.write "    for (var i=0;i<document.myform.ShowAll.length;i++){" & vbCrLf
'    Response.write "    var PowerEasy = document.myform.ShowAll[i];" & vbCrLf
'    Response.write "    if (PowerEasy.checked==true)       " & vbCrLf
'    Response.write "        ShowAll = PowerEasy.value" & vbCrLf
'    Response.write "    }" & vbCrLf
'End If
Response.write "    strJS=""【" & imageproperty & "List("";" & vbCrLf
If ModuleType = 1 Or ModuleType = 2 Or ModuleType = 3 Then
    Response.write "strJS+=document.myform.iChannelID.value+ "","";" & vbCrLf
'ElseIf ModuleType = 2 Then
'    Response.write "strJS+=document.myform.ItemNum.value+ "","";" & vbCrLf
End If
Response.write "    if (document.myform.NClassChild.checked==true){" & vbCrLf
Response.write "        var Nclassidzhi=""""" & vbCrLf
Response.write "        for(var i=0;i<document.myform.ClassID.length;i++){" & vbCrLf
Response.write "            if (document.myform.ClassID.options[i].selected==true){" & vbCrLf
Response.write "                if (document.myform.ClassID.options[i].value==""rsClass_arrChildID""||document.myform.ClassID.options[i].value==""ClassID""||document.myform.ClassID.options[i].value==""arrChildID""||document.myform.ClassID.options[i].value==""0""){" & vbCrLf
Response.write "                    alert(""您在多选中选择了红色部分，多选栏目中是不能包含那部分的。"");" & vbCrLf
Response.write "                    return false" & vbCrLf
Response.write "                }else{" & vbCrLf
Response.write "                    if (Nclassidzhi==""""){" & vbCrLf
Response.write "                        Nclassidzhi+=document.myform.ClassID.options[i].value;" & vbCrLf
Response.write "                    }else{" & vbCrLf
Response.write "                        Nclassidzhi+=""|""+document.myform.ClassID.options[i].value;" & vbCrLf
Response.write "                    }" & vbCrLf
Response.write "                }" & vbCrLf
Response.write "            }" & vbCrLf
Response.write "        }" & vbCrLf
Response.write "        strJS+=Nclassidzhi;" & vbCrLf
Response.write "    }else{" & vbCrLf
Response.write "        strJS+=document.myform.ClassID.value;" & vbCrLf
Response.write "    }" & vbCrLf
If ModuleType = 1 Or ModuleType = 2 Or ModuleType = 3 Or ModuleType = 5 Then
    Response.write "strJS+="",""+document.myform.IncludeChild.checked;" & vbCrLf
    Response.write "strJS+="",""+document.myform.SpecialID.value;" & vbCrLf
    Response.write "strJS+="",""+document.myform.ItemNum.value;" & vbCrLf
'ElseIf ModuleType = 2 Then
'    Response.write "strJS+="",""+ShowAll;" & vbCrLf
End If
If ModuleType = 5 Then
    Response.write "strJS+="",""+document.myform.ProductType.value;" & vbCrLf
End If
Response.write "strJS+="",""+document.myform.IsHot.checked;" & vbCrLf
Response.write "strJS+="",""+document.myform.IsElite.checked;" & vbCrLf
If ModuleType <> 5 Then
    Response.write "strJS+="",""+document.myform.AuthorName.value;" & vbCrLf
End If
Response.write "strJS+="",""+document.myform.DateNum.value;" & vbCrLf
Response.write "strJS+="",""+document.myform.OrderType.value;" & vbCrLf
Response.write "strJS+="",""+UsePage;" & vbCrLf
'If ModuleType = 2 Then
'    Response.write "strJS+="",""+document.myform.OpenType.value;" & vbCrLf
'End If
If ModuleType = 1 Or ModuleType = 2 Or ModuleType = 3 Or ModuleType = 5 Then
    Response.write "strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
End If
Response.write "strJS+="",""+document.myform.ContentLen.value;" & vbCrLf
Response.write "strJS+="")】"";" & vbCrLf
Response.write " if (document.myform.Cols.value!=0){" & vbCrLf
Response.write "    strJS+=""【Cols=""+document.myform.Cols.value+""|""+document.myform.ColsHtml.value+""】"";" & vbCrLf
Response.write "}" & vbCrLf
Response.write " if (document.myform.Rows.value!=0){" & vbCrLf
Response.write "    strJS+=""【Rows=""+document.myform.Rows.value+""|""+document.myform.RowsHtml.value+""】"";" & vbCrLf
Response.write "}" & vbCrLf
Response.write "strJS+=document.myform.Content.value;" & vbCrLf
Response.write "strJS+=""【/" & imageproperty & "List】"";" & vbCrLf
Response.write "window.returnValue = strJS;" & vbCrLf
Response.write "window.close();" & vbCrLf
Response.write "}" & vbCrLf
Response.write "function insertLabel(strLabel)" & vbCrLf
Response.write "{" & vbCrLf
Response.write "  myform.Content.focus();" & vbCrLf
Response.write "  var str = document.selection.createRange();" & vbCrLf
Response.write "  str.text = strLabel" & vbCrLf
Response.write "}" & vbCrLf
Response.write " function previewContent() {" & vbCrLf
Response.write "    var Content=document.myform.Content.value" & vbCrLf
Response.write "    Content = Content.replace(""&"", ""{$ID}"");" & vbCrLf
Response.write "    window.showModalDialog(""editor_previewContent.asp?Content=""+Content+""&ChannelID=" & ChannelID & ",toolbar=no, menubar=no, top=0,left=0,dialogwidth=800,dialogheight=600,help: no; scroll:yes; status: yes"");" & vbCrLf
Response.write " }" & vbCrLf
Response.write "</script>" & vbCrLf

Response.write "<link href='" & InstallDir & AdminDir & "/Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.write "<base target=""_self"">" & vbCrLf
Response.write "</head>" & vbCrLf
Response.write "<body>" & vbCrLf
Response.write "<form action='editor_CustomListLabel.asp' method='post' name='myform' id='myform'>" & vbCrLf
12 3 4 下一页
💿 文件大小 10059 K
👤 上传用户 5201314
📂 所属分类其他
🏷️ 相关标签

#旅行 #家 #源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -