📄 wm.user.asp
字号:
Set Rso = Conn.Execute("Select WM_GroupName,WM_ID from WM_UserGroup Where WM_GroupUser > 0 and WM_ID <> 3 Order by WM_ID")
Do While Not Rso.EOF
Content = Content & "<option value=" & Rso(1) & " " & WRMPS.GetCheckVer(Rso(1), Rs(11), 0) & ">" & Rso(0) & "</option>"
Rso.MoveNext
Loop
Rso.Close
Content = Content & "</select>"
End If
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>网站地址</strong></td><td colspan=2><input name=Web type=text Style='width:200' maxlength=50 value="&Rs(9)&"></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>头像</strong></td><td width='56%'><select name='Face' onChange=""document.images['PicShow'].src='../'+options[selectedIndex].value;Pic.value=options[selectedIndex].value"">" & vbCrLf
For I=0 To 59
Content = Content & "<option value='Images/Face/Image"&i&".gif'"&WRMPS.GetCheckVer("Images/Face/Image"&i&".gif",Rs(2),0)&">Image"&i&".gif</option>" & vbCrLf
Next
Content = Content & "</select><br>"
Content = Content & "<input name=Pic type=text Style='width:200' maxlength=100 value='"&Rs(2)&"'> <a href=""javascript:openWithIframe('上传头像','../Plus/UpLoad/Index.asp?Type=6&User=1',350,150);"">上传头像</a>"
Content = Content & "</td><td width='14%' rowspan=2 align=center><Img Src='../"&Rs(2)&"' ID=PicShow onload=javascript:DrawImage(this,100,100)></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>签名</strong></td><td><textarea name=WM_Sign cols=40 rows=5>"&Rs(3)&"</textarea> <img src='Img/Help.gif' align=top style='cursor:help' onclick=UBBHelp() alt='查看所有UBB支持格式'> <div id=UHelp onclick=UBBHelp() style='display:none; position: absolute;background-color: #efefef;border:1px #999999 solid'>[br]分行符<br>[pic]图片地址[/pic]<br>[flash=宽,高]Flash地址[/flash]<br>[color=颜色值]内容[/color]<br>[align=左/中/右]内容[/align]<br>[b]内容[/b]<br>[size=1-7]内容[/size]<br>[email=邮箱地址]内容[/email]<br>[url=链接地址]内容[/url]</div></td></tr>" & vbCrLf
Content = Content & "<tr><td class=td4 colspan=3><strong>联系方式</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>电子邮箱</strong></td><td colspan=2><input name=Email type=text Style='width:200' maxlength=50 value='"&Rs(0)&"'> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>电话</strong></td><td colspan=2><input name=Tel type=text Style='width:200' maxlength=50 value='"&Rs(4)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>QQ</strong></td><td colspan=2><input name=QQ type=text Style='width:200' maxlength=50 value='"&Rs(5)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>所在地</strong></td><td colspan=2>您当前选择的城市为：<b>"&Area&"</b><br><script src=../Inc/Js/AreaSelect.Js></Script></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>联系地址</strong></td><td colspan=2><input name='AddRess' type=text Style='width:200' maxlength=200 value='"&Rs(6)&"'></td></tr>" & vbCrLf
Content = Content & "<tr><td class=td4 colspan=3><strong>其它资料</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>注册时间</strong></td><td colspan=2><strong>"&Rs(13)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>最后登录</strong></td><td colspan=2><strong>"&Rs(14)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>登录IP</strong></td><td colspan=2><strong>"&Rs(15)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>登录次数</strong></td><td colspan=2><strong>"&Rs(16)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>积分</strong></td><td colspan=2><strong>"&Rs(17)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>"&WR_Other(0)&"</strong></td><td colspan=2><strong>"&Rs(18)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>账户余额</strong></td><td colspan=2><strong>"&Rs(23)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>信用值</strong></td><td colspan=2><strong>"&Rs(21)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>发布统计</strong></td><td colspan=2>分类信息：<strong>"&Rs(22)&"</strong> 文章：<strong>"&Rs(26)&"</strong> 店铺：<strong>"&Rs(25)&"</strong> 店铺点评：<strong>"&Rs(12)&"</strong> 优惠券：<strong>"&Rs(27)&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>店铺状态</strong></td><td colspan=2>"
If Rs(19) > 0 Then Content = Content & "<strong class=font2>已注册</strong>" Else Content = Content & "<strong>未注册</strong>"
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td colspan=2><input type=submit value=确定修改></td></tr> " & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
End If
Rs.Close
Set Rs = Nothing
Case "Save"
ID = Replace(ID," ","")
If ID <> "" Then
ID = Split(ID, ",")
Call WRMPS.FsoBegin()
For i = 0 To UBound(ID)
UserName = ""
Set Rs = Conn.Execute("Select WM_UserName From WM_Member Where WM_ID = "&Int(ID(i)))
If Not Rs.Eof Then
UserName = Rs(0)
End If
Rs.CLose
Select Case Request("Work")
Case "Key"
If Request("Reh") = "Through" Then
Conn.Execute("Update WM_Config Set WM_UserNum = WM_UserNum + 1")
Call WRMPS.SCache("UserNum",WRMPS.GetCache("UserNum") + 1)
End If
'API整合接口
If API_Enable Then
Set API = New API_WRMPS
API.LoadXmlFile True
API.UserName=UserName
API.UserStatus=0
Call API.ProcessMultiPing("update")
Set API=Nothing
End If
Conn.Execute("Update [WM_Member] Set [WM_Key]=1 Where WM_ID="&Int(ID(i)))
Case "Lock"
'API整合接口
If API_Enable Then
Set API = New API_WRMPS
API.LoadXmlFile True
API.UserName=UserName
API.UserStatus=1
Call API.ProcessMultiPing("update")
Set API=Nothing
End If
Conn.Execute("Update [WM_Member] Set [WM_Key]=2 Where WM_ID="&Int(ID(i)))
Case "NoLock"
'API整合接口
If API_Enable Then
Set API = New API_WRMPS
API.LoadXmlFile True
API.UserName=UserName
API.UserStatus=0
Call API.ProcessMultiPing("update")
Set API=Nothing
End If
Conn.Execute("Update [WM_Member] Set [WM_Key]=1 Where WM_ID="&Int(ID(i)))
Case "Del"
'API整合接口
If API_Enable Then
Set API = New API_WRMPS
API.LoadXmlFile True
API.UserName=UserName
Call API.ProcessMultiPing("delete")
Set API=Nothing
End If
Conn.Execute("Update WM_Article Set WM_PostType=2,WM_Editor=null Where WM_Editor='"&UserName&"' and WM_PostType in(1,3)")
Conn.Execute("Update WM_ArticleRevert Set WM_User=null Where WM_User='"&UserName&"'")
Conn.Execute("Update WM_ClassAD Set WM_PostType=2,WM_Post=null Where WM_Post='"&UserName&"' and WM_PostType in(1,3)")
Conn.Execute("Update WM_ClassRevert Set WM_User=null Where WM_User='"&UserName&"'")
Conn.Execute("Update WM_Coupon Set WM_PostType=2,WM_User=null Where WM_User='"&UserName&"' and WM_PostType in(1,3)")
Conn.Execute("Update WM_CouponRevert Set WM_User=null Where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_Collection where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_Company where WM_CheckUser='"&UserName&"' Or WM_ClaimUser='"&UserName&"'")
Conn.Execute("Delete From WM_Coupon where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_CompanyFeedback where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_CompanyPhoto where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_CompanyRe where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_CompanyRevert where WM_ReUser='"&UserName&"'")
Conn.Execute("Delete From WM_CompanyTemp where WM_CheckUser='"&UserName&"'")
Conn.Execute("Update WM_GuestBook Set WM_User=null Where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_Message where WM_Addressee='"&UserName&"' Or WM_Addresser='"&UserName&"'")
Conn.Execute("Delete From WM_OnlinePay where WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_ConsumeList where WM_User='"&UserName&"'")
Set Rs = Conn.Execute("Select WM_SavePath From WM_UpFile Where WM_UserType in(2,3) and WM_UpType in(3,4,5,6,7) and WM_User='"&UserName&"'")
Do While Not Rs.Eof
SavePath = WRMPS.CheckStr(Rs(0),5)
Call WRMPS.FsoDel("FILE",SavePath)
Rs.Movenext
Loop
Rs.Close
Set Rs = Nothing
Conn.Execute("Delete From WM_UpFile where WM_UserType in(2,3) and WM_UpType in(3,4,5,6,7) and WM_User='"&UserName&"'")
Conn.Execute("Delete From WM_Member where WM_ID="&Int(ID(i)))
If Request("Reh") <> "Through" Then Conn.Execute("Update WM_Config Set WM_UserNum = WM_UserNum - 1 where WM_UserNum > 0")
End Select
Set Rs = Nothing
Next
Call WRMPS.FsoEnd()
End If
Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&Estate=" & Request("Estate") & "&UserGroup=" & UserGroup & "&Table=" & Table & "&Word=" & Word&"&Action="&Request("Reh")&"'>",1)
Case "FlagSave"
For i = 0 To 13
If WRMPS.CheckStr(Request.Form("a" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组基本权限", 0)
If Flag_1 = "" Then Flag_1 = Request.Form("a" & (i)) Else Flag_1 = Flag_1 & "|" & Request.Form("a" & (i))
Next
For i = 0 To 30
If WRMPS.CheckStr(Request.Form("b" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组商家店铺权限", 0)
If Flag_2 = "" Then Flag_2 = Request.Form("b" & (i)) Else Flag_2 = Flag_2 & "|" & Request.Form("b" & (i))
Next
For i = 0 To 10
If WRMPS.CheckStr(Request.Form("c" & (i)), 1) = "" Then Call WRMPS.ErrView("·请正确设置会员组文章模块权限", 0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -