wm.skin_label_searchkey.asp

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

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetSearchKey\(","\)\}")
	   If WM_Content = "" Then WM_Content = "1,,1,,0,,,_blank,0,,§,0,,0"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveSearchKey>" & 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(0)),0)&">普通格式</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(0)),0)&">Table格式</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(0)),0)&">DIV+CSS格式</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=2>"
	   AddLabel = AddLabel & "<div id=table"
       If Int(a_Content(0)) <> 2 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;TD Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(1)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Table的CSS样式，主题中已定义的CSS'></div>"
	   AddLabel = AddLabel & "<div id=div"
	   If Int(a_Content(0)) <> 3 Then AddLabel = AddLabel & " Style='display:none'"
	   AddLabel = AddLabel & ">&lt;div Class=""<input name='TDCSS' type='text' class=LIC value='"&a_Content(1)&"'>""&gt; <img src='img/help.gif' align='absmiddle' alt='Div的CSS样式，主题中已定义的CSS'></div>"
       AddLabel = AddLabel & "      </td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>调用数量</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=Num type=text size=10 maxlength=5 value='"&a_Content(2)&"'> <img src='img/help.gif' align='absmiddle' alt='最小为1'></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='TypeID'><option value='0'"&WRMPS.GetCheckVer(a_Content(3),"0",0)&">做为全站热门关键词</option><option value='1'"&WRMPS.GetCheckVer(a_Content(3),"1",0)&">文章模块</option><option value='2'"&WRMPS.GetCheckVer(a_Content(3),"2",0)&">分类信息</option><option value='3'"&WRMPS.GetCheckVer(a_Content(3),"3",0)&">店铺模块</option></select> <img src='img/help.gif' align='absmiddle' alt='支持多选，但所有频道、当前频道和具体频道中任意两者均不能同时选择单'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='13%'>显示例数</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><input name=ColsNum type=text size=10 maxlength=5 value='"&a_Content(4)&"'> <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=Css type=text size=10 value='"&a_Content(6)&"'> <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><input name=Symbol type=text value="""&Server.HTMLEncode(a_Content(5))&""" size=10> <img src='img/help.gif' align='absmiddle' alt='只对输入格式为普通格式地有效'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>间隔字符样式</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=SymbolCss type=text size=10 value='"&a_Content(12)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>打开方式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=OpenType><option value=_blank"&WRMPS.GetCheckVer(a_Content(7),"_blank",0)&">新窗口</option><option value=_self"&WRMPS.GetCheckVer(a_Content(7),"_self",0)&">原窗口</option><option value=_parent"&WRMPS.GetCheckVer(a_Content(7),"_parent",0)&">主窗口</option><option value=_top"&WRMPS.GetCheckVer(a_Content(7),"_top",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=Hit><option value=0"&WRMPS.GetCheckVer(Int(a_Content(8)),0,0)&">不显示</option><option value=1"&WRMPS.GetCheckVer(Int(a_Content(8)),1,0)&">显示</option></select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>数量间隔字符</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=CSymbol type=text value="""&Server.HTMLEncode(Split(a_Content(10),"§")(0))&""" size=4>内容<input name=CSymbol_1 type=text value="""&Server.HTMLEncode(Split(a_Content(10),"§")(1))&""" size=4> <img src='img/help.gif' align='absmiddle' alt='不能为§'></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>次数样式</td>" & vbCrLf
	   AddLabel = AddLabel & "      <td><input name=HitCss type=text size=10 value='"&a_Content(9)&"'> <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=Taxis><option value=0"&WRMPS.GetCheckVer(Int(a_Content(11)),0,0)&">按搜索次数排序</option><option value=1"&WRMPS.GetCheckVer(Int(a_Content(11)),1,0)&">按使用时间排序</option><option value=2"&WRMPS.GetCheckVer(Int(a_Content(11)),2,0)&">按ID排序</option><option value=3"&WRMPS.GetCheckVer(Int(a_Content(11)),3,0)&">推荐排序</option></select></td>" & vbCrLf
	   AddLabel = AddLabel & "      <td>只调用推荐</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input type=checkbox name=Commend value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(13)),1)&"> <img src='img/help.gif' align='absmiddle' alt='选中则只显示推荐的关键词'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>