📄 wm.user_rz.asp
字号:
<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Member") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim ID,UserName,Table,Word,N,i,RZEmail,RZID,IDPic,TrueName,Estate,rFlag,eSql,Integral,CountOut
Dim WM_Estate
ID = WRMPS.CheckStr(Request("ID"), 1)
Page = WRMPS.CheckStr(Request("page"),1)
Table = WRMPS.CheckStr(Request("Table"), 0)
Word = WRMPS.CheckStr(Request("Word"), 0)
Estate = WRMPS.CheckStr(Request("Estate"),1)
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td2><td colspan=2> <a href=WM.User_RZ.asp>管理首页</a> | <a href=WM.User_RZ.asp?Estate=3>等待实名认证审核</a></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><form name=form1 method=post><td width='43%'> <input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
Content = Content & "<select name=Table align=absmiddle>"
Content = Content & "<option value=WM_UserName " & WRMPS.GetCheckVer("WM_UserName", Table, 0) & ">用户名</option>"
Content = Content & "<option value=WM_Email " & WRMPS.GetCheckVer("WM_Email", Table, 0) & ">电子邮件</option>"
Content = Content & "</select> <input type=submit name='Submit' value=' 查询 ' >"
Content = Content & "</td></form>"
Content = Content & "<form name=form1 method='post' action='WM.User_RZ.asp'><td width='57%'> "
Content = Content & "<select name=Estate align=absmiddle onChange='javascript:submit()'>"
Content = Content & "<option value=''>====</option>"
Content = Content & "<option value=1 " & WRMPS.GetCheckVer("1", WRMPS.CheckStr(Request("Estate"),1), 0) & ">已通过邮箱认证</option>"
Content = Content & "<option value=2 " & WRMPS.GetCheckVer("2", WRMPS.CheckStr(Request("Estate"),1), 0) & ">已通过实名认证</option>"
Content = Content & "<option value=3 " & WRMPS.GetCheckVer("3", WRMPS.CheckStr(Request("Estate"),1), 0) & ">等待实名认证</option>"
Content = Content & "</select> "
Content = Content & "</td></form></tr></Table>" & vbCrLf
Select Case Request("Action")
Case "DelRz"
MailBody = Request.Form("Content")
If MailBody = "" Or IsNull(MailBody) Then MailBody = WR_Mail(12)
Sql = "select WM_Email,WM_IDPic,WM_UserName from WM_Member where WM_RZID=0 and WM_ID = "&ID
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
Email = Rs(0)
IDPic = Rs(1)
UserName = Rs(2)
If WR_Mail(5) <> "NO" Or Int(WR_Mail(17)) > 0 Then
Subject = "对不起，您在"&WR_Setting(0)&"的实名认证未通过！"
If WR_Mail(5) <> "NO" Then Call WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WR_Setting(0),Subject,Email)
If Int(WR_Mail(17)) > 0 Then
Call WRDB.SendMessage(UserName,Null,"对不起，您的实名认证申请未通过！",WRTemp.SiteLabel(WRMPS.CheckStr(MailBody,2)))
End If
End If
Conn.Execute("Update WM_Member Set WM_IDPic=Null where WM_ID="&ID)
Call WRMPS.FsoBegin()
Call WRMPS.FsoDel("File",WRMPS.CheckStr(IDPic,5))
Call WRMPS.FsoEnd()
End If
Rs.Close
Set Rs = Nothing
Call WRMPS.ErrView("·取消申请成功<meta http-equiv=refresh content='1;URL=?ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",1)
Case "Rz"
Set Rs = Conn.Execute("Select WM_Flag,WM_UserName,WM_Email From WM_Member where WM_ID = "&ID&" and WM_RZID = 0")
If Not Rs.Eof Then
rFlag = Rs(0)
UserName = Rs(1)
Email = Rs(2)
End If
Rs.Close
Set Rs = Nothing
Integral = Int(Split(Split(rFlag,"§")(0),"|")(9))
CountOut = Int(Split(Split(rFlag,"§")(0),"|")(10))
If WRDB.SaveConsume(0,UserName,0,CountOut,Integral,WR_Faith(1),"完成实名认证") Then
Conn.Execute("Update WM_Member Set WM_RZID = 1 Where WM_ID = "&ID&" and WM_RZID = 0")
If WR_Mail(5) <> "NO" Or Int(WR_Mail(17)) > 0 Then
MailBody = WR_Mail(11)
Subject = "恭喜您，您在"&WR_Setting(0)&"的实名认证申请已通过！"
If WR_Mail(5) <> "NO" Then Call WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WR_Setting(0),Subject,Email)
If Int(WR_Mail(17)) > 0 Then
Call WRDB.SendMessage(UserName,Null,"恭喜您，您的实名认证申请已通过！",WRTemp.SiteLabel(MailBody))
End If
End If
Call WRMPS.ErrView("·恭喜您实名认证成功<meta http-equiv=refresh content='1;URL=?ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",0)
Else
Call WRMPS.ErrView("·未知错误<meta http-equiv=refresh content='1;URL=?ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",0)
End If
Case "Work"
Sql = "select WM_UserName,WM_RZEmail,WM_RZID,WM_IDPic,WM_TrueName from WM_Member where WM_ID = "&ID
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
UserName = Rs(0)
RZEmail = Rs(1)
RZID = Rs(2)
IDPic = Rs(3)
TrueName = Rs(4)
End If
Rs.Close
Set Rs = Nothing
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form action='?Action=Rz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"' name=myform method=POST>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=2><strong>会员实名认证管理</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='30%'><strong>认证状态</strong></td><td width='70%'><strong><font class=font2>"
Select Case RZID
Case 0
If IDPic = "" Or IsNull(IDPic) Then
Content = Content & "未认证"
Else
Content = Content & "等待审核中..."
End If
Case 1
Content = Content & "已认证"
End Select
Content = Content & "</font></strong></td></tr>"
Content = Content & "<tr class=td2><td><strong>会员真实姓名</strong></td><td><strong>"&TrueName&"</strong></td></tr>"
If IDPic <> "" Or IsNull(IDPic) = False Then
Content = Content & "<tr class=td2><td><strong>认证扫描件</strong></td><td><div style='width:500px; height:300px; z-index:1;overflow:auto;' class=div><a href="&WRMPS.CheckStr(IDPic,5)&" target=_blank><img border=0 src='"&WRMPS.CheckStr(IDPic,5)&"'></a></div></td></tr>"
End If
If RZID = 0 and (IDPic <> "" Or IsNull(IDPic) = False) Then
Content = Content & "<tr class=td2 id=Rz><td><strong>认证操作</strong></td><td><input type=submit name=btnSubmit value='通过认证'> <input type='button' name=btnSubmit value='取消申请' onclick='DelRz.style.display="""";DelRz1.style.display="""";Rz.style.display=""none"";'></td></tr>"
End If
Content = Content & "</form>" & vbCrLf
Content = Content & "<form action='?Action=DelRz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"' name=myform method=POST>" & vbCrLf
Content = Content & "<tr class=td2 id=DelRz style='display:none'><td><strong>取消申请理由</strong></td><td><textarea name='Content' style='width:500px;height:100px'>"&WR_Mail(12)&"</textarea></td></tr>"
Content = Content & "<tr class=td2 id=DelRz1 style='display:none'><td></td><td><input type=submit name=btnSubmit value='确认取消'></td></tr>"
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Case "DelMail"
Conn.Execute("Update WM_Member Set WM_RZEmail=0 where WM_ID="&ID)
Call WRMPS.ErrView("·取消邮箱认证成功<meta http-equiv=refresh content='1;URL=?ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",1)
Case "DelTrueName"
Sql = "select WM_Email,WM_IDPic,WM_UserName from WM_Member where WM_RZID=1 and WM_ID = "&ID
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
IDPic = Rs(1)
Call WRMPS.FsoBegin()
Call WRMPS.FsoDel("File",WRMPS.CheckStr(IDPic,5))
Call WRMPS.FsoEnd()
Conn.Execute("Update WM_Member Set WM_IDPic=Null,WM_RZID=0 where WM_ID="&ID)
End If
Rs.Close
Set Rs = Nothing
Call WRMPS.ErrView("·取消实名认证成功<meta http-equiv=refresh content='1;URL=?ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",1)
Case Else
Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & 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>用户名</td>" & vbCrLf
Content = Content & "<td width='20%'>Email(点击发邮件)</td>" & vbCrLf
Content = Content & "<td width='15%'>邮箱认证</td>" & vbCrLf
Content = Content & "<td width='15%'>实名认证</td>" & vbCrLf
Content = Content & "<td width='30%'>管理</td></tr>" & vbCrLf
If Word <> "" Then SQL = " and " & Table & " = '" & Word & "'" Else SQL = ""
eSql = "select WM_ID,WM_UserName,WM_Email,WM_RZEmail,WM_RZID,WM_IDPic from WM_Member where WM_RZID=1 Or WM_RZEmail=1 and WM_Key > 0" & SQL&" order by WM_ID desc"
Select Case Estate
Case 1
WM_Estate = " WM_RZEmail = 1"
eSql = "select WM_ID,WM_UserName,WM_Email,WM_RZEmail,WM_RZID,WM_IDPic from WM_Member where "&WM_Estate & SQL&" order by WM_ID desc"
Case 2
WM_Estate = " WM_RZID = 1"
eSql = "select WM_ID,WM_UserName,WM_Email,WM_RZEmail,WM_RZID,WM_IDPic from WM_Member where "&WM_Estate & SQL&" order by WM_ID desc"
Case 3
If ConnTypeStr < 1 Then
eSQL = "select WM_ID,WM_UserName,WM_Email,WM_RZEmail,WM_RZID,WM_IDPic from WM_Member where WM_RZID=0 and WM_IDPic <> '' order by WM_ID desc"
Else
eSQL = "select WM_ID,WM_UserName,WM_Email,WM_RZEmail,WM_RZID,WM_IDPic from WM_Member where WM_RZID=0 and WM_IDPic Is Not Null order by WM_ID desc"
End If
End Select
Rs.Open eSql, Conn, 1, 1
If Rs.EOF Then
Content = Content & "<tr><td colspan=5></td></tr></table>" & vbCrLf
Else
'分页的实现
ListNum = 20
Rs.PageSize = ListNum
If Page = "" Then Page = 1
If Page < 1 Then Page = 1
Rs.AbsolutePage = Page
i = 0
If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
Do While Not Rs.EOF And i < ListNum
N = N + 1
Content = Content & "<tr class=td2 align=center>" & vbCrLf
Content = Content & "<td>"&Rs(1)&"</td>" & vbCrLf
Content = Content & "<td align=left><a href=# onClick=""openWithIframe('在线发信','../SendMail.asp?Email="&rs(2)&"',550,320);"">"&Rs(2)&"</a></td>" & vbCrLf
Content = Content & "</td>" & vbCrLf
Content = Content & "<td>"&Replace(Replace(Rs(3),0,"<span class=Font5>未认证</span>"),1,"<font class=font2>已认证</font>")&"</td>" & vbCrLf
Content = Content & "<td>"
Select Case Rs(4)
Case 0
If Rs(5) = "" Or IsNull(Rs(5)) Then
Content = Content & "<span class=Font5>未认证</span>"
Else
Content = Content & "<font class=font1>等待审核中...</font>"
End If
Case 1
Content = Content & "<font class=font2>已认证</font>"
End Select
Content = Content & "</td>" & vbCrLf
Content = Content & "<td>"
Content = Content & "<a href='?Action=Work&ID="&Rs(0)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>操作</a>"
If Estate <> 3 Then
If Rs(3) = 1 Then
Content = Content & " | <a href='?Action=DelMail&ID="&Rs(0)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>取消邮箱认证</a>"
Else
Content = Content & " | <span class=Font5>取消邮箱认证</span>"
End If
If Rs(4) = 1 Then
Content = Content & " | <a href='?Action=DelTrueName&ID="&Rs(0)&"&Page="&Page&"&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>取消实名认证</a>"
Else
Content = Content & " | <span class=Font5>取消实名认证</span>"
End If
End If
Content = Content & "</td></tr>" & vbCrLf
Rs.MoveNext
i = i + 1
Loop
URLParameter = "Estate=" & Request("Estate") & "&Table=" & Table & "&Word=" & Word&""
Content = Content & "</table>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td1><tr class=td3><td height=30 align=right>" & vbCrLf
Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
Content = Content & "</td></tr></table>" & vbCrLf
End If
Rs.Close
Set Rs=Nothing
End Select
Call DBConnEnd()
Call ClassEnd()
Response.write Content
Call GetBottom()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -