📄 wm.skin_label_incouponsort.asp
字号:
<%
WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetInCouponSort\(","\)\}")
If WM_Content = "" Then WM_Content = "1,,,,,,,0,1,0,,§,,_self,1,,0,1,,0,§,,_self,1,,1,"
a_Content = Split(WM_Content,",")
AddLabel = AddLabel & "<input name=Action type=hidden value=SaveInCouponSort>" & vbCrLf
AddLabel = AddLabel & "<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class=td1>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2><td>输出格式</td><td Colspan=5><select name='Export' onchange=""Label2(this.options[this.selectedIndex].value)""><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(0)),0)&">Table格式</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(0)),0)&">DIV+CSS格式</option></select></td></tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td3><td><strong>大类</strong></td><td Colspan=5 class=td2>"
AddLabel = AddLabel & "<div id=table1"
If Int(a_Content(0)) <> 1 Then AddLabel = AddLabel & " Style='display:none'"
AddLabel = AddLabel & "><TD Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(1)&"'>""> <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'></div>"
AddLabel = AddLabel & "<div id=div1"
If Int(a_Content(0)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
AddLabel = AddLabel & "><div Class=""<input name='TDCSS0' type='text' class=LIC value='"&a_Content(1)&"'>""> <img src='img/help.gif' align='absmiddle' alt='Div的CSS样式，主题中已定义的CSS'> <ul Class=""<input name='TDCSS1' type='text' class=LIC value='"&a_Content(2)&"'>""> <img src='img/help.gif' align='absmiddle' alt='Ul的CSS样式，主题中已定义的CSS'> <li Class=""<input name='TDCSS2' type='text' class=LIC value='"&a_Content(3)&"'>""> <img src='img/help.gif' align='absmiddle' alt='Li的CSS样式，主题中已定义的CSS'></div>"
AddLabel = AddLabel & " </td></tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td width='13%'>调用数量</td>" & vbCrLf
AddLabel = AddLabel & " <td width='20%'><input name='BNum' type='text' size=10 maxlength=5 value='"&a_Content(7)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " <td width='13%'>显示列数</td>" & vbCrLf
AddLabel = AddLabel & " <td width='20%'><input name='BCols' type='text' size=10 maxlength=5 value='"&a_Content(8)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " <td width='13%'>最大字符数</td>" & vbCrLf
AddLabel = AddLabel & " <td width='21%'><input name='BFontNum' type='text' size=10 maxlength=5 value='"&a_Content(9)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>连接样式</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='BCss' type='text' size=10 value='"&a_Content(10)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " <td>间隔符</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='BCompart' type='text' size=5 value="""&Server.HTMLEncode(Split(a_Content(11),"§")(0))&""">大类<input name='BCompart_1' type='text' size=5 value="""&Server.HTMLEncode(Split(a_Content(11),"§")(1))&"""> <img src='img/help.gif' align='absmiddle' alt='不能为§'></td>" & vbCrLf
AddLabel = AddLabel & " <td>间隔符CSS</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='BCompartCss' type='text' size=10 value='"&a_Content(12)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>打开方式</td>" & vbCrLf
AddLabel = AddLabel & " <td><select name='Target'><option value='_self'"&WRMPS.GetCheckVer("_self",a_Content(13),0)&">原窗口</option><option value='_blank'"&WRMPS.GetCheckVer("_blank",a_Content(13),0)&">新窗口</option><option value='_parent'"&WRMPS.GetCheckVer("_parent",a_Content(13),0)&">主窗口</option><option value='_top'"&WRMPS.GetCheckVer("_top",a_Content(13),0)&">父窗口</option></select></td>" & vbCrLf
AddLabel = AddLabel & " <td>数量显示</td>" & vbCrLf
AddLabel = AddLabel & " <td><select name='BShow'><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(23)),0)&">不显示</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(23)),0)&">123 格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(23)),0)&">(123) 格式</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(23)),0)&">[123] 格式</option></select></td>" & vbCrLf
AddLabel = AddLabel & " <td>数量显示CSS</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='BShowCss' type='text' size=10 value='"&a_Content(24)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td3><td><strong>子类</strong></td><td Colspan=5 class=td2>"
AddLabel = AddLabel & "<div id=table2"
If Int(a_Content(0)) <> 1 Then AddLabel = AddLabel & " Style='display:none'"
AddLabel = AddLabel & "><TD Class=""<input name='CTDCSS' type='text' class=LIC value='"&a_Content(4)&"'>""> <img src='img/help.gif' align='absmiddle' alt='子类Table的CSS样式，主题中已定义的CSS'></div>"
AddLabel = AddLabel & "<div id=div2"
If Int(a_Content(0)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
AddLabel = AddLabel & "><div Class=""<input name='CTDCSS0' type='text' class=LIC value='"&a_Content(4)&"'>""> <img src='img/help.gif' align='absmiddle' alt='子类Div的CSS样式，主题中已定义的CSS'> <ul Class=""<input name='CTDCSS1' type='text' class=LIC value='"&a_Content(5)&"'>""> <img src='img/help.gif' align='absmiddle' alt='子类Ul的CSS样式，主题中已定义的CSS'> <li Class=""<input name='CTDCSS2' type='text' class=LIC value='"&a_Content(6)&"'>""> <img src='img/help.gif' align='absmiddle' alt='子类Li的CSS样式，主题中已定义的CSS'></div>"
AddLabel = AddLabel & " </td></tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>是否显示子类</td>" & vbCrLf
AddLabel = AddLabel & " <td><select name='Child'><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(14)),0)&">显示</option><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(14)),0)&">不显示</option></select></td>" & vbCrLf
AddLabel = AddLabel & " <td>所属大类ID</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='BigID' type='text' size=10 maxlength=10 value='"&a_Content(15)&"'> <img src='img/help.gif' align='absmiddle' alt='空为不限，BigID 为当前大类，不为空则只显示某一大类的小类'></td>" & vbCrLf
AddLabel = AddLabel & " <td>调用数量</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CNum' type='text' size=10 maxlength=5 value='"&a_Content(16)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>显示列数</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CCols' type='text' size=10 maxlength=5 value='"&a_Content(17)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " <td>连接样式</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CCss' type='text' size=10 value='"&a_Content(18)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " <td>最大字符数</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CFontNum' type='text' size=10 maxlength=5 value='"&a_Content(19)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不限制'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>间隔符</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CCompart' type='text' size=5 value="""&Server.HTMLEncode(Split(a_Content(20),"§")(0))&""">子类<input name='CCompart_1' type='text' size=5 value="""&Server.HTMLEncode(Split(a_Content(20),"§")(1))&"""> <img src='img/help.gif' align='absmiddle' alt='不能为§'></td>" & vbCrLf
AddLabel = AddLabel & " <td>间隔符CSS</td>" & vbCrLf
AddLabel = AddLabel & " <td><input name='CCompartCss' type='text' size=10 value='"&a_Content(21)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " <td>打开方式</td>" & vbCrLf
AddLabel = AddLabel & " <td><select name='CTarget'><option value='_self'"&WRMPS.GetCheckVer("_self",a_Content(22),0)&">原窗口</option><option value='_blank'"&WRMPS.GetCheckVer("_blank",a_Content(22),0)&">新窗口</option><option value='_parent'"&WRMPS.GetCheckVer("_parent",a_Content(22),0)&">主窗口</option><option value='_top'"&WRMPS.GetCheckVer("_top",a_Content(22),0)&">父窗口</option></select></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & " <tr class=td2> " & vbCrLf
AddLabel = AddLabel & " <td>数量显示</td>" & vbCrLf
AddLabel = AddLabel & " <td><select name='CShow'><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(25)),0)&">不显示</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(25)),0)&">123 格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(25)),0)&">(123) 格式</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(25)),0)&">[123] 格式</option></select></td>" & vbCrLf
AddLabel = AddLabel & " <td>数量显示CSS</td>" & vbCrLf
AddLabel = AddLabel & " <td colspan=3><input name='CShowCss' type='text' size=10 value='"&a_Content(26)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
AddLabel = AddLabel & " </tr>" & vbCrLf
AddLabel = AddLabel & "</table>" & vbCrLf
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -