editor_customlistlabel.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

Response.write "<table width='700' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>  " & vbCrLf
Response.write "    <tr class=title>" & vbCrLf
Response.write "      <td align=middle colSpan=2 height=22><STRONG>" & ChannelShortName & "自定义列表标签 </STRONG></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf

If ModuleType <> 5 Then
    Response.write "    <tr class='tdbg'>"
    Response.write "      <td height='25' width='130'  class='tdbg5' align='right'><strong>所属频道：</strong></td>" & vbCrLf
    Response.write "      <td height='25' class='tdbg5'><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 Then
    Response.write "    <tr class='tdbg'>"
    Response.write "      <td height='25'  class='tdbg5' width='130' align='right'><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 " >包含子栏目&nbsp;&nbsp;<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 " >是否选择多个栏目&nbsp;&nbsp;<font color='red'><b>注意：</b></font>多选红色的栏目不能选 </font>"
    Response.write "      </td>"
    Response.write "    </tr>"
    'If ModuleType <> 2 Then
        Response.write "    <tr class='tdbg'>"
        Response.write "      <td height='25'  class='tdbg5' width='130' align='right'><strong>所属专题：</strong></td>"
        Response.write "      <td height='25' ><select name='SpecialID' id='SpecialID'>" & GetSpecial_Option(iChannelID, SpecialID) & "</select></td>"
        Response.write "    </tr>"
    'End If
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>" & vbCrLf
Response.write "      <td width='130' class='tdbg5' align='right' height=25><STRONG>" & ChannelShortName & "数：</STRONG></td>" & vbCrLf
Response.write "      <td height=25><input type='text' name='ItemNum' value='0' size=""8"">&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果为0，将显示所有" & ChannelShortName & "。</font></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
'If ModuleType = 2 Then
'    Response.write "    <tr class=tdbg>" & vbCrLf
'    Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>是否显示所有" & ChannelShortName & "：</STRONG></td>" & vbCrLf
'    Response.write "      <td height=25 >" & vbCrLf
'    Response.write "      <input type=""radio"" name=""ShowAll"" checked value=""True"">是" & vbCrLf
'    Response.write "      <input type=""radio"" name=""ShowAll"" value=""False"">否</td>" & vbCrLf
'    Response.write "    </tr>" & vbCrLf
'End If
If ModuleType = 5 Then
    Response.write "    <tr class='tdbg'>"
    Response.write "      <td height='25' class='tdbg5' align='right'><strong> 产品类型：</strong></td>"
    Response.write "      <td height='25' ><select name='ProductType' id='ProductType'>"
    Response.write "        <option value='1'"
    If Trim(ProductType) = "1" Then Response.write "selected"
    Response.write ">正常销售商品</option>"
    Response.write "        <option value='2'"
    If Trim(ProductType) = "2" Then Response.write "selected"
    Response.write ">涨价商品</option>"
    Response.write "        <option value='3'"
    If Trim(ProductType) = "3" Then Response.write "selected"
    Response.write ">特价商品</option>"
    Response.write "        <option value='4'"
    If Trim(ProductType) = "4" Then Response.write "selected"
    Response.write ">促销礼品</option>"
    Response.write "        <option value='5'"
    If Trim(ProductType) = "5" Then Response.write "selected"
    Response.write ">正常销售和涨价商品</option>"
    Response.write "        <option value='6'"
    If Trim(ProductType) = "6" Then Response.write "selected"
    Response.write ">降价商品</option>"
    Response.write "        <option value='0'"
    If Trim(ProductType) = "0" Then Response.write "selected"
    Response.write ">所有商品</option>"
    Response.write "        </select> </td>"
    Response.write "    </tr>"
End If
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "属性：</STRONG></td>" & vbCrLf
Response.write "      <td height=25 >" & vbCrLf
Response.write "        <Input id=IsHot type=checkbox value=1 name=IsHot> 热门" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
Response.write "        <Input id=IsElite type=checkbox value=1 name=IsElite> 推荐" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000>如果都不选，将显示所有文章。</FONT></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf

If ModuleType <> 5 Then
    Response.write "    <tr class=tdbg>" & vbCrLf
    Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>显示指定作者的" & ChannelShortName & "：</STRONG></td>" & vbCrLf
    Response.write "      <td height=25 > " & vbCrLf
    Response.write "         <Input id=AuthorName  maxLength=10 size=10 value='' name=AuthorName>&nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000>如果都不添，将不指定。</FONT>" & vbCrLf
    Response.write "    </tr>" & vbCrLf
End If
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>日期范围：</STRONG></td>" & vbCrLf
Response.write "      <td height=25>只显示最近 " & vbCrLf
Response.write "        <Input id=DateNum maxLength=3 size=5 value=0 name=DateNum> 天内更新的" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000>&nbsp;&nbsp;如果为空或0，则显示所有天数的文章。</FONT></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>排序方法：</STRONG></td>" & vbCrLf
Response.write "      <td height=25 >" & vbCrLf
Response.write "        <Select id='OrderType' name='OrderType'> " & vbCrLf
Response.write "          <Option value=1 selected>" & ChannelShortName & "ID（降序）</Option> " & vbCrLf
Response.write "          <Option value=2>" & ChannelShortName & "ID（升序）</Option> " & vbCrLf
Response.write "          <Option value=3>更新时间（降序）</Option> " & vbCrLf
Response.write "          <Option value=4>更新时间（升序）</Option> " & vbCrLf
Response.write "          <Option value=5>点击次数（降序）</Option> " & vbCrLf
Response.write "          <Option value=6>点击次数（升序）</Option>" & vbCrLf
Response.write "        </Select>" & vbCrLf
Response.write "      </td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>是否分页显示：</STRONG></td>" & vbCrLf
Response.write "      <td height=25 >" & vbCrLf
Response.write "        <input type=""radio"" name=""UsePage"" checked value=""True"">是" & vbCrLf
Response.write "        <input type=""radio"" name=""UsePage"" value=""False"">否</td> " & vbCrLf
Response.write "    </tr>" & vbCrLf
'If ModuleType = 2 Then
'    Response.write "    <tr class=tdbg>" & vbCrLf
'    Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "打开方式：</STRONG></td>" & vbCrLf
'    Response.write "      <td height=25 >" & vbCrLf
'    Response.write "        <Select id=OpenType name=OpenType> " & vbCrLf
'    Response.write "          <Option value=0 selected>在原窗口打开</Option> " & vbCrLf
'    Response.write "          <Option value=1>在新窗口打开</Option>" & vbCrLf
'    Response.write "        </Select></td>" & vbCrLf
'    Response.write "    </tr>       " & vbCrLf
'End If
'If ModuleType <> 2 Then
    Response.write "    <tr class=tdbg>" & vbCrLf
    Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "标题最多字符：</STRONG></td>" & vbCrLf
    Response.write "      <td height=25 >" & vbCrLf
    Response.write "        <Input  maxLength=3 size=5 value=0 name=TitleLen> &nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000>一个汉字=两个英文字符，为0时不显示</FONT></td>" & vbCrLf
    Response.write "    </tr>" & vbCrLf
'End If
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "内容最多字符：</STRONG></td>" & vbCrLf
Response.write "      <td height=25>" & vbCrLf
Response.write "        <Input  maxLength=3 size=5 value=0 name=ContentLen> &nbsp;&nbsp;&nbsp;&nbsp;<FONT color=#ff0000>一个汉字=两个英文字符，为0时不显示</FONT></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "循环列设置：</STRONG></td>" & vbCrLf
Response.write "      <td height=25>" & vbCrLf
Response.write "        每显示<Input  maxLength=3 size=2 value=0 name=Cols>列后,向自定义循环列表中插入 <Input size=10 value="""" name=ColsHtml>&nbsp;&nbsp;<FONT color=#ff0000>支持Html代码</FONT></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130""  class='tdbg5' align=right height=25><STRONG>" & ChannelShortName & "循环行设置：</STRONG></td>" & vbCrLf
Response.write "      <td height=25>" & vbCrLf
Response.write "        每显示<Input  maxLength=3 size=2 value=0 name=Rows>行后,向自定义循环列表中插入 <Input size=10 value="""" name=RowsHtml>&nbsp;&nbsp;<FONT color=#ff0000>支持Html代码</FONT></td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class=tdbg>" & vbCrLf
Response.write "      <td width=""130"" class='tdbg5' align=right height=25><STRONG>循环标签支持标签：</STRONG></td>" & vbCrLf
Response.write "      <td>" & vbCrLf
Response.write "        <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>" & vbCrLf
If ModuleType = 1 Then
    Response.write "         <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ArticleUrl}')"" title=""文章的链接地址"">{$ArticleUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ArticleID}')"" title=""文章的ID"">{$ArticleID}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$UpdateTime}')"" title=""文章更新时间"">{$UpdateTime}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Stars}')"" title=""文章评分等级"">{$Stars}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Author}')"" title=""文章作者"">{$Author}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$CopyFrom}')"" title=""文章来源"">{$CopyFrom}</a></td>" & vbCrLf
    Response.write "         </tr>" & vbCrLf
    Response.write "         <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hits}')"" title=""点击次数"">{$Hits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Inputer}')"" title=""文章录入者"">{$Inputer}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Editor}')"" title=""责任编辑"">{$Editor}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ReadPoint}')"" title=""阅读点数"">{$ReadPoint}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Property}')"" title=""文章属性"">{$Property}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Top}')"" title=""固顶"">{$Top}</a></td>" & vbCrLf
    Response.write "         </tr>" & vbCrLf
    Response.write "         <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Elite}')"" title=""推荐"">{$Elite}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hot}')"" title=""热门"">{$Hot}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Title}')"" title=""文章正标题，字数由参数TitleLen控制"">{$Title}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Subheading}')"" title=""自定义列表副标题"">{$Subheading}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Intro}')"" title=""文章简介"">{$Intro}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Content}')"" title=""文章正文内容，字数由参数ContentLen控制"">{$Content}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ArticlePic(130,90)}')"" title=""显示图片文章，width为图片宽度，height为图片高度"">{$ArticlePic(130,90)}</a></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
ElseIf ModuleType = 2 Then
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftUrl}')"" title=""软件地址"">{$SoftUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftID}')"" title=""软件ID"">{$SoftID}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftName}')"" title=""软件名称"">{$SoftName}</a></td>" & vbCrLf