wm.skin_label_user.asp

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

<%
	   WM_Content = WRMPS.HCode(2,WM_Content,"\{\$\GetUser\(","\)\}")
	   If WM_Content = "" Then WM_Content = "1,,0,0,2,0,0,1,10,1,显示时将按此HTML代码显示，请按您上面的选项设置正确的HTML代码，此代码中不能出现“{$Get”、“)}”等字符"
	   a_Content = Split(WM_Content,",")
	   AddLabel = AddLabel & "<input name=Action type=hidden value=SaveUser>" & 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=4>"
	   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='TDCSS1' 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 & "    </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 width='13%'>会员组限制</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><select name='A_Group' style='width:120'>"
	   AddLabel = AddLabel & "<option value='0'"&WRMPS.GetCheckVer("0",a_Content(2),0)&">所有</option>"
	   Set Rs = Conn.Execute("Select WM_GroupName,WM_ID from WM_UserGroup Where WM_GroupUser > 0 Order by WM_ID")
	   Do While Not Rs.EOF
         AddLabel = AddLabel & "<option value=" & Rs(1) & " " & WRMPS.GetCheckVer(Rs(1),a_Content(2) , 0) & ">" & Rs(0) & "</option>"
	   Rs.MoveNext
	   Loop
	   Rs.Close
	   AddLabel = AddLabel & " </select></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='13%'>是否为代理</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='20%'><input type=checkbox name=A_Agent value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(3)),1)&"> <img src='img/help.gif' align='absmiddle' alt='选择则只显示代理商会员'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='13%'>性别</td>" & vbCrLf
       AddLabel = AddLabel & "      <td width='21%'><select name='A_Sex' style='width:120'>"
	   AddLabel = AddLabel & "<option value='2'"&WRMPS.GetCheckVer("2",a_Content(4),0)&">所有</option>"
	   AddLabel = AddLabel & "<option value='1'"&WRMPS.GetCheckVer("1",a_Content(4),0)&">男</option>"
	   AddLabel = AddLabel & "<option value='0'"&WRMPS.GetCheckVer("0",a_Content(4),0)&">女</option>"
	   AddLabel = AddLabel & " </select></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "    <tr class=td2> " & vbCrLf
       AddLabel = AddLabel & "      <td>是否经过邮箱认证</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input type=checkbox name=A_RZEmail value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(5)),1)&"> <img src='img/help.gif' align='absmiddle' alt='选择则只显示已通过认证会员'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>是否经过身份证认证</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><input type=checkbox name=A_RZID value=1 Class=radio"&WRMPS.GetCheckVer(1,Int(a_Content(6)),1)&"> <img src='img/help.gif' align='absmiddle' alt='选择则只显示已通过认证会员'></td>" & vbCrLf
       AddLabel = AddLabel & "      <td>排序方式</td>" & vbCrLf
       AddLabel = AddLabel & "      <td><select name=A_OrderType><option value=1"&WRMPS.GetCheckVer(1,Int(a_Content(7)),0)&">ID排序</option><option value=2"&WRMPS.GetCheckVer(2,Int(a_Content(7)),0)&">最后登录</option><option value=3"&WRMPS.GetCheckVer(3,Int(a_Content(7)),0)&">登录次数</option><option value=4"&WRMPS.GetCheckVer(4,Int(a_Content(7)),0)&">金钱</option><option value=5"&WRMPS.GetCheckVer(5,Int(a_Content(7)),0)&">积分</option><option value=6"&WRMPS.GetCheckVer(6,Int(a_Content(7)),0)&">"&WR_Other(0)&"</option><option value=7"&WRMPS.GetCheckVer(7,Int(a_Content(7)),0)&">信用</option><option value=8"&WRMPS.GetCheckVer(8,Int(a_Content(7)),0)&">发布信息</option><option value=9"&WRMPS.GetCheckVer(9,Int(a_Content(7)),0)&">发布文章</option><option value=10"&WRMPS.GetCheckVer(10,Int(a_Content(7)),0)&">登记店铺</option><option value=11"&WRMPS.GetCheckVer(11,Int(a_Content(7)),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_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
       AddLabel = AddLabel & "      <td></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(10),"§№§",","))&"""><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=User&Preview=Right' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='300'></IFRAME></td>" & vbCrLf
       AddLabel = AddLabel & "    </tr>" & vbCrLf
	   AddLabel = AddLabel & "</table>" & vbCrLf	
%>