📄 editor_label.asp
字号:
Response.Write " <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'><input name='ShowTips' type='checkbox' id='ShowTips' value='1' "
If LCase(Trim(ShowTips)) = "true" Then
Response.Write "checked"
End If
Response.Write ">"
Response.Write " 显示作者、更新时间、点击数等提示信息</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'><select name='Cols' id='Cols'>"
Response.Write " <option value='1' "
If Trim(Cols) = "1" Then Response.Write "selected"
Response.Write ">1</option>"
Response.Write " <option value='2' "
If Trim(Cols) = "2" Then Response.Write "selected"
Response.Write ">2</option>"
Response.Write " <option value='3' "
If Trim(Cols) = "3" Then Response.Write "selected"
Response.Write ">3</option>"
Response.Write " <option value='4' "
If Trim(Cols) = "4" Then Response.Write "selected"
Response.Write ">4</option>"
Response.Write " <option value='5' "
If Trim(Cols) = "5" Then Response.Write "selected"
Response.Write ">5</option>"
Response.Write " <option value='6' "
If Trim(Cols) = "6" Then Response.Write "selected"
Response.Write ">6</option>"
Response.Write " <option value='7' "
If Trim(Cols) = "7" Then Response.Write "selected"
Response.Write ">7</option>"
Response.Write " <option value='8' "
If Trim(Cols) = "8" Then Response.Write "selected"
Response.Write ">8</option>"
Response.Write " <option value='9' "
If Trim(Cols) = "9" Then Response.Write "selected"
Response.Write ">9</option>"
Response.Write " <option value='10' "
If Trim(Cols) = "10" Then Response.Write "selected"
Response.Write ">10</option>"
Response.Write " <option value='11' "
If Trim(Cols) = "11" Then Response.Write "selected"
Response.Write ">11</option>"
Response.Write " <option value='12' "
If Trim(Cols) = "12" Then Response.Write "selected"
Response.Write ">12</option>"
Response.Write " </select>"
Response.Write " 超过指行列数就会换行</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='ShowPriceType' id='ShowPriceType'>"
Response.Write " <option value='0' "
If Trim(ShowPriceType) = "0" Then Response.Write "selected"
Response.Write ">自动显示</option>"
Response.Write " <option value='1' "
If Trim(ShowPriceType) = "1" Then Response.Write "selected"
Response.Write ">只显示原价</option>"
Response.Write " <option value='2' "
If Trim(ShowPriceType) = "2" Then Response.Write "selected"
Response.Write ">只显示当前价</option>"
Response.Write " <option value='3' "
If Trim(ShowPriceType) = "3" Then Response.Write "selected"
Response.Write ">只显示市场价与原价</option>"
Response.Write " <option value='4' "
If Trim(ShowPriceType) = "4" Then Response.Write "selected"
Response.Write ">只显示市场价与当前价</option>"
Response.Write " <option value='5' "
If Trim(ShowPriceType) = "5" Then Response.Write "selected"
Response.Write ">只显示原价与当前价</option>"
Response.Write " <option value='6' "
If Trim(ShowPriceType) = "6" Then Response.Write "selected"
Response.Write ">只显示原价与会员价</option>"
Response.Write " <option value='7' "
If Trim(ShowPriceType) = "7" Then Response.Write "selected"
Response.Write ">显示市场价、原价和当前价</option>"
Response.Write " <option value='8' "
If Trim(ShowPriceType) = "8" Then Response.Write "selected"
Response.Write ">显示市场价、原价和会员价</option>"
Response.Write " <option value='9' "
If Trim(ShowPriceType) = "9" Then Response.Write "selected"
Response.Write ">显示市场价、当前价和会员价</option>"
Response.Write " <option value='10' "
If Trim(ShowPriceType) = "10" Then Response.Write "selected"
Response.Write ">显示市场价、原价、当前价和会员价</option>"
Response.Write " </select>"
Response.Write " <font color='blue'>只有当ShowType参数设为含价格方式时才有效</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><input name='ShowDiscount' type='checkbox' id='ShowDiscount' value='1' "
If LCase(Trim(ShowDiscount)) = "true" Then
Response.Write "checked"
End If
Response.Write "> <font color='blue'>只有当ShowType参数设为含价格方式时才有效</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='ShowButtonType' id='ShowButtonType'>"
Response.Write " <option value='0' "
If Trim(ShowButtonType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1' "
If Trim(ShowButtonType) = "1" Then Response.Write "selected"
Response.Write ">显示购买按钮</option>"
Response.Write " <option value='2' "
If Trim(ShowButtonType) = "2" Then Response.Write "selected"
Response.Write ">显示详细按钮</option>"
Response.Write " <option value='3' "
If Trim(ShowButtonType) = "3" Then Response.Write "selected"
Response.Write ">显示收藏按钮</option>"
Response.Write " <option value='4' "
If Trim(ShowButtonType) = "4" Then Response.Write "selected"
Response.Write ">显示购买＋详细按钮</option>"
Response.Write " <option value='5' "
If Trim(ShowButtonType) = "5" Then Response.Write "selected"
Response.Write ">显示购买＋收藏按钮</option>"
Response.Write " <option value='6' "
If Trim(ShowButtonType) = "6" Then Response.Write "selected"
Response.Write ">详细＋收藏按钮</option>"
Response.Write " <option value='7' "
If Trim(ShowButtonType) = "7" 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='ButtonStyle' type='text' value='"
If Trim(ButtonStyle) = """" Then
Response.Write ""
Else
Response.Write ButtonStyle
End If
Response.Write "' size='10' maxlength='20'></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'>"
Response.Write " <select name='OpenType' id='OpenType'>"
Response.Write " <option value='0' "
If Trim(OpenType) = "0" Then Response.Write "selected"
Response.Write ">在原窗口打开</option>"
Response.Write " <option value='1' "
If Trim(OpenType) = "1" Then Response.Write "selected"
Response.Write ">在新窗口打开</option>"
Response.Write " </select>"
Response.Write " </td>"
Response.Write " </tr>"
End If
End Sub
Sub GetSlide()
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>"
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'><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 n⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -