admin_top.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
Select Case Request("Action")
  Case "ChackDate"
    Call ChackDate()
End Select

Function ChackDate()
    Dim UserNum,ArticleNum,ArticleRE,ClassNum,ClassRE,CompanyNum,CompanyReNum,CompanyRE,CompanyTemp,CouponNum,CompanyFeedback,CompanyPhoto,GuestBook,Links,Msg,CompanyRZ,SQL,GiftOrder,Domain
    Call DBConnBegin()
	Msg = ""
    '更新用户相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Member Where WM_Key = 0")
      UserNum = Rs(0) 
	  If UserNum > 0 Then Msg = "<a href=WM.User.asp?Action=Through target=main class=white>用户"&UserNum&"位</a>，"
    Rs.Close
    '文章相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Article Where WM_Passed = 0")
      ArticleNum = Rs(0) 
	  If ArticleNum > 0 Then Msg = Msg & "文章"&ArticleNum&"篇，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_ArticleRevert Where WM_Key=0")
      ArticleRE = Rs(0) 
	  If ArticleRE > 0 Then Msg = Msg & "文章回复"&ArticleRE&"条，"
    Rs.Close
    '广告相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_ClassAD Where WM_Key = 0")
      ClassNum = Rs(0) 
	  If ClassNum > 0 Then Msg = Msg & "<a href=WM.Class.asp?SearchKey=1 target=main class=white>分类信息"&ClassNum&"条</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_ClassRevert Where WM_Key=0")
      ClassRE = Rs(0) 
	  If ClassRE > 0 Then Msg = Msg & "<a href=WM.Class_Re.asp?Action=Through&ChannelID=2 target=main class=white>分类信息回复"&ClassRE&"条</a>，"
    Rs.Close
    '店铺相关
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Company Where WM_Key = 0")
      CompanyNum = Rs(0) 
	  If CompanyNum > 0 Then Msg = Msg & "<a href=WM.Company.asp?ChannelID=6&Estate=0 target=main class=white>店铺"&CompanyNum&"家</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyTemp Where WM_Key=0")
      CompanyTemp = Rs(0) 
	  If CompanyTemp > 0 Then Msg = Msg & "<a href=WM.Company_Edit.asp?ChannelID=6 target=main class=white>店铺补充"&CompanyTemp&"条</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Coupon Where WM_Key=0")
      CouponNum = Rs(0) 
	  If CouponNum > 0 Then Msg = Msg & "<a href=WM.Coupon.asp?Key=0 target=main class=white>优惠券"&CouponNum&"张</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyFeedback Where WM_Key=0")
      CompanyFeedback = Rs(0) 
	  If CompanyFeedback > 0 Then Msg = Msg & "<a href=WM.Company_Other.asp?Action=Err&Key=0&ChannelID=6 target=main class=white>店铺纠错"&CompanyFeedback&"条</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyPhoto Where WM_Key=0")
      CompanyPhoto = Rs(0) 
	  If CompanyPhoto > 0 Then Msg = Msg & "<a href=WM.Company_Other.asp?Action=Photo&Key=0&ChannelID=6 target=main class=white>店铺图片"&CompanyPhoto&"张</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyRevert Where WM_Key=0")
      CompanyReNum = Rs(0) 
	  If CompanyReNum > 0 Then Msg = Msg & "<a href=WM.Company_DP.asp?ChannelID=6&Key=0 target=main class=white>店铺点评"&CompanyReNum&"条</a>，"
    Rs.Close
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_CompanyRe Where WM_Key=0")
      CompanyRE = Rs(0) 
	  If CompanyRE > 0 Then Msg = Msg & "<a href=WM.Company_Re.asp?Action=Through&ChannelID=6 target=main class=white>店铺留言"&CompanyRE&"条</a>，"
    Rs.Close
    If ConnTypeStr < 1 Then
       SQL = "Select Count(0) as WM_ID From WM_Company Where WM_RZBL=0 and WM_Key > 0 and WM_BLPic <> ''"
    Else
       SQL = "Select Count(0) as WM_ID From WM_Company Where WM_RZBL=0 and WM_Key > 0 and WM_BLPic Is Not Null"
    End If
    Set Rs = Conn.Execute(SQL)
      CompanyRZ = Rs(0) 
	  If CompanyRZ > 0 Then Msg = Msg & "<a href=WM.Company.asp?ChannelID=6&Action=IsRz&Estate=5 target=main class=white>店铺认领"&CompanyRZ&"条</a>，"
    Rs.Close
    '留言
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_GuestBook Where WM_Key = 0")
      GuestBook = Rs(0) 
	  If GuestBook > 0 Then Msg = Msg & "<a href=WM.Sys_GuestBook.asp?Action=Through&ChannelID=4 target=main class=white>留言"&GuestBook&"条</a>，"
    Rs.Close
	'友情链接
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_Links Where WM_Key = 0")
      Links = Rs(0) 
	  If Links > 0 Then Msg = Msg & "<a href=WM.Sys_Links.asp?Reh=Through target=main class=white>友情链接"&Links&"条</a>，"
    Rs.Close
	'礼品订单
    Set Rs = Conn.Execute("Select Count(0) as WM_ID From WM_GiftOrder Where WM_Key = 0")
      GiftOrder = Rs(0) 
	  If GiftOrder > 0 Then Msg = Msg & "<a href=WM.Gift_Order.asp?SearchID=1 target=main class=white>礼品订单"&GiftOrder&"条</a>，"
    Rs.Close
	Set Rs = Nothing
	If Msg <> "" Then
	  Msg = Left(Msg,Len(Msg)-1)
	  Msg = "<marquee scrollamount=3 onmouseover=stop() onmouseout=start() width='100%'>您有以下待处理事项："&Msg&"！</marquee>"
      Response.write Msg
	End If
End Function

%>