wm.skin_label_link.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetLinks\(","\)\}")
	   If WM_Content = "" Then WM_Content = "0,0,0,0,,0,1,,,,0,,-1"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveLink>" & vbCrLf	   
	   AddLabel = AddLabel & "<table width='100%' border='0' align='center' cellpadding='3' cellspacing='1' class=td1>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>输出格式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name='Export' onchange=""Label(this.options[this.selectedIndex].value)""><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(6)),0)&">普通格式</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(6)),0)&">Table格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(6)),0)&">DIV+CSS格式</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=4>"
	   AddLabel = AddLabel & "<div id=table"
       If Int(a_Content(6)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;TD Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(7)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'></div>"
	   AddLabel = AddLabel & "<div id=div"
	   If Int(a_Content(6)) <> 3 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;div Class=""<input name='TDCSS0' type='text' class=LIC value='"&a_Content(7)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Div的CSS样式，主题中已定义的CSS'>　&lt;ul Class=""<input name='TDCSS1' type='text' class=LIC value='"&a_Content(8)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Ul的CSS样式，主题中已定义的CSS'>　&lt;li Class=""<input name='TDCSS2' type='text' class=LIC value='"&a_Content(9)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Li的CSS样式，主题中已定义的CSS'></div>"
       AddLabel = AddLabel & "      </td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td width='13%'>显示模式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><select name=eType><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(0)),0)&">文字连接</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(0)),0)&">图标连接</option></select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='13%'>调用数量</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><input name=Num type=text size=10 maxlength=5 value='"&a_Content(1)&"'> <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=ColsNum type=text size=10 maxlength=5 value='"&a_Content(2)&"'> <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><select name=Commend><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(3)),0)&">否</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(3)),0)&">是</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>连接样式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=Css type=text size=10 maxlength=5 value='"&a_Content(4)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>排序方式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=Taxis><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(5)),0)&">按设定顺序</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(5)),0)&">按ID降序</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(5)),0)&">按ID升序</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>是否自动补齐连接</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=IsRecruit><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(10)),0)&">否</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(10)),0)&">是</option></select> <img src='img/help.gif' align='absmiddle' alt='如果选择是，设置调用数量后，如果系统连接总数未达到此数量，则以“您的连接”补齐。'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>连接间隔符</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=Symbol type=text size=10 maxlength=5 value='"&a_Content(11)&"'> <img src='img/help.gif' align='absmiddle' alt='适用于普通输出格式'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>地区限制</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>"&WRDB.GetAreaSort(2,1,Int(Replace(a_Content(12),"Area",-1)),"A_Area")&"</td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>