📄 editor_label.asp
字号:
If Trim(ShowDateType) = "3" Then Response.Write "selected"
Response.Write ">月-日</option>"
Response.Write " </select>"
Response.Write " </td>"
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowHits' type='checkbox' id='ShowHits' value='1' "
If LCase(Trim(ShowHits)) = "true" Then
Response.Write "checked"
End If
Response.Write " >点击次数</td>"
End If
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowHotSign' type='checkbox' id='ShowHotSign' value='1' "
If LCase(Trim(ShowHotSign)) = "true" Then
Response.Write "checked"
End If
Response.Write ">热点" & ChannelShortName & "标志</td>"
Response.Write " <td><input name='ShowNewSign' type='checkbox' id='ShowNewSign' value='1' "
If LCase(Trim(ShowNewSign)) = "true" Then
Response.Write "checked"
End If
Response.Write ">最新" & ChannelShortName & "标志</td>"
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowTips' type='checkbox' id='ShowTips' value='1' "
If LCase(Trim(ShowTips)) = "true" Then
Response.Write "checked"
End If
Response.Write ">显示提示信息</td>"
End If
If ModuleType = 1 Then
Response.Write " <td><input name='ShowCommentLink' type='checkbox' id='ShowCommentLink' value='1' "
If LCase(Trim(ShowCommentLink)) = "true" Then
Response.Write "checked"
End If
Response.Write ">显示评论链接</td>"
End If
Response.Write " <td><input name='UsePage' type='checkbox' id='UsePage' value='1'"
If LCase(Trim(UsePage)) = "true" Then
Response.Write "checked"
End If
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>" & 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>"
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='IntervalLines' type='text' value='"
If Trim(IntervalLines) = """" Then
Response.Write ""
Else
Response.Write IntervalLines
End If
Response.Write "' size='10' maxlength='10'> <font color=blue>为0时不空行</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' >"
If Trim(TableTitleStr) = "" Or InStr(TableTitleStr, "|") <= 0 Or UBound(Split(TableTitleStr, "|")) > 12 Or UBound(Split(TableTitleStr, "|")) < 12 Then
TableTitleStr = "商品名称|型号|规格|上市时间|单位|库存量|重量|市场价|商城价|优惠价|会员价|折扣率|操作"
End If
TableTitleStr = Split(TableTitleStr, "|")
Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' align='center'>"
Response.Write " <tr class='tdbg' align='center'>"
Response.Write " <td>商品名称</td><td>型号</td><td>规格</td><td>上市时间</td><td>单位</td><td>库存量</td><td>重量</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg' align='center'>"
Response.Write " <td><input name='TableTitleStr1' type='text' value='" & TableTitleStr(0) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr2' type='text' value='" & TableTitleStr(1) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr3' type='text' value='" & TableTitleStr(2) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr4' type='text' value='" & TableTitleStr(3) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr5' type='text' value='" & TableTitleStr(4) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr6' type='text' value='" & TableTitleStr(5) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr7' type='text' value='" & TableTitleStr(6) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg' align='center'>"
Response.Write " <td>市场价</td><td>商城价</td><td>优惠价</td><td>会员价</td><td>折扣率</td><td>操作</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg' align='center'>"
Response.Write " <td><input name='TableTitleStr8' type='text' value='" & TableTitleStr(7) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr9' type='text' value='" & TableTitleStr(8) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr10' type='text' value='" & TableTitleStr(9) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr11' type='text' value='" & TableTitleStr(10) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr12' type='text' value='" & TableTitleStr(11) & "' size='10' maxlength='20' style='text-align: center;'></td>"
Response.Write " <td><input name='TableTitleStr13' type='text' value='" & TableTitleStr(12) & "' size='10' maxlength='20' style='text-align: center;'></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'><select name='ShowStocksType' id='ShowStocksType'>"
Response.Write " <option value='0' "
If Trim(ShowStocksType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1' "
If Trim(ShowStocksType) = "1" Then Response.Write "selected"
Response.Write ">显示虚拟库存</option>"
Response.Write " <option value='2' "
If Trim(ShowStocksType) = "2" 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='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='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='ShowTableTitle' type='checkbox' id='ShowTableTitle' value='1' "
If LCase(Trim(ShowTableTitle)) = "true" Then
Response.Write "checked"
End If
Response.Write ">表格头部文字</td>"
Response.Write " <td><input name='ShowProductModel' type='checkbox' id='ShowProductModel' value='1' "
If LCase(Trim(ShowProductModel)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示商品型号</td>"
Response.Write " <td><input name='ShowProductStandard' type='checkbox' id='ShowProductStandard' value='1' "
If LCase(Trim(ShowProductStandard)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示商品规格</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowUnit' type='checkbox' id='ShowUnit' value='1' "
If LCase(Trim(ShowUnit)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示商品单位</td>"
Response.Write " <td><input name='ShowWeight' type='checkbox' id='ShowWeight' value='1' "
If LCase(Trim(ShowWeight)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示商品重量</td>"
Response.Write " <td><input name='ShowPrice_Market' type='checkbox' id='ShowPrice_Market' value='1' "
If LCase(Trim(ShowPrice_Market)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示市场价</td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowPrice_Original' type='checkbox' id='ShowPrice_Original' value='1' "
If LCase(Trim(ShowPrice_Original)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示原价</td>"
Response.Write " <td><input name='ShowPrice' type='checkbox' id='ShowPrice' value='1' "
If LCase(Trim(ShowPrice)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示当前零售价</td>"
Response.Write " <td><input name='ShowPrice_Member' type='checkbox' id='ShowPrice_Member' value='1' "
If LCase(Trim(ShowPrice_Member)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否显示会员价</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 ">是否显示折扣率</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' ><input name='ButtonStyle' type='text' value='"
If Trim(ButtonStyle) = """" Then
Response.Write ""
Else
Response.Write ButtonStyle
End If
Response.Write "' size='10' maxlength='20'> <font color='blue'>请填写定义图片数字</font><br>"
Response.Write "举例：<br>"
Response.Write " " & InstallDir & "Shop/images/ProductBuy<FONT color='blue'>“数字”</FONT>.gif<br>"
Response.Write " " & InstallDir & "Shop/images/ProductContent<FONT color='blue'>“数字”</FONT>.gif<br>"
Response.Write " " & InstallDir & "Shop/images/ProductFav<FONT color='blue'>“数字”</FONT>.gif<br>"
Response.Write " <font color='blue'>请按以上方式制作上传自定义按钮图片</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='CssNameTable' type='text' value='"
If Trim(CssNameTable) = """" Then
Response.Write ""
Else
Response.Write CssNameTable
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -