wm.skin_label_article.asp

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

       AddLabel = AddLabel & "      <td><input name=A_DayNum type=text size=10 maxlength=5 value='"&a_Content(11)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></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_TitleHand><option value=''"&WRMPS.GetCheckVer("",a_Content(12),0)&">无内容</option><option value=Class"&WRMPS.GetCheckVer("Class",a_Content(12),0)&">所属栏目</option><option value=ID"&WRMPS.GetCheckVer("ID",a_Content(12),0)&">ID号</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>自订义显示</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_TitleHand_1 type=text size=10 value='"
       If a_Content(12) <> "Class" And a_Content(12) <> "ID" Then AddLabel = AddLabel & a_Content(12)
       AddLabel = AddLabel & "'> <img src='img/help.gif' align='absmiddle' alt='如果这里设置后，前面显示内容设置将无效'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>连接样式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_HandLinkCss type=text size=10 value='"&a_Content(13)&"'> <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=A_HandOpenType><option value=_blank"&WRMPS.GetCheckVer("_blank",a_Content(14),0)&">新窗口</option><option value=_self"&WRMPS.GetCheckVer("_self",a_Content(14),0)&">原窗口</option><option value=_parent"&WRMPS.GetCheckVer("_parent",a_Content(14),0)&">主窗口</option><option value=_top"&WRMPS.GetCheckVer("_top",a_Content(14),0)&">父窗口</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>间隔字符</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_HandSymbol type=text value="""&Server.HTMLEncode(Split(a_Content(15),"§")(0))&""" size=5>内容<input name=A_HandSymbol_1 type=text value="""&Server.HTMLEncode(Split(a_Content(15),"§")(1))&""" size=5> <img src='img/help.gif' align='absmiddle' alt='不能为§'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>间隔字符CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_HandSymbolColor type=text size=10 value='"&a_Content(16)&"'> <img src='img/help.gif' align='absmiddle' alt='如标题头为ID或自定义字符将共用此CSS，主题中已定义的CSS'></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><input name=A_Len type=text size=10 maxlength=5 value='"&a_Content(17)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，此数字将会算上所有显示内容，0为不限制'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>是否显示省略号</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=A_TitleEllipsis><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(18)),0)&">不显示</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(18)),0)&">显示</option></select> <img src='img/help.gif' align='absmiddle' alt='限制标题字数时适用'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>连接样式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_LinkCss type=text size=10 value='"&a_Content(22)&"'> <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 colspan=3><input type=checkbox name=A_Tips value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(19)),1)&">标题浮动信息 <input type=checkbox name=A_ShowIncludePic value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(20)),1)&">[图文]等字样 <input type=checkbox name=A_CommentLink value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(24)),1)&">评论连接</td>" & vbCrLf
       AddLabel = AddLabel & "      <td>评论连接CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_CommentCss type=text size=10 value='"&a_Content(25)&"'> <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=A_OrderType><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(21)),0)&">ID排序</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(21)),0)&">点击排序</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(21)),0)&">回复排序</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(21)),0)&">收藏排序</option><option value=5"&WRMPS.GetCheckVer(5,Int(a_Content(21)),0)&">头条排序</option><option value=6"&WRMPS.GetCheckVer(6,Int(a_Content(21)),0)&">热门排序</option><option value=7"&WRMPS.GetCheckVer(7,Int(a_Content(21)),0)&">推荐排序</option><option value=8"&WRMPS.GetCheckVer(8,Int(a_Content(21)),0)&">评分排序</option></select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>打开方式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=3><select name=A_OpenType><option value=_blank"&WRMPS.GetCheckVer("_blank",a_Content(23),0)&">新窗口</option><option value=_self"&WRMPS.GetCheckVer("_self",a_Content(23),0)&">原窗口</option><option value=_parent"&WRMPS.GetCheckVer("_parent",a_Content(23),0)&">主窗口</option><option value=_top"&WRMPS.GetCheckVer("_top",a_Content(23),0)&">父窗口</option></select> <img src='img/help.gif' align='absmiddle' alt='标题和评论连接适用'></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 colspan=3><input type=checkbox name=A_HotSign value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(26)),1)&">热门标志 <input type=checkbox name=A_NewSign value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(29)),1)&">新进标志 <input type=checkbox name=A_Commend value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(40)),1)&">推荐标志 <input type=checkbox name=A_Editor value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(31)),1)&">作者 <input type=checkbox name=A_Hits value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(32)),1)&">点击数</td>" & vbCrLf
       AddLabel = AddLabel & "      <td>更新日期</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=A_DateType><option value=0"&WRMPS.GetCheckVer(0,Int(a_Content(28)),0)&">不显示</option><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(28)),0)&">年月日时分秒</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(28)),0)&">月日</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(28)),0)&">时分</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(28)),0)&">年月日</option><option value=5"&WRMPS.GetCheckVer(5,Int(a_Content(28)),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_HotNum type=text size=10 maxlength=5 value='"&a_Content(27)&"'> <img src='img/help.gif' align='absmiddle' alt='当点击达到此点击数或后台设置为热门时显示,0为不限制'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>新文章条件</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_NewNum type=text size=10 maxlength=5 value='"&a_Content(30)&"'> <img src='img/help.gif' align='absmiddle' alt='此天数内添加的文章算新进文章,0为不限制'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>间隔字符</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_TeilSymbol type=text value="""&Server.HTMLEncode(Split(a_Content(33),"§")(0))&""" size=4>内容<input name=A_TeilSymbol_1 type=text value="""&Server.HTMLEncode(Split(a_Content(33),"§")(1))&""" size=4> <img src='img/help.gif' align='absmiddle' alt='不能为§'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
       AddLabel = AddLabel & "      <td>标题尾内容CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td colspan=5><input name=A_TeilSymbolColor type=text size=10 value='"&a_Content(34)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></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><input name=A_ContentLen type=text size=10 maxlength=5 value='"&a_Content(35)&"'> <img src='img/help.gif' align='absmiddle' alt='一个汉字=两个英文字符，0为不显示'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>内容CSS</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input name=A_ContentColor type=text size=10 value='"&a_Content(36)&"'> <img src='img/help.gif' align='absmiddle' alt='主题中已定义的CSS'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>图片尺寸</td>" & vbCrLf
       AddLabel = AddLabel & "      <td>宽<input name=A_Width type=text size=4 maxlength=5 value='"&a_Content(37)&"'>x高<input name=A_Height type=text size=4 maxlength=5 value='"&a_Content(38)&"'> <img src='img/help.gif' align='absmiddle' alt='0为不限制'></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf
%>