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

📄 cook.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
          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
		  Set uRso = Conn.Execute("Select A.WM_ComID,B.WM_EndTime From WM_Member A Inner Join WM_Company B on A.WM_ComID = B.WM_ID Where A.WM_ID = "&MemID)
		  If Not uRso.Eof Then
		    EndTime = uRso(1)
		    If EndTime > Now() Then
              UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Company.asp?Action=My>管理我的店铺</a><br>" & vbCrLf
              UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=../Company/Edit.asp?ID="&uRso(0)&" target=_blank>修改店铺信息</a><br>" & vbCrLf
		  	  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ClassAD.asp?Action=Add&ComID="&uRso(0)&">发布优惠信息</a><br>" & vbCrLf
		  	  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=# onClick=""openWithIframe('店铺图片/视频上传','../Company/PhotoPost.asp?ID="&uRso(0)&"',600,400);"">上传店铺图片</a><br>" & vbCrLf
              UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Company.asp?Action=Photo>店铺图片管理</a><br>" & vbCrLf
		      UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_CompanyRe.asp?ChannelID=" & uRs(0) & ">留言管理</a><br>" & vbCrLf
              UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_CompanyRe.asp?Send=My&ChannelID=" & uRs(0) & ">我给别人的留言</a><br>" & vbCrLf
		    End If
		  Else
            UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_RL.asp Class=red>认领店铺</a><br>" & vbCrLf
		  End If
		  uRso.Close
		  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Company.asp >我登记的店铺</a><br>" & vbCrLf
		  UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=../Company/Post.asp target=_blank>免费登记店铺</a><br>" & vbCrLf
          UserMenu = UserMenu & "</td></tr>" & vbCrLf
          UserMenu = UserMenu & "</table>" & vbCrLf
          UserMenu = UserMenu & "</div>" & vbCrLf
          UserMenu = UserMenu & "  </td></tr>" & vbCrLf
		End If
	  End Select
    uRs.MoveNext
	Loop
	uRs.Close
    Set uRso = Nothing
    Set uRs = Nothing
    UserMenu = UserMenu & "  <tr><td onclick='show(a_2)' Class=Titbg>财富信息</td></tr>" & vbCrLf
    UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	UserMenu = UserMenu & "<DIV id=a_2>" & 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_Exchange.asp>"&WR_Other(0)&"/积分兑换</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ConsumeList.asp?Type=1>消费记录</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ConsumeList.asp?Type=2>"&WR_Other(0)&"记录</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ConsumeList.asp?Type=3>积分记录</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_ConsumeList.asp?Type=4>信用值记录</a><br>" & vbCrLf
    If Int(WR_Other(2)) = 1 Then UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=../Payment/PayOnline.asp>在线充值</a> <a href=User_PayOnline.asp>记录</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=../Payment target=_blank>支付方式</a><br>" & vbCrLf
	UserMenu = UserMenu & "</td></tr>" & vbCrLf
    UserMenu = UserMenu & "</table>" & vbCrLf
    UserMenu = UserMenu & "</div>" & vbCrLf
    UserMenu = UserMenu & "  </td></tr>" & vbCrLf

    UserMenu = UserMenu & "  <tr><td onclick='show(a_3)' Class=Titbg>我的公文包</td></tr>" & vbCrLf
    UserMenu = UserMenu & "  <tr><td>" & vbCrLf
    UserMenu = UserMenu & "<DIV id=a_3>" & vbCrLf
    UserMenu = UserMenu & "<table width='100%' border=0 cellspacing=0 cellpadding=0 align=center>" & vbCrLf
    UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	If Int(WR_Mail(17)) = 1 and Int(FlagMsg(0)) = 1 Then UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Message.asp>站内消息</a><br>" & vbCrLf
	UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Gift_Order.asp>礼品订单</a><br>" & vbCrLf
	If Int(UserFlag(11)) = 1 Then UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_Collection.asp>我的收藏</a> <a href=User_CollectionSave.asp>添加</a><br>" & vbCrLf
	UserMenu = UserMenu & "</td></tr>" & vbCrLf
    UserMenu = UserMenu & "</table>" & vbCrLf
    UserMenu = UserMenu & "</div>" & vbCrLf
    UserMenu = UserMenu & "  </td></tr>" & vbCrLf

    UserMenu = UserMenu & "  <tr><td onclick='show(a_1)' Class=Titbg>基本资料</td></tr>" & vbCrLf
    UserMenu = UserMenu & "  <tr><td>" & vbCrLf
	UserMenu = UserMenu & "<DIV id=a_1>" & 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_RZ.asp>会员认证</a><br>" & vbCrLf
    UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_EditInfo.asp>修改用户资料</a><br>" & vbCrLf
	UserMenu = UserMenu & "　<font face=Webdings Class=Font6>4</font> <a href=User_EditPass.asp>修改安全密码</a><br>" & vbCrLf
	UserMenu = UserMenu & "</td></tr>" & vbCrLf
    UserMenu = UserMenu & "</table>" & vbCrLf
    UserMenu = UserMenu & "</div>" & vbCrLf
    UserMenu = UserMenu & "  </td></tr>" & vbCrLf

    UserMenu = UserMenu & "</table>" & vbCrLf
   End Function
  
   Function PageTop()
      PageTop = PageTop & PageHand()
      PageTop = PageTop & UserTop()
      PageTop = PageTop & "<table id=div border=""0"" cellspacing=""0"" cellpadding=""0"" align=center><tr><td><img src=img/center_top.gif></td></tr>" & vbCrlf
      PageTop = PageTop & "<tr><td style='padding:5px;border-left:1px #CCCCCC solid;border-right:1px #CCCCCC solid'>" & vbCrlf
      PageTop = PageTop & "<table border=""0"" cellspacing=""0"" cellpadding=""0"" align=center>" & vbCrlf
      PageTop = PageTop & "  <tr>" & vbCrlf
      PageTop = PageTop & "    <td width=""155"" valign=top>"&UserMenu()&"</td>" & vbCrlf
      PageTop = PageTop & "    <td width=5></td>" & vbCrlf
      PageTop = PageTop & "    <td width=""810"" valign=top>" & vbCrlf
      PageTop = PageTop & "<!-- right -->" & vbCrlf
   End Function
  
   Function PageHand()
      PageHand = PageHand & "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""> " & vbCrlf
      PageHand = PageHand & "<html>" & vbCrlf
      PageHand = PageHand & "<head>" & vbCrlf
      PageHand = PageHand & "<meta http-equiv=""PageTop-Type"" PageTop=""text/html; charset=gb2312"">" & vbCrlf
      PageHand = PageHand & "<title>会员中心_"&WRTemp.SiteLabel(WR_Setting(0))&"</title>" & vbCrlf
      PageHand = PageHand & "<script language='JavaScript' src='User.js'></script>" & vbCrlf
      PageHand = PageHand & "<link rel=""shortcut icon"" href=""../images/favicon.ico"">" & vbCrlf
      PageHand = PageHand & "<link rel=""Bookmark"" href=""../images/favicon.ico"">" & vbCrlf
      PageHand = PageHand & "<Script language=""JavaScript"" Src=""../Inc/Menu.Js""></Script>" & vbCrlf
      PageHand = PageHand & "<link href='Style.css' rel='stylesheet' type='text/css'>" & vbCrlf
      PageHand = PageHand & "</head>" & vbCrlf
      PageHand = PageHand & "<body>" & vbCrlf
   End Function
   Function PageButtom()
      PageButtom = PageButtom & "<!-- right end -->" & vbCrlf
      PageButtom = PageButtom & "	</td>" & vbCrlf
      PageButtom = PageButtom & "  </tr>" & vbCrlf
      PageButtom = PageButtom & "</table>" & vbCrlf
      PageButtom = PageButtom & "</td></tr><tr><td><img src=img/center_bottom.gif></td></tr><tr><td>" & vbCrlf
      PageButtom = PageButtom & GetBottom()
      PageButtom = PageButtom & "</td></tr></table>" & vbCrlf
      If Int(WR_Mail(17)) > 0 Then PageButtom = PageButtom & "<script>ToAjax('User_Ajax.asp','Action=Message&Ajax=1');setInterval(""ToAjax('User_Ajax.asp','Action=Message&Ajax=1')"", 60000)</script>" & vbCrLf
      PageButtom = PageButtom & "</body>" & vbCrlf
      PageButtom = PageButtom & "</html>" & vbCrlf
   End Function
   Function Color(eName)
      Color = Color & "<select name='"&eName&"'>" & vbCrLf
      Color = Color & "<option value=''>　　</option>" & vbCrLf
      Color = Color & "<option value='#000000' style='background-color:#000000'></option>" & vbCrLf
      Color = Color & "<option value='#FFFFFF' style='background-color:#FFFFFF'></option>" & vbCrLf
      Color = Color & "<option value='#008000' style='background-color:#008000'></option>" & vbCrLf
      Color = Color & "<option value='#800000' style='background-color:#800000'></option>" & vbCrLf
      Color = Color & "<option value='#808000' style='background-color:#808000'></option>" & vbCrLf
      Color = Color & "<option value='#000080' style='background-color:#000080'></option>" & vbCrLf
      Color = Color & "<option value='#800080' style='background-color:#800080'></option>" & vbCrLf
      Color = Color & "<option value='#808080' style='background-color:#808080'></option>" & vbCrLf
      Color = Color & "<option value='#FFFF00' style='background-color:#FFFF00'></option>" & vbCrLf
      Color = Color & "<option value='#00FF00' style='background-color:#00FF00'></option>" & vbCrLf
      Color = Color & "<option value='#00FFFF' style='background-color:#00FFFF'></option>" & vbCrLf
      Color = Color & "<option value='#FF00FF' style='background-color:#FF00FF'></option>" & vbCrLf
      Color = Color & "<option value='#FF0000' style='background-color:#FF0000'></option>" & vbCrLf
      Color = Color & "<option value='#0000FF' style='background-color:#0000FF'></option>" & vbCrLf
      Color = Color & "<option value='#008080' style='background-color:#008080'></option>" & vbCrLf
      Color = Color & "</select>"
   End Function
   '======================================
   '地区提取函数：GetArea
   'IsNUllSelect 是否显示一个空的选项,0不，1要，2添加一个当前城市
   'IsDredge：是否只显示开通分站城市 1为是 0为否
   'Num：对应值，如果此值与列表中一个对应，则为selected
   'FormName：表单名
   '======================================
   Function GetArea(IsNUllSelect,IsDredge,Num,FormName)
     Dim uKey,uRs
     GetArea = "<select name="&FormName&">" & vbCrLf
	 Select Case IsNUllSelect
	   Case 1
	     GetArea = GetArea & "<option value=''></option>" & vbCrLf
	   Case 2
	     GetArea = GetArea & "<option value='-1'"&WRMPS.GetCheckVer(-1,Int(Num),0)&">当前城市</option>" & vbCrLf
	 End Select
     If IsDredge > 0 Then
	   uKey = " Where WM_Key=1 and "
	 Else
	   uKey = " Where "
	 End If
	 Set uRs = Conn.Execute("Select WM_Name,WM_ID from WM_Area"&uKey&"WM_ID in("&AgentList&") Order By WM_ClassID,WM_Taxis")
     Do While Not uRs.Eof
        GetArea = GetArea & "<option value="&uRs(1)&""&WRMPS.GetCheckVer(Int(uRs(1)),Int(Num),0)&">"&uRs(0)&"</option>" & vbCrLf
	 uRs.Movenext
	 Loop
	 uRs.Close
	 Set uRs = Nothing
     GetArea = GetArea & "</select>" & vbCrLf
   End Function
%>
12

⌨️ 快捷键说明

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