📄 wm.user.asp
字号:
If Flag_3 = "" Then Flag_3 = Request.Form("c" & (i)) Else Flag_3 = Flag_3 & "|" & Request.Form("c" & (i))
Next
For i = 0 To 17
If WRMPS.CheckStr(Request.Form("d" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组分类信息权限", 0)
If Flag_4 = "" Then Flag_4 = Request.Form("d" & (i)) Else Flag_4 = Flag_4 & "|" & Request.Form("d" & (i))
Next
For i = 0 To 7
If WRMPS.CheckStr(Request.Form("e" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组留言短信权限", 0)
If Flag_5 = "" Then Flag_5 = Request.Form("e" & (i)) Else Flag_5 = Flag_5 & "|" & Request.Form("e" & (i))
Next
WM_GroupFlag = Flag_1&"§"&Flag_2&"§"&Flag_3&"§"&Flag_4&"§"&Flag_5
Conn.Execute ("Update WM_Member Set WM_Flag='" & WM_GroupFlag & "' Where WM_ID = " & ID & "")
Call WRMPS.SCache("FlagTime",Now())
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"'>",1)
Case "Flag"
Dim Flag_1,Flag_2,Flag_3,Flag_4,Flag_5
Rs.Open "Select WM_Flag,WM_GroupID From WM_Member Where WM_ID = " & ID & "", Conn, 1, 1
If Not Rs.EOF Then
WM_GroupFlag = Rs(0)
WM_GroupID = Rs(1)
End If
Rs.Close
Rs.Open "Select WM_GroupName from WM_UserGroup Where WM_ID = " & WM_GroupID & "", Conn, 1, 1
If Not Rs.EOF Then
WM_GroupName = Rs(0)
End If
Rs.Close
WM_GroupFlag = Split(WM_GroupFlag,"§")
Flag_1 = Split(WM_GroupFlag(0),"|")
Flag_2 = Split(WM_GroupFlag(1),"|")
Flag_3 = Split(WM_GroupFlag(2),"|")
Flag_4 = Split(WM_GroupFlag(3),"|")
Flag_5 = Split(WM_GroupFlag(4),"|")
Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
Content = Content & "<form name='addform' method='post' action='?Action=FlagSave'>" & vbCrLf
Content = Content & "<input name=ID type=hidden value=" & ID & ">" & vbCrLf
Content = Content & "<tr><td class=td2 height=5></td></tr>" & vbCrLf
Content = Content & "<tr><td class=td2>" & vbCrLf
Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,5,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit2 onClick=""dis(tit2,show2,5,'Label')"" Class=Label>商家店铺</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit3 onClick=""dis(tit3,show3,5,'Label')"" Class=Label>文章模块</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit4 onClick=""dis(tit4,show4,5,'Label')"" Class=Label>分类信息</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit5 onClick=""dis(tit5,show5,5,'Label')"" Class=Label>留言短信</TD>" & vbCrLf
Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show1><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=4><strong>基本设置</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>所属会员组</strong></td><td><strong>"&WM_GroupName&"</strong></td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>会员注册</strong><br>适用注册用户级别会员</td><td></td><td><input name='a0' type='text' style='width:80' maxlength='10' value='"&Flag_1(0)&"'></td><td><input name='a1' type='text' style='width:80' maxlength='10' value='"&Flag_1(1)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>登录成功</strong></td><td><input name='a2' value='"&Flag_1(2)&"' type='text' style='width:80' maxlength='3'>天操作一次</td><td><input name='a3' type='text' style='width:80' maxlength='10' value='"&Flag_1(3)&"'></td><td><input name='a4' type='text' style='width:80' maxlength='10' value='"&Flag_1(4)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>欠费用户</strong><br>"&WR_Other(0)&"或金钱为负时，后台管理中心操作权限，<font Class=Font2>财富信息</Font>功能除外</td><td><input type=radio name='a5' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(5)),1,1)&"> 开启 <input type=radio name='a5' value=0"&WRMPS.GetCheckVer(Int(Flag_1(5)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>搜索功能</strong></td><td><input type=radio name='a6' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(6)),1,1)&"> 开启 <input type=radio name='a6' value=0"&WRMPS.GetCheckVer(Int(Flag_1(6)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>邮箱认证</strong></td><td></td><td><input name='a7' type='text' style='width:80' maxlength='10' value='"&Flag_1(7)&"'></td><td><input name='a8' type='text' style='width:80' maxlength='10' value='"&Flag_1(8)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>实名认证</strong></td><td></td><td><input name='a9' type='text' style='width:80' maxlength='10' value='"&Flag_1(9)&"'></td><td><input name='a10' type='text' style='width:80' maxlength='10' value='"&Flag_1(10)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>收藏夹功能</strong></td><td><input type=radio name='a11' value='1'"&WRMPS.GetCheckVer(Int(Flag_1(11)),1,1)&"> 开启 <input type=radio name='a11' value=0"&WRMPS.GetCheckVer(Int(Flag_1(11)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>收藏夹上限</strong><br>收藏夹收藏总条数，0为无限制</td><td><input name='a12' type='text' style='width:80' maxlength='5' value='"&Flag_1(12)&"'></td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>点评/评论/短消息最大字符</strong></td><td><input name='a13' type='text' style='width:80' maxlength='5' value='"&Flag_1(13)&"'></td><td></td><td></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show2 Style='display:none'><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=4><strong>商家店铺</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺功能/登记店铺</strong></td><td><input type=radio name='b0' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(0)),1,1)&"> 开启 <input type=radio name='b0' value=0"&WRMPS.GetCheckVer(Int(Flag_2(0)),0,1)&"> 关闭</td><td><input name='b1' type='text' style='width:80' maxlength='10' value='"&Flag_2(1)&"'></td><td><input name='b2' type='text' style='width:80' maxlength='10' value='"&Flag_2(2)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺登记直接通过</strong></td><td><input type=radio name='b3' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(3)),1,1)&"> 开启 <input type=radio name='b3' value=0"&WRMPS.GetCheckVer(Int(Flag_2(3)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺认领</strong></td><td></td><td><input name='b4' type='text' style='width:80' maxlength='10' value='"&Flag_2(4)&"'></td><td><input name='b5' type='text' style='width:80' maxlength='10' value='"&Flag_2(5)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺推荐</strong></td><td></td><td><input name='b6' type='text' style='width:80' maxlength='10' value='"&Flag_2(6)&"'></td><td><input name='b7' type='text' style='width:80' maxlength='10' value='"&Flag_2(7)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺点评</strong></td><td><input type=radio name='b8' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(8)),1,1)&"> 开启 <input type=radio name='b8' value=0"&WRMPS.GetCheckVer(Int(Flag_2(8)),0,1)&"> 关闭</td><td><input name='b9' type='text' style='width:80' maxlength='10' value='"&Flag_2(9)&"'></td><td><input name='b10' type='text' style='width:80' maxlength='10' value='"&Flag_2(10)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>点评直接通过</strong></td><td><input type=radio name='b11' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(11)),1,1)&"> 开启 <input type=radio name='b11' value=0"&WRMPS.GetCheckVer(Int(Flag_2(11)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺留言</strong></td><td><input type=radio name='b12' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(12)),1,1)&"> 开启 <input type=radio name='b12' value=0"&WRMPS.GetCheckVer(Int(Flag_2(12)),0,1)&"> 关闭</td><td><input name='b13' type='text' style='width:80' maxlength='10' value='"&Flag_2(13)&"'></td><td><input name='b14' type='text' style='width:80' maxlength='10' value='"&Flag_2(14)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>留言直接通过</strong></td><td><input type=radio name='b15' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(15)),1,1)&"> 开启 <input type=radio name='b15' value=0"&WRMPS.GetCheckVer(Int(Flag_2(15)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺资料补充</strong><br>前提为此店铺未被认领</td><td><input type=radio name='b16' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(16)),1,1)&"> 开启 <input type=radio name='b16' value=0"&WRMPS.GetCheckVer(Int(Flag_2(16)),0,1)&"> 关闭</td><td><input name='b17' type='text' style='width:80' maxlength='10' value='"&Flag_2(17)&"'></td><td><input name='b18' type='text' style='width:80' maxlength='10' value='"&Flag_2(18)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>上传优惠券</strong></td><td><input type=radio name='b19' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(19)),1,1)&"> 开启 <input type=radio name='b19' value=0"&WRMPS.GetCheckVer(Int(Flag_2(19)),0,1)&"> 关闭</td><td><input name='b20' type='text' style='width:80' maxlength='10' value='"&Flag_2(20)&"'></td><td><input name='b21' type='text' style='width:80' maxlength='10' value='"&Flag_2(21)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>优惠券直接通过</strong></td><td><input type=radio name='b22' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(22)),1,1)&"> 开启 <input type=radio name='b22' value=0"&WRMPS.GetCheckVer(Int(Flag_2(22)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>发布店铺优惠信息</strong></td><td><input type=radio name='b23' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(23)),1,1)&"> 开启 <input type=radio name='b23' value=0"&WRMPS.GetCheckVer(Int(Flag_2(23)),0,1)&"> 关闭</td><td><input name='b24' type='text' style='width:80' maxlength='10' value='"&Flag_2(24)&"'></td><td><input name='b25' type='text' style='width:80' maxlength='10' value='"&Flag_2(25)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>优惠信息直接通过</strong></td><td><input type=radio name='b26' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(26)),1,1)&"> 开启 <input type=radio name='b26' value=0"&WRMPS.GetCheckVer(Int(Flag_2(26)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>上传店铺图片</strong></td><td><input type=radio name='b27' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(27)),1,1)&"> 开启 <input type=radio name='b27' value=0"&WRMPS.GetCheckVer(Int(Flag_2(27)),0,1)&"> 关闭</td><td><input name='b28' type='text' style='width:80' maxlength='10' value='"&Flag_2(28)&"'></td><td><input name='b29' type='text' style='width:80' maxlength='10' value='"&Flag_2(29)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺图片直接通过</strong></td><td><input type=radio name='b30' value='1'"&WRMPS.GetCheckVer(Int(Flag_2(30)),1,1)&"> 开启 <input type=radio name='b30' value=0"&WRMPS.GetCheckVer(Int(Flag_2(30)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show3 Style='display:none'><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=4><strong>文章模块</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>文章功能/发表文章</strong></td><td><input type=radio name='c0' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(0)),1,1)&"> 开启 <input type=radio name='c0' value=0"&WRMPS.GetCheckVer(Int(Flag_3(0)),0,1)&"> 关闭</td><td><input name='c1' type='text' style='width:80' maxlength='10' value='"&Flag_3(1)&"'></td><td><input name='c2' type='text' style='width:80' maxlength='10' value='"&Flag_3(2)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>文章直接通过</strong></td><td><input type=radio name='c3' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(3)),1,1)&"> 开启 <input type=radio name='c3' value=0"&WRMPS.GetCheckVer(Int(Flag_3(3)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>文章阅读收费</strong><br>开启则阅读需要收费的文章时自动扣费<br>关闭则可免费阅读所有文章</td><td><input type=radio name='c4' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(4)),1,1)&"> 开启 <input type=radio name='c4' value=0"&WRMPS.GetCheckVer(Int(Flag_3(4)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>文章推荐</strong></td><td></td><td><input name='c5' type='text' style='width:80' maxlength='10' value='"&Flag_3(5)&"'></td><td><input name='c6' type='text' style='width:80' maxlength='10' value='"&Flag_3(6)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>文章评论</strong></td><td><input type=radio name='c7' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(7)),1,1)&"> 开启 <input type=radio name='c7' value=0"&WRMPS.GetCheckVer(Int(Flag_3(7)),0,1)&"> 关闭</td><td><input name='c8' type='text' style='width:80' maxlength='10' value='"&Flag_3(8)&"'></td><td><input name='c9' type='text' style='width:80' maxlength='10' value='"&Flag_3(9)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>评论直接通过</strong></td><td><input type=radio name='c10' value='1'"&WRMPS.GetCheckVer(Int(Flag_3(10)),1,1)&"> 开启 <input type=radio name='c10' value=0"&WRMPS.GetCheckVer(Int(Flag_3(10)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show4 Style='display:none'><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=4><strong>分类信息</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信息功能/发布信息</strong></td><td><input type=radio name='d0' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(0)),1,1)&"> 开启 <input type=radio name='d0' value=0"&WRMPS.GetCheckVer(Int(Flag_4(0)),0,1)&"> 关闭</td><td><input name='d1' type='text' style='width:80' maxlength='10' value='"&Flag_4(1)&"'></td><td><input name='d2' type='text' style='width:80' maxlength='10' value='"&Flag_4(2)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>可免费发布条数</strong><br>设0则无限制<br>超出信息审核通过后将按条扣费</td><td><input name='d3' type='text' style='width:80' maxlength='10' value='"&Flag_4(3)&"'></td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>超出信息收费</strong></td><td></td><td><input name='d4' type='text' style='width:80' maxlength='10' value='"&Flag_4(4)&"'></td><td><input name='d5' type='text' style='width:80' maxlength='10' value='"&Flag_4(5)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信息直接通过</strong></td><td><input type=radio name='d6' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(6)),1,1)&"> 开启 <input type=radio name='d6' value=0"&WRMPS.GetCheckVer(Int(Flag_4(6)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信息推荐</strong></td><td></td><td><input name='d7' type='text' style='width:80' maxlength='10' value='"&Flag_4(7)&"'></td><td><input name='d8' type='text' style='width:80' maxlength='10' value='"&Flag_4(8)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信息阅读收费</strong><br>开启则阅读需要收费的文章时自动扣费<br>关闭则可免费阅读所有文章</td><td><input type=radio name='d9' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(9)),1,1)&"> 开启 <input type=radio name='d9' value=0"&WRMPS.GetCheckVer(Int(Flag_4(9)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信息评论</strong></td><td><input type=radio name='d10' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(10)),1,1)&"> 开启 <input type=radio name='d10' value=0"&WRMPS.GetCheckVer(Int(Flag_4(10)),0,1)&"> 关闭</td><td><input name='d11' type='text' style='width:80' maxlength='10' value='"&Flag_4(11)&"'></td><td><input name='d12' type='text' style='width:80' maxlength='10' value='"&Flag_4(12)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>评论直接通过</strong></td><td><input type=radio name='d13' value='1'"&WRMPS.GetCheckVer(Int(Flag_4(13)),1,1)&"> 开启 <input type=radio name='d13' value=0"&WRMPS.GetCheckVer(Int(Flag_4(13)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>用户推荐</strong></td><td></td><td><input name='d14' type='text' style='width:80' maxlength='10' value='"&Flag_4(14)&"'></td><td><input name='d15' type='text' style='width:80' maxlength='10' value='"&Flag_4(15)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>用户投诉</strong></td><td></td><td><input name='d16' type='text' style='width:80' maxlength='10' value='"&Flag_4(16)&"'></td><td><input name='d17' type='text' style='width:80' maxlength='10' value='"&Flag_4(17)&"'></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show5 Style='display:none'><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=4><strong>留言短信</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center><td width='35%'><strong>项目</strong></td><td width='25%'><strong>基础设置</strong></td><td width='20%'><strong>积分</strong></td><td width='20%'><strong>"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>短消息功能</strong><br>关闭后将禁止对外发消息</td><td><input type=radio name='e0' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(0)),1,1)&"> 开启 <input type=radio name='e0' value=0"&WRMPS.GetCheckVer(Int(Flag_5(0)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>成功发送一条短消息</strong></td><td></td><td><input name='e1' type='text' style='width:80' maxlength='10' value='"&Flag_5(1)&"'></td><td><input name='e2' type='text' style='width:80' maxlength='10' value='"&Flag_5(2)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>短消息上限</strong><br>收件箱消息条数，0为无限制</td><td><input name='e3' type='text' style='width:80' maxlength='5' value='"&Flag_5(3)&"'></td><td></td><td></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>留言权限</strong></td><td><input type=radio name='e4' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(4)),1,1)&"> 开启 <input type=radio name='e4' value=0"&WRMPS.GetCheckVer(Int(Flag_5(4)),0,1)&"> 关闭</td><td><input name='e5' type='text' style='width:80' maxlength='10' value='"&Flag_5(5)&"'></td><td><input name='e6' type='text' style='width:80' maxlength='10' value='"&Flag_5(6)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>留言直接通过</strong></td><td><input type=radio name='e7' value='1'"&WRMPS.GetCheckVer(Int(Flag_5(7)),1,1)&"> 开启 <input type=radio name='e7' value=0"&WRMPS.GetCheckVer(Int(Flag_5(7)),0,1)&"> 关闭</td><td></td><td></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr class=td4><td height=30 align=center><input type=submit name='Submit' value='提 交' ></td></tr>" & vbCrLf
Content = Content & "<tr><td class=td2><b> 注：</b><br> ① 部分功能对未登录用户无效<br> ② 扣除请在前面加“-”，如扣除1积分请填写“-1”<br> ③ 所有的积分和"&WR_Other(0)&"操作都是在整个过程完成后，如发信息增加积分，是要后台审核通过后才会增加的</td></tr>" & vbCrLf
Content = Content & "</form></Table><script>document.addform.WM_GroupName.focus()</script>" & vbCrLf
Case "Through"
Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
Content = Content & "<form action='?Action=Save&Reh=Through' name=myform method=POST>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=9><strong>待审核用户管理</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center>" & vbCrLf
Content = Content & "<td width='4%'></td>" & vbCrLf
Content = Content & "<td>用户名</td>" & vbCrLf
Content = Content & "<td width='20%'>Email(点击发邮件)</td>" & vbCrLf
Content = Content & "<td width='15%'>注册时间</td>" & vbCrLf
Content = Content & "<td width='12%'>管理</td></tr>" & vbCrLf
sql = "select * from WM_Member where WM_Key=0 order by WM_ID desc"
Rs.Open Sql, Conn, 1, 1
If Rs.EOF Then
Content = Content & "<tr><td colspan=9></td></tr></table>" & vbCrLf
Else
'分页的实现
ListNum = 20
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -