wm.skin_label_article.asp

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

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetArticle\(","\)\}")
	   If WM_Content = "" Then WM_Content = ",2,1,,0,0,0,0,1,,,,,,_blank,§,,,0,0,0,1,,_blank,0,,0,,0,0,,0,0,§,,,,,,,0,,"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveArticle>" & 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 width='14%'>显示模式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='19%'><select name=A_Type><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(2)),0)&">纯标题列表</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(2)),0)&">上标题下内容+列表</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(2)),0)&">图片列表</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(2)),0)&">上图片下标题+列表</option><option value=5"&WRMPS.GetCheckVer(5,Int(a_Content(2)),0)&">图片+标题幻灯片</option><option value=6"&WRMPS.GetCheckVer(6,Int(a_Content(2)),0)&">左上图+标题列表</option><option value=7"&WRMPS.GetCheckVer(7,Int(a_Content(2)),0)&">右上图+标题列表</option><option value=8"&WRMPS.GetCheckVer(8,Int(a_Content(2)),0)&">常规表格列表</option></select><img src='img/help.gif' align='absmiddle' alt='图片+标题幻灯片暂只支持JPG格式的首页图片'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='15%'>输出格式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='19%'><select name='Export' onchange=""Label(this.options[this.selectedIndex].value)""><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(1)),0)&">Table格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(1)),0)&">DIV+CSS格式</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=2>"
	   AddLabel = AddLabel & "<div id=table"
	   If Int(a_Content(1)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;TD Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(39)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'></div>"
	   AddLabel = AddLabel & "<div id=div"
	   If Int(a_Content(1)) <> 3 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;div Class=""<input name='TDCSS0' type='text' class=LIC value='"&a_Content(39)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Div的CSS样式，主题中已定义的CSS'><br>&lt;ul Class=""<input name='TDCSS1' type='text' class=LIC value='"&a_Content(41)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Ul的CSS样式，主题中已定义的CSS'><br>&lt;li Class=""<input name='TDCSS2' type='text' class=LIC value='"&a_Content(42)&"'>""&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><td colspan=6 class=td3><strong>调用条件</strong></td></tr>" & vbCrLf
	   AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
       AddLabel = AddLabel & "      <td>频道限制</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name='A_Channel' multiple size=5 style='width:120' onChange=""selectshow(document.addform.A_Channel.options[document.addform.A_Channel.selectedIndex].value)"">"
	   AddLabel = AddLabel & "<option value=''"&WRMPS.GetCheckVer("||","|"&a_Content(0)&"|",0)&">所有频道</option>"
	   AddLabel = AddLabel & "<option value='Channel'"&WRMPS.GetCheckVer("|Channel|","|"&a_Content(0)&"|",0)&">当前频道</option>"
       Set Rs = Conn.Execute("select WM_ID,WM_ChannelName From WM_Channel where WM_Key = 1 And WM_Module = 1 Order By WM_OrderID")
       Do While Not Rs.Eof
        AddLabel = AddLabel & "<option value='"&Rs(0)&"'"
        If InStr("|"&a_Content(0)&"|","|"&Rs(0)&"|") > 0 Then AddLabel = AddLabel & " Selected"
        AddLabel = AddLabel & ">　"&Rs(1)&"</option>"
	    S = S & "case """&Rs(0)&""":"&vbCrLf&"selects.innerHTML=""<select name='A_Class' size=5 style='width:120' multiple><option value=''"&WRMPS.GetCheckVer("||","|"&a_Content(3)&"|",0)&">所有栏目</option><option value='Class'"&WRMPS.GetCheckVer("|Class|","|"&a_Content(3)&"|",0)&">当前栏目</option>"
		Set Rss = Conn.Execute("Select WM_ID,WM_Name,WM_Depth,WM_Child From WM_ArticleSort Where WM_ChannelID="&Rs(0)&" and WM_Type = 1 Order By WM_ClassID,WM_Taxis")
        Do While Not Rss.EOF
        S = S & "<option value='" & Rss(0) & "'"
        If InStr("|"&a_Content(3)&"|","|"&Rss(0)&"|") > 0 Then S = S & " Selected"
        S = S & ">"
        If Rss(2) > 0 Then
          For i = 1 To Rss(2)
            S = S & "　"
          Next
        End If
        If Rss(3) > 0 Then S = S & "　└ " Else S = S & "　├ "
        S = S & Rss(1)
        S = S & "</option>"
        Rss.MoveNext
        Loop
	    Rss.Close
	   	S = S & "</select> <img src='img/help.gif' align='absmiddle' alt='支持多选，但所有栏目、当前栏目和具体栏目中任意两者均不能同时选择'>"";"&vbCrLf&"break;" & vbCrLf
	   Rs.MoveNext
	   Loop
       Rs.Close
	   AddLabel = AddLabel & " </select> <img src='img/help.gif' align='absmiddle' alt='支持多选，但所有频道、当前频道和具体频道中任意两者均不能同时选择'></td>" & vbCrLf
	   AddLabel = AddLabel & "<script>"&vbCrLf&"function selectshow(i){"&vbCrLf&"switch(i){"&vbCrLf&S&"default:"&vbCrLf&"selects.innerHTML="""";"&vbCrLf&"break;"&vbCrLf&"}}"&vbCrLf&"</script>" & vbCrLf
       AddLabel = AddLabel & "      <td>栏目限制</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><span id=selects></span><script>selectshow("""&a_Content(0)&""")</script></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='15%'>是否包含子栏目</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='18%'><input type=checkbox name=A_ChildClass value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(4)),1)&"> <img src='img/help.gif' align='absmiddle' alt='为单个栏目时有效，极占资源'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
       AddLabel = AddLabel & "      <td></td>" & vbCrLf
       AddLabel = AddLabel & "      <td></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>文章属性</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input type=checkbox name=A_IsDefault value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(5)),1)&">头条 <input type=checkbox name=A_IsHot value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(6)),1)&">热门 <input type=checkbox name=A_IsElite value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(7)),1)&">推荐</td>" & vbCrLf
       AddLabel = AddLabel & "      <td>编辑限制</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_InputerName type=text size=10 maxlength=20 value='"&a_Content(10)&"'> <img src='img/help.gif' align='absmiddle' alt='不为空则只显示此编辑的文章，C为当前编辑'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
       AddLabel = AddLabel & "      <td>调用数量</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_Num type=text size=10 maxlength=5 value='"&a_Content(8)&"'> <img src='img/help.gif' align='absmiddle' alt='最小为1'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>每行列数</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_ColsNum 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