wm.skin_label_menu.asp

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

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetMenu\(","\)\}")
	   If WM_Content = "" Then WM_Content = "0,0,2,1,,首页,,0,0,,,,,,"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveMenu>" & 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='10%' rowspan=4>选择频道</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='23%' rowspan=4><select name='ChannelID' size=10 style='width:130'>"
	   AddLabel = AddLabel & "<option value='0,0'"&WRMPS.GetCheckVer(a_Content(0)&","&a_Content(1),"0,0",0)&">做为总导航菜单</option>"
	   AddLabel = AddLabel & "<option value='-1,-1'"&WRMPS.GetCheckVer(a_Content(0)&","&a_Content(1),"-1,-1",0)&">当前频道</option>"
       Set Rs = Conn.Execute("select WM_ID,WM_ChannelName,WM_Module from WM_Channel where WM_Key = 1 And (WM_Module = 1 Or WM_Module = 2 Or WM_Module = 6) Order By WM_OrderID")
       Do While Not Rs.Eof
	     AddLabel = AddLabel & "<option value='"&Rs(0)&","&Rs(2)&"'"&WRMPS.GetCheckVer(a_Content(0)&","&a_Content(1),Rs(0)&","&Rs(2),0)&">　"&Rs(1)&"</option>"
	   Rs.MoveNext
	   Loop
       Rs.Close
	   AddLabel = AddLabel & "      </select> <img src='img/help.gif' align='absmiddle' alt='选择频道则显示其下面一级栏目菜单'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='15%'>输出格式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='18%'><select name='Export' onchange=""Label(this.options[this.selectedIndex].value)""><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(3)),0)&">普通格式</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(3)),0)&">Table格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(3)),0)&">DIV+CSS格式</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=2 rowspan=2>"
	   AddLabel = AddLabel & "<div id=table"
	   If Int(a_Content(3)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;TD Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(4)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'><br>鼠标悬停 &lt;TD Class=""<input name='TDStopCSS' type='text' class=LIC value='"&a_Content(6)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table鼠标悬停时的CSS样式，主题中已定义的CSS'></div>"
	   AddLabel = AddLabel & "<div id=div"
	   If Int(a_Content(3)) <> 3 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;div Class=""<input name='TDCSS0' type='text' class=LIC value='"&a_Content(4)&"'>""&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(13)&"'>""&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(14)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Li的CSS样式，主题中已定义的CSS'><br>鼠标悬停 &lt;li Class=""<input name='TDStopCSS0' type='text' class=LIC value='"&a_Content(6)&"'>""&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>首页连接文字</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name='IndexText' type='text' style='width:80' value='"&a_Content(5)&"'> <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><input name='ColsNum' type='text' style='width:80' maxlength='2' value='"&a_Content(7)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='15%'>是否显示相关说明</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width=*><select name='Explain'><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>菜单连接CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name='CSS' type='text' style='width:80' value='"&a_Content(9)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>连接目标</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name='OpenType'><option value=_self"&WRMPS.GetCheckVer("_self",a_Content(10),0)&">原窗口</option><option value=_blank"&WRMPS.GetCheckVer("_blank",a_Content(10),0)&">新窗口</option><option value=_parent"&WRMPS.GetCheckVer("_parent",a_Content(10),0)&">主窗口</option><option value=_top"&WRMPS.GetCheckVer("_top",a_Content(10),0)&">父窗口</option></select> <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><select name='Show'><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></select> <img src='img/help.gif' align='absmiddle' alt='此功能对总导航菜单有效'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>菜单间隔字符</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name='Symbol' type='text' style='width:80' value="""&Server.HTMLEncode(a_Content(11))&"""> <img src='img/help.gif' align='absmiddle' alt='输出格式为普通格式时适用'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>间隔字符CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name='SymbolCSS' type='text' style='width:80' value='"&a_Content(12)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>