⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 cook.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!--#include file="../Inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="../Inc/Cls.Content.asp"-->
<!--#include file="../Inc/Cls.Create.asp"-->
<%
   Dim ID,EndTime,reval
   Dim Filtration,SerUrl
   SerUrl = Ucase(WRMPS.URLDecode(Request.ServerVariables("Url")))
   If Instr(SerUrl,"/RZ.ASP") = 0 Then
     If Not WRUser.ChkLogin Then
       If Int(Request("Ajax")) <> 0 Then
	     Response.Write "<div style='background:#006699;padding:0 3px;width:auto;float:right'><a href=# onClick=""openWithIframe('用户登录','../login.asp?Action=Ajax',450,180);"" class=white>请重新登录</a></div>"
	     Response.End
	   End If
	   Response.Redirect "../login.asp"
	 End If
   End If

   Call DBConnBegin()
   '检测有没有欠费
   If IsEmpty(WRMPS.GetCookies("QianFeiMsg")) Then
     If Int(UserFlag(5)) < 1 and Instr(SerUrl,"INDEX.ASP") = 0 and Instr(SerUrl,"USER_EXCHANGE.ASP") = 0 and Instr(SerUrl,"USER_CONSUMELIST.ASP") = 0 and Instr(SerUrl,"USER_PAYONLINE.ASP") = 0 and Instr(SerUrl,"RZ.ASP") = 0 Then
       Set Rs = Conn.Execute("Select WM_CountOut,WM_Money From WM_Member Where WM_ID = "&MemID)
       If Not Rs.Eof Then
	     If Instr(SerUrl,"USER_AJAX.ASP") = 0 Then
	       If Rs(0) < 0 Or Rs(1) < 0 Then Call WRMPS.ErrView("·您的账户"&WR_Other(0)&"已欠费，除财富信息外的功能将停止使用<br>·<a href=User_Exchange.asp>现在兑换"&WR_Other(0)&"？</a><br>·<a href=../Payment/PayOnline.asp>在线充值？</a><br>·<a href=index.asp>返回管理首页？</a>",0)
		 Else
		   If Rs(0) < 0 Or Rs(1) < 0 Then 
             Response.Write "<div style='background:#FF6600;padding:0 3px;width:auto;float:right;margin:0 0 0 5px;'><a href=../Payment/PayOnline.asp class=white>您的账户已欠费，为了不影响您的使用，请尽快冲值！</a></div>"
		     Response.end
		   End If
		 End If
      End If
       Rs.Close
     End If
	 WRMPS.SCookies "QianFeiMsg","True",0
   End If

   '代理权限检测
   Sub AgentFlag()
     If AgentID = 0 Then Call WRMPS.ErrView("·您没有代理权限<meta http-equiv=refresh content='3;URL=Index.asp'>",0)
	 If CDate(AgentTime) < Date() Then Call WRMPS.ErrView("·您的代理权限已过期，如需要继续代理，请联系我们，否则您的代理资格将在 7 天后自动取消！<meta http-equiv=refresh content='3;URL=Index.asp'>",0)
   End Sub
   '代理操作权限检测
   Sub AgentPostFlag(byval AreaID)
     If Instr(","&AgentList&",",","&AreaID&",") = 0 Then Call WRMPS.ErrView("·您只能在您自己所管理的城市里进行操作<meta http-equiv=refresh content='3;URL=Index.asp'>",0)
   End Sub

   '会员中心页头尾
   Function UserTop()
     UserTop = "<table width=""980px"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbCrlf
     UserTop = UserTop & "  <tr>" & vbCrlf
     UserTop = UserTop & "    <td width=""50%"" height=80 rowspan=2><div class=Mleft><a href="&WR_Setting(3)&"><img src="""&WR_Setting(3)&WR_Setting(8)&""" border=0></a></div><div class=MCenter><span class=CityFont>会员中心</span></div></td>" & vbCrlf
     UserTop = UserTop & "    <td width=""50%""><span id=AjaxShow></span></td>" & vbCrlf
     UserTop = UserTop & "  </tr>" & vbCrlf
     UserTop = UserTop & "  <tr><td valign=bottom align=right>欢迎您 <font color=red><strong>"&MemName&"！</strong></font> <a href='../'>首页</a> <a href="&WRMPS.GetSpaceUrl(0,MemName)&" target=_blank>个人空间</a> <a href="&WR_Setting(3)&"login.asp?Action=Logout target=_parent>退出</a>"
	 UserTop = UserTop & " </td></tr>" & vbCrlf
	 UserTop = UserTop & "</table>" & vbCrlf
     UserTop = UserTop & "<div id=div>" & vbCrlf
     UserTop = UserTop & "  <div class=""Mtit""></div>" & vbCrlf
     UserTop = UserTop & "  <div id=divline></div>" & vbCrlf
     UserTop = UserTop & "</div>" & vbCrlf
   End Function
   Function GetBottom()
     GetBottom = "<div id=clearboth></div><div style='color:#CCCCCC;float:right'>P"&"o"&"w"&"e"&"r"&"e"&"d B"&"y <a href='ht"&"tp:/"&"/w"&"w"&"w.wa"&"ng"&"r"&"en"&".n"&"e"&"t' target=_blank><span style='color:#CCCCCC'>W"&"R"&"M"&"P"&"S v"&SystemVersion&"</span></a></div>"&WR_Setting(12)
   End Function
   '位置
   Function UserPath(aType)
     UserPath = Replace(WR_Setting(16)&"<a href="&WR_Setting(3)&" target=_parent>"&WR_Setting(0)&"</a> >> <a href=Index.asp>会员中心</a>"&aType,","," >> ")
     UserPath = "<div class=UserPath>"&UserPath&"</div>"
   End Function
   '菜单
   Function UserMenu()
    UserMenu = UserMenu & "<script language='JavaScript'>" & vbCrlf
    UserMenu = UserMenu & "function show(i){" & vbCrlf
    UserMenu = UserMenu & "if (i.style.display == ""none"") {" & vbCrlf
    UserMenu = UserMenu & " i.style.display = """";" & vbCrlf
    UserMenu = UserMenu & "   }else{" & vbCrlf
    UserMenu = UserMenu & "  i.style.display = ""none"";" & vbCrlf
    UserMenu = UserMenu & "    }" & vbCrlf
    UserMenu = UserMenu & "  }" & vbCrlf
    UserMenu = UserMenu & "</script>" & vbCrlf
    UserMenu = UserMenu & "<link href='Style.css' rel='stylesheet' type='text/css'>" & vbCrlf
    UserMenu = UserMenu & "<style>" & vbCrlf
    UserMenu = UserMenu & "A.black{COLOR: #000000; TEXT-DECORATION: none}" & vbCrlf
    UserMenu = UserMenu & "A.black:link  {COLOR: #000000; TEXT-DECORATION: none}" & vbCrlf
    UserMenu = UserMenu & "A.black:visited{COLOR: #000000; TEXT-DECORATION: none}" & vbCrlf
    UserMenu = UserMenu & "A.black:hover {COLOR: #000000; TEXT-DECORATION: none}" & vbCrlf
    UserMenu = UserMenu & "A.black:active{TEXT-DECORATION: none}" & vbCrlf
    UserMenu = UserMenu & ".Titbg {height:28px;background:url(""Img/titbg.gif"") no-repeat;cursor:pointer;font-weight:Bold;padding:0 0 0 15px;color:#FF6600;font-size:14px}" & vbCrlf
    UserMenu = UserMenu & "</style>" & vbCrlf
    UserMenu = UserMenu & "<body>" & vbCrlf
    UserMenu = UserMenu & "<table style='WIDTH:100%' cellspacing=0 cellpadding=0 align=right border=0>" & vbCrlf
	If AgentID > 0 Then
	  UserMenu = UserMenu & "  <tr><td onclick='show(a_4)' Class=Titbg>代理中心</td></tr>" & vbCrLf
      UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	  UserMenu = UserMenu & "<DIV id=a_4>" & vbCrLf
      UserMenu = UserMenu & "<table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>" & vbCrLf
      UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Ads.asp>分站广告管理</a><br>" & vbCrLf
	  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Links.asp>分站友情链接</a><br>" & vbCrLf
	  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Agent.asp>下级代理分配</a><br>" & vbCrLf
	  UserMenu = UserMenu & "</td></tr>" & vbCrLf
      UserMenu = UserMenu & "</table>" & vbCrLf
      UserMenu = UserMenu & "</div>" & vbCrLf
      UserMenu = UserMenu & "  </td></tr>" & vbCrLf
	End If
	Dim uRs,uRso
    Set uRs = Conn.Execute("select WM_ID,WM_ChannelName,WM_Module from WM_Channel where WM_Key = 1 And WM_Module in(1,2,6,7) Order By WM_OrderID")
    Do While Not uRs.EOF
	  Select Case uRs(2)
	  Case 7
		If Int(FlagCom(19)) > 0 Then
          UserMenu = UserMenu & "  <tr><td onclick='show(a"&uRs(0)&")' Class=Titbg>"&uRs(1)&"</td></tr>" & vbCrLf
          UserMenu = UserMenu & "  <tr><td>" & vbCrLf
          UserMenu = UserMenu & "<DIV id=a"&uRs(0)&">" & vbCrLf
          UserMenu = UserMenu & "<table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>" & vbCrLf
          UserMenu = UserMenu & "  <tr><td>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Coupon.asp>优惠券管理</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=../Coupon/Post.asp target=_blank>发布优惠券</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_CouponRe.asp>回复管理</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_CouponRe.asp?Send=My>我给别人的留言</a><br>" & vbCrLf
          UserMenu = UserMenu & "</td></tr>" & vbCrLf
          UserMenu = UserMenu & "</table>" & vbCrLf
          UserMenu = UserMenu & "</div>" & vbCrLf
          UserMenu = UserMenu & "  </td></tr>" & vbCrLf
		End If
	  Case 1
        If Int(FlagArticle(0)) > 0 Then
	      Set uRso = Conn.Execute("Select Count(1) as WM_ID From WM_ArticleSort Where WM_ChannelID = "&uRs(0)&" and WM_MemberFlag > 0")
		  If uRso(0) > 0 Then
            UserMenu = UserMenu & "  <tr><td onclick='show(a"&uRs(0)&")' Class=Titbg>"&uRs(1)&"</td></tr>" & vbCrLf
            UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	        UserMenu = UserMenu & "<DIV id=a"&uRs(0)&">" & vbCrLf
            UserMenu = UserMenu & "<table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>" & vbCrLf
            UserMenu = UserMenu & "  <tr><td>" & vbCrLf
            UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Article.asp?ChannelID=" & uRs(0) & " >文章管理</a><br>" & vbCrLf
            UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Article.asp?Action=AddType&ChannelID=" & uRs(0) & " >添加文章</a><br>" & vbCrLf
	        UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ArticleRe.asp?ChannelID=" & uRs(0) & " >评论管理</a><br>" & vbCrLf
            UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ArticleRe.asp?Send=My&ChannelID=" & uRs(0) & ">我给别人的留言</a><br>" & vbCrLf
	        UserMenu = UserMenu & "</td></tr>" & vbCrLf
            UserMenu = UserMenu & "</table>" & vbCrLf
            UserMenu = UserMenu & "</div>" & vbCrLf
            UserMenu = UserMenu & "  </td></tr>" & vbCrLf
	      End If
	      uRso.CLose
        End If
	  Case 2
        If Int(FlagClass(0)) > 0 Then
          UserMenu = UserMenu & "  <tr><td onclick='show(a"&uRs(0)&")' Class=Titbg>"&uRs(1)&"</td></tr>" & vbCrLf
          UserMenu = UserMenu & "  <tr><td>" & vbCrLf
          UserMenu = UserMenu & "<DIV id=a"&uRs(0)&">" & vbCrLf
          UserMenu = UserMenu & "<table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>" & vbCrLf
          UserMenu = UserMenu & "  <tr><td>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ClassAD.asp>信息管理</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ClassAD.asp?Action=Add>发布信息</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ClassRe.asp>回复管理</a><br>" & vbCrLf
          UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ClassRe.asp?Send=My>我给别人的留言</a><br>" & vbCrLf
          UserMenu = UserMenu & "</td></tr>" & vbCrLf
          UserMenu = UserMenu & "</table>" & vbCrLf
          UserMenu = UserMenu & "</div>" & vbCrLf
          UserMenu = UserMenu & "  </td></tr>" & vbCrLf
        End If
	  Case 6
	    If Int(WR_Company(0)) > 0 and Int(FlagCom(0)) > 0 Then
		  Dim EndTime
          UserMenu = UserMenu & "  <tr><td onclick='show(a__"&uRs(0)&")' Class=Titbg>店铺管理</td></tr>" & vbCrLf
          UserMenu = UserMenu & "  <tr><td>" & vbCrLf
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -