📄 editor_label.asp
字号:
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>表格的CSS类名，可选参数(仅在表格式有效)</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>表格头部CSS：</strong></td>"
Response.Write " <td height='25'><input name='CssNameTitle' type='text' value='"
If Trim(CssNameTitle) = """" Then
Response.Write ""
Else
Response.Write CssNameTitle
End If
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>表格头部行的CSS类名，可选参数。(仅在表格式有效)</font></td>"
Response.Write " </tr>"
End If
'If ModuleType = 1 Or ModuleType = 5 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>CSS类名：</strong></td>"
Response.Write " <td height='25'><input name='CssNameA' type='text' value='"
If Trim(CssNameA) = """" Then
Response.Write ""
Else
Response.Write CssNameA
End If
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>列表中文字链接调用的CSS类名，可选参数(仅在表格式有效)</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>风格样式1：</strong></td>"
Response.Write " <td height='25'><input name='CssName1' type='text' value='"
If Trim(CssName1) = """" Then
Response.Write ""
Else
Response.Write CssName1
End If
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>列表中奇数行的CSS效果的类名，可选参数(仅在表格式有效)</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>风格样式2：</strong></td>"
Response.Write " <td height='25'><input name='CssName2' type='text' value='"
If Trim(CssName2) = """" Then
Response.Write ""
Else
Response.Write CssName2
End If
Response.Write "' size='10' maxlength='10'> <font color='#FF0000'>列表中偶数行的CSS效果的类名，可选参数(仅在表格式有效)</font></td>"
Response.Write " </tr>"
' End If
End Sub
Sub GetPic()
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 "4"
Else
Response.Write Num
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " <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"
End If
Response.Write ">"
Response.Write " 热门" & ChannelShortName & " <input name='IsElite' type='checkbox' id='IsElite' value='1' "
If LCase(Trim(IsElite)) = "true" Then
Response.Write "checked"
End If
Response.Write ">"
Response.Write " 推荐" & ChannelShortName & " <font color='#FF0000'>如果都不选，将显示所有" & 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'>只显示最近"
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 " </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'><select name='ShowType' id='ShowType'>"
If ModuleType = 5 Then
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>"
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 " >（图片+名称：上下排列）+价格：左右排列</option>"
Response.Write " <option value='6' "
If Trim(ShowType) = "6" Then Response.Write "selected"
Response.Write " >图片+（名称+价格：上下排列）：左右排列</option>"
Response.Write " <option value='7' "
If Trim(ShowType) = "7" Then Response.Write "selected"
Response.Write " >图片+名称+按钮：上下排列</option>"
Response.Write " <option value='8' "
If Trim(ShowType) = "8" Then Response.Write "selected"
Response.Write " >图片+名称：上下排列</option>"
Response.Write " <option value='9' "
If Trim(ShowType) = "9" Then Response.Write "selected"
Response.Write " >图片+按钮：上下排列</option>"
Response.Write " <option value='10' "
If Trim(ShowType) = "10" Then Response.Write "selected"
Response.Write " >只显示图片</option>"
Response.Write " <option value='11' "
If Trim(ShowType) = "11" Then Response.Write "selected"
Response.Write " >输出DIV格式</option>"
Else
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>"
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'><b>首页图片设置：</b></td>"
Response.Write " <td height='25'> 宽度："
Response.Write " <input name='ImgWidth' type='text' id='ImgWidth' value="
If Trim(ImgWidth) = "" Then
Response.Write "130"
Else
Response.Write ImgWidth
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " 像素 "
Response.Write " 高度： <input name='ImgHeight' type='text' id='ImgHeight' value="
If Trim(ImgHeight) = "" Then
Response.Write "90"
Else
Response.Write ImgHeight
End If
Response.Write " size='5' maxlength='3'>"
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'><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，则不显示标题；若为-1，则显示完整标题。字母算一个字符，汉字算两个字符。</font></td>"
Response.Write " </tr>"
If ModuleType <> 5 Then
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'>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -