wm.skin_label_classsortlist.asp

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

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetClassSortList\(","\)\}")
	   If WM_Content = "" Then WM_Content = "0,-1,,,,,0,0,0,,0,1,显示时将按此HTML代码显示，请按您上面的选项设置正确的HTML代码，此代码中不能出现英文豆号、“{$Get”、“)}”等字符,2,,,,0"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveClassSortList>" & 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=2"&WRMPS.GetCheckVer(2,Int(a_Content(13)),0)&">Table格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(13)),0)&">DIV+CSS格式</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=2>"
	   AddLabel = AddLabel & "<div id=table"
	   If Int(a_Content(13)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;TD Class=""<input name='TDCSS' type='text' class=LIC value='"&Replace(a_Content(14),"""","")&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'></div>"
	   AddLabel = AddLabel & "<div id=div"
	   If Int(a_Content(13)) <> 3 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;div Class=""<input name='TDCSS0' type='text' class=LIC value='"&Replace(a_Content(14),"""","")&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Div的CSS样式，主题中已定义的CSS'><br>&lt;ul Class=""<input name='TDCSS1' type='text' class=LIC value='"&Replace(a_Content(15),"""","")&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Ul的CSS样式，主题中已定义的CSS'><br>&lt;li Class=""<input name='TDCSS2' type='text' class=LIC value='"&Replace(a_Content(16),"""","")&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Li的CSS样式，主题中已定义的CSS'></div>"
       AddLabel = AddLabel & "      </td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>栏目数量</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=A_SortNum type=text size=10 maxlength=20 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 width='13%'>分类限制</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><select name='A_ParentID' size=1>"
	   AddLabel = AddLabel & "<option value='0'"&WRMPS.GetCheckVer(0,Int(a_Content(0)),0)&">所有大类</option>"
	   AddLabel = AddLabel & "<option value='-1'"&WRMPS.GetCheckVer(-1,Int(a_Content(0)),0)&">当前分类</option>"
	   Set Rs = Conn.Execute("Select WM_ID,WM_Name,WM_Depth,WM_Child from WM_ClassSort Order By WM_ClassID,WM_Taxis")
       Do While Not Rs.EOF
        S = S & "<option value='" & Rs(0) & "'"&WRMPS.GetCheckVer(Rs(0),Int(a_Content(0)),0)& ">"
        If Rs(2) > 0 Then
          For i = 1 To Rs(2)
            S = S & "　"
          Next
        End If
        If Rs(3) > 0 Then S = S & "　└ " Else S = S & "　├ "
        S = S & Rs(1)
        S = S & "</option>"
       Rs.MoveNext
       Loop
	   Rs.Close
	   AddLabel = AddLabel & S &" </select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='13%'>地区限制</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td width='21%'>"&WRDB.GetAreaSort(2,1,Int(Replace(a_Content(1),"AreaID",-1)),"A_AreaID")&"</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='13%'>是否包含子地区</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><input type=checkbox name=A_ChildArea value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(17)),1)&"> <img src='img/help.gif' align='absmiddle' alt='极占资源，如果地区限制选择"&WR_Area(0)&"将无效'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>栏目列数</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=A_SortColsNum type=text size=10 maxlength=20 value='"&a_Content(3)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>信息数量</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=A_Num type=text size=10 maxlength=20 value='"&a_Content(4)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>新进信息条件</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=A_CNewDay type=text size=10 maxlength=5 value='"&a_Content(5)&"'> <img src='img/help.gif' align='absmiddle' alt='此天数内添加的信息算新进信息，此项将约束下面HTML代码中的新进标志是否显示，0为不显示'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>是否过期</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><select name='A_IsOver'size=1><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(6)),0)&">不限制</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(6)),0)&">已过期</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(6)),0)&">未过期</option></select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>是否推荐</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><select name='A_IsElite'size=1><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(7)),0)&">不限制</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(7)),0)&">推荐</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(7)),0)&">未推荐</option></select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>有无图片</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><select name='A_IsPic'size=1><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(8)),0)&">不限制</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(8)),0)&">有图片</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td>最大字符数</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=A_Len type=text size=10 maxlength=5 value='"&a_Content(9)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，此数字将会算上所有显示内容，0为不限制'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>是否显示省略号</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><select name=A_Ellipsis><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><select name=A_Desc><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(11)),0)&">ID排序</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(11)),0)&">点击排序</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(11)),0)&">回复排序</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(11)),0)&">推荐排序</option><option value=5"&WRMPS.GetCheckVer(5,Int(a_Content(11)),0)&">用户推荐</option><option value=6"&WRMPS.GetCheckVer(6,Int(a_Content(11)),0)&">用户收藏</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td3> " & vbCrLf
	   AddLabel = AddLabel & "      <td colspan=6>单个栏目HTML内容设定 <img src='img/help.gif' align='absmiddle' alt='栏目显示时将按此HTML代码显示"&vbCrLf&"请按您上面的选项设置正确的HTML代码"&vbCrLf&"此代码中不能出现“,”、“{$Get”、“)}”等字符'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
       AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
	   AddLabel = AddLabel & "      <td colspan=6><INPUT type='hidden' name='Content' value="""&Server.HTMLEncode(Replace(a_Content(12),"§№§",","))&"""><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=ClassSortList&Preview=Right' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='300'></IFRAME></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>