📄 editor_label.asp
字号:
Response.Write ">输出RSS格式</option>"
Else
Response.Write " <option value='4' "
If Trim(ShowType) = "4" Then Response.Write "selected"
Response.Write ">输出DIV格式</option>"
Response.Write " <option value='5' "
If Trim(ShowType) = "5" Then Response.Write "selected"
Response.Write ">输出RSS格式</option>"
End If
Response.Write " </select>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "数目：</strong></td>"
Response.Write " <td height='25'><input name='Num' type='text' value='"
If Trim(Num) = "" Then
Response.Write "10"
Else
Response.Write Num
End If
Response.Write "' size='5' maxlength='3'> <font color='#FF0000'>如果为0，将显示所有" & ChannelShortName & "。</font></td>"
Response.Write " </tr>"
If ModuleType = 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><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'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "属性：</strong></td>"
Response.Write " <td height='25'><input name='IsHot' type='checkbox' id='IsHot' value='1'"
If LCase(Trim(IsHot)) = "true" Then Response.Write "checked"
Response.Write ">"
Response.Write " 热门" & ChannelShortName & " <input name='IsElite' type='checkbox' id='IsElite' value='1'"
If LCase(Trim(IsElite)) = "true" Then Response.Write "checked"
Response.Write ">"
Response.Write " 推荐" & ChannelShortName & " <font color='#FF0000'>如果都不选，将显示所有" & ChannelShortName & "。</font></td>"
Response.Write " </tr>"
If ModuleType <> 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>作者姓名：</strong></td>"
Response.Write " <td height='25'><input name='AuthorName' type='text' value='"
If Trim(AuthorName) = """" Then
Response.Write ""
Else
Response.Write AuthorName
End If
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>如果不为空，则只显示指定作者的" & ChannelShortName & "，用于个人文集。</font></td>"
Response.Write " </tr>"
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "属性图片：</strong></td>"
Response.Write " <td height='25'>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' valign='top'>"
Response.Write " <tr>"
Response.Write " <td width='100'>"
Response.Write " <select name='ShowPropertyType' id='ShowPropertyType' onChange=""javascript:change_item(this)"">"
Response.Write " <option value='0' "
If Trim(ShowPropertyType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='2' "
If Trim(ShowPropertyType) = "2" Then Response.Write "selected"
Response.Write ">符号</option>"
Response.Write " <option value='1' "
If Trim(ShowPropertyType) = "1" Then Response.Write "selected"
Response.Write ">小图片（样式 1）</option>"
Response.Write " <option value='3' "
If Trim(ShowPropertyType) = "3" Then Response.Write "selected"
Response.Write ">小图片（样式 2）</option>"
Response.Write " <option value='4' "
If Trim(ShowPropertyType) = "4" Then Response.Write "selected"
Response.Write ">小图片（样式 3）</option>"
Response.Write " <option value='5' "
If Trim(ShowPropertyType) = "5" Then Response.Write "selected"
Response.Write ">小图片（样式 4）</option>"
Response.Write " <option value='6' "
If Trim(ShowPropertyType) = "6" Then Response.Write "selected"
Response.Write ">小图片（样式 5）</option>"
If ModuleType = 1 Then
Response.Write " <option value='7' "
If Trim(ShowPropertyType) = "7" Then Response.Write "selected"
Response.Write ">小图片（样式 6）</option>"
Response.Write " <option value='8' "
If Trim(ShowPropertyType) = "8" Then Response.Write "selected"
Response.Write ">小图片（样式 7）</option>"
Response.Write " <option value='9' "
If Trim(ShowPropertyType) = "9" Then Response.Write "selected"
Response.Write ">小图片（样式 8）</option>"
Response.Write " <option value='10' "
If Trim(ShowPropertyType) = "10" Then Response.Write "selected"
Response.Write ">小图片（样式 9）</option>"
End If
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td id=objFiles style='display:none'>"
Response.Write " 普通图片 <IMG id=common SRC='" & InstallDir & "images/" & imageproperty & "_common.gif' BORDER='0' ALT='普通图片'> 推荐图片 <IMG SRC='" & InstallDir & "images/" & imageproperty & "_elite.gif' id=elite BORDER='0' ALT='推荐图片'> 固定图片 <IMG SRC='" & InstallDir & "images/" & imageproperty & "_ontop.gif' id=ontop BORDER='0' ALT='固定图片'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
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'>只显示最近"
Response.Write " <input name='DateNum' type='text' id='DateNum' value="
If Trim(DateNum) = "" Then
Response.Write "0"
Else
Response.Write DateNum
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " 天内更新的" & ChannelShortName & " <font color='#FF0000'> 如果为空或0，则显示所有天数的" & ChannelShortName & "。</font></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='OrderType' id='OrderType'>"
Response.Write " <option value='1' "
If Trim(OrderType) = "1" Then Response.Write "selected"
Response.Write ">" & ChannelShortName & "ID（降序）</option>"
Response.Write " <option value='2' "
If Trim(OrderType) = "2" Then Response.Write "selected"
Response.Write ">" & ChannelShortName & "ID（升序）</option>"
Response.Write " <option value='3' "
If Trim(OrderType) = "3" Then Response.Write "selected"
Response.Write ">更新时间（降序）</option>"
Response.Write " <option value='4' "
If Trim(OrderType) = "4" Then Response.Write "selected"
Response.Write ">更新时间（升序）</option>"
Response.Write " <option value='5' "
If Trim(OrderType) = "5" Then Response.Write "selected"
Response.Write ">点击次数（降序）</option>"
Response.Write " <option value='6' "
If Trim(OrderType) = "6" Then Response.Write "selected"
Response.Write ">点击次数（升序）</option>"
Response.Write " <option value='7' "
If Trim(OrderType) = "7" Then Response.Write "selected"
Response.Write ">按评论数（降序）</option>"
Response.Write " <option value='8' "
If Trim(OrderType) = "8" Then Response.Write "selected"
Response.Write ">按评论数（升序）</option>"
Response.Write " </select></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'><input name='TitleLen' type='text' id='TitleLen' value="
If Trim(TitleLen) = "" Then
Response.Write "30"
Else
Response.Write TitleLen
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " <font color='#FF0000'>如果为0，则显示完整标题。字母算一个字符，汉字算两个字符。</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "内容字符数：</strong></td>"
Response.Write " <td height='25'><input name='ContentLen' type='text' id='ContentLen' value="
If Trim(ContentLen) = "" Then
Response.Write "0"
Else
Response.Write ContentLen
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " <font color='#FF0000'>如果大于0，则在标题下方面显示指定字数的" & ChannelShortName & "内容</font></td>"
Response.Write " </tr>"
'If ModuleType = 1 Or ModuleType = 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>每行的列数：</strong></td>"
Response.Write " <td height='25'><INPUT TYPE='text' NAME='Cols' value="
If Trim(Cols) = "" Then
Response.Write "1"
Else
Response.Write Cols
End If
Response.Write " id='id' size='5' maxlength='3'> <font color='#FF0000'>超过此列数就换行</font>"
Response.Write " <input type='hidden' name='urltype' value='0'></td>"
Response.Write " </tr>"
'End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='50' align='right' class='tdbg5'><strong>显示内容：</strong></td>"
Response.Write " <td height='50'><table width='100%' border='0' cellpadding='1' cellspacing='2'>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowClassName' type='checkbox' id='ShowClassName' value='1' "
If LCase(Trim(ShowClassName)) = "true" Then
Response.Write "checked"
End If
Response.Write ">所属栏目</td>"
If ModuleType = 1 Then
Response.Write " <td><input name='ShowIncludePic' type='checkbox' id='ShowIncludePic' value='1' "
If LCase(Trim(ShowIncludePic)) = "true" Then
Response.Write "checked"
End If
Response.Write ">“图文”标志</td>"
End If
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowAuthor' type='checkbox' id='ShowAuthor' value='1' "
If LCase(Trim(ShowAuthor)) = "true" Then
Response.Write "checked"
End If
Response.Write ">作者</td>"
End If
Response.Write " <td>更新时间"
Response.Write " <select name='ShowDateType' id='ShowDateType'>"
Response.Write " <option value='0' "
If Trim(ShowDateType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1' "
If Trim(ShowDateType) = "1" Then Response.Write "selected"
Response.Write ">年月日</option>"
Response.Write " <option value='2'"
If Trim(ShowDateType) = "2" Then Response.Write "selected"
Response.Write ">月日</option>"
Response.Write " <option value='3' "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -