wm.sys_rehdata.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
  Dim UserNum,NewUser,CompanyNum,ClassNum,ArticleNum,CompanyReNum,MessageNum,CouponNum
  Call DBConnBegin()
Select Case Request("Action")
  Case "User"  '更新用户数据
    If CheckAdminFlag("Member") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
    Dim B,E,rehErr,UserName,Auto
	B = WRMPS.CheckStr(Request("Begin"), 1)
	E = WRMPS.CheckStr(Request("End"), 1)
	Auto = WRMPS.CheckStr(Request("Auto"), 1)
	If Auto = "" Then Auto = 0
	If B = "" Or E = "" Then
	  B = 1
	  E = 20
	Else
	  Set Rso = Conn.Execute("Select WM_UserName From WM_Member Where WM_ID >= "&B&" and WM_ID <= "&E&" Order By WM_ID")
	  If Not Rso.Eof Then
	    Do While Not Rso.Eof
		  UserName = Rso(0)
          '店铺相关
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Company Where WM_CheckUser = '"&UserName&"' And WM_Key = 1")
            CompanyNum = Rs(0) 
          Rs.Close
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyRevert Where WM_ReUser = '"&UserName&"'")
            CompanyReNum = Rs(0) 
          Rs.Close
          '广告相关
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_ClassAD Where WM_Post = '"&UserName&"' and WM_PostType = 1 and WM_Key = 1")
            ClassNum = Rs(0) 
          Rs.Close
          '文章相关
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Article Where WM_Editor = '"&UserName&"' and WM_PostType = 1 and WM_IsDeleted = 0 and WM_Passed = 1")
            ArticleNum = Rs(0) 
          Rs.Close
          '优惠券相关
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Coupon Where WM_User = '"&UserName&"' and WM_Key = 1 and WM_PostType = 1")
            CouponNum = Rs(0) 
          Rs.Close
          '站内信息相关
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Message Where WM_Addressee = '"&UserName&"'")
            MessageNum = Rs(0) 
          Rs.Close
          Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Message Where WM_Addressee = '"&UserName&"' and WM_Key = 0")
            MessageNum = MessageNum&"|"&Rs(0) 
          Rs.Close
          Conn.Execute("UpDate WM_Member Set WM_CouponNum="&CouponNum&",WM_ClassNum="&ClassNum&",WM_ArticleNum="&ArticleNum&",WM_CompanyNum="&CompanyNum&", WM_CompanyReNum="&CompanyReNum&",WM_Message='"&MessageNum&"' Where WM_UserName='"&UserName&"'")
		Rso.MoveNext
		Loop
	    RehErr = 0
	  Else
	    RehErr = 1
	  End If
	  Rso.Close
	  Set Rso = Nothing
	  B = E + 1
	  E = E + 20
	End If
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<form name='myform' method='post' Action='?Action=User'>" & vbCrLf
    Content = Content & "<tr class=td4><td colspan=2><strong>更新用户数据</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td height=50 width='20%'></td><td width='80%'>下面有的操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。</td></tr>" & vbCrLf
    If RehErr = 1 Then
      Call WRMPS.ErrView("·所有用户数据更新完成",1)
	Else
	  If WRMPS.CheckStr(Request("Begin"), 1) <> "" And WRMPS.CheckStr(Request("End"), 1) <> "" Then
        Content = Content & "<tr class=td2><td height=50></td><td><strong>ID为 "&B-20&" - "&E-20&" 的用户数据更新完成。</strong></td></tr>" & vbCrLf
	  End If
	  Content = Content & "<tr class=td2><td><strong>开始用户ID</strong></td><td><input type=text name=Begin value="""&B&""" size=10> 用户ID，可以填写您想从哪一个ID号开始进行修复</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>结束用户ID</strong></td><td><input type=text name=End value="""&E&""" size=10> 将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td height=50></td><td><input type=submit name='Submit' value=' 提 交 ' onclick=""Loading.style.display='';Loading.style.bottom=100;"">　<input type=checkbox name=Auto value=1"&WRMPS.GetCheckVer(Int(Auto),1,1)&">自动运行</td></tr>" & vbCrLf
      Content = Content & "</form></table>" & vbCrLf
	  If Auto = 1 Then
	    Content = Content & "<script>setTimeout(""myform.submit();Loading.style.display='';Loading.style.bottom=100;"",1000)</script>"
	  End If
	End If
  
  Case Else '更新总数据
    If CheckAdminFlag("UpDate") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
    '更新用户相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Member Where WM_Key = 1")
      UserNum = Rs(0) 
    Rs.Close
    Set Rs = Conn.Execute("Select Top 1 WM_UserName From WM_Member Where WM_Key = 1 Order By WM_ID Desc")
    If Not Rs.Eof Then
      NewUser = Rs(0)
    End If
    Rs.Close
    '店铺相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Company Where WM_Key = 1")
      CompanyNum = Rs(0) 
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyRevert")
      CompanyReNum = Rs(0) 
    Rs.Close
    '广告相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_ClassAD Where WM_Key = 1")
      ClassNum = Rs(0) 
    Rs.Close
    '文章相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Article Where WM_IsDeleted = 0 and WM_Passed = 1")
      ArticleNum = Rs(0) 
    Rs.Close
	'优惠券相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Coupon Where WM_Key = 1")
      CouponNum = Rs(0) 
    Rs.Close
    WRMPS.DelCache "DynamicCache"
    Conn.Execute("UpDate WM_Config Set WM_CouponNum="&CouponNum&",WM_UserNum="&UserNum&",WM_NewUser='"&NewUser&"',WM_CompanyNum="&CompanyNum&",WM_CompanyReNum="&CompanyReNum&",WM_ClassNum="&ClassNum&",WM_ArticleNum="&ArticleNum&"")

    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td4><td colspan=2><strong>更新系统总数据</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td height=50></td><td>数据更新开始...</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right width='35%'>用户总数</td><td width='65%'>&nbsp;<strong>"&UserNum&"</strong> 人</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>最新用户</td><td>&nbsp;<strong>"&NewUser&"</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>注册店铺</td><td>&nbsp;<strong>"&CompanyNum&"</strong> 家</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>店铺点评</td><td>&nbsp;<strong>"&CompanyReNum&"</strong> 条</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>分类信息</td><td>&nbsp;<strong>"&ClassNum&"</strong> 条</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>发表文章</td><td>&nbsp;<strong>"&ArticleNum&"</strong> 篇</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td align=right>优 惠 券</td><td>&nbsp;<strong>"&CouponNum&"</strong> 条</td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td height=50></td><td>数据更新完成</td></tr>" & vbCrLf
    Content = Content & "</table>" & vbCrLf
End Select

Set Rs = Nothing
Call DBConnEnd()
Call WRMPS.Loading("")
Call ClassEnd()
Response.Write Content
Call GetBottom()
%>