user_company.asp

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

	  Else
	    Content = Content & "道具使用："&WM_aProp(0)&"次<br><input type=checkbox name=aKey value=1 onclick='ShowChange(1,1,"&WR_Prop(0)&","&WR_Prop(1)&","&DIntegral&","&DCountOut&")'> 购买"
	  End If
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf
	  
      Content = Content & "    <td width='34%'>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj3.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>总置顶道具</strong><br>积分：<span class=Font2>"&WR_Prop(4)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(5)&"</span>/天<br>"
      If Cdate(WM_aZTop) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aZTop)&"-"&Month(WM_aZTop)&"-"&Day(WM_aZTop)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aZTop value=0 size=5 onKeyUp='ShowChange(3,this.value,"&WR_Prop(4)&","&WR_Prop(5)&","&DIntegral&","&DCountOut&")'> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td width='33%'>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj4.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>分类置顶道具</strong><br>积分：<span class=Font2>"&WR_Prop(6)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(7)&"</span>/天<br>"
      If Cdate(WM_aTop) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aTop)&"-"&Month(WM_aTop)&"-"&Day(WM_aTop)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aTop value=0 size=5 onKeyUp='ShowChange(4,this.value,"&WR_Prop(6)&","&WR_Prop(7)&","&DIntegral&","&DCountOut&")'> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf
	  
      Content = Content & "  </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj2.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>自动推荐道具</strong><br>积分：<span class=Font2>"&WR_Prop(2)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(3)&"</span>/次<br>"
      If WM_Commend > 0 Then
	    Content = Content & "此信息已推荐"
	  Else
	    Content = Content & "道具使用："&WM_aProp(1)&"次<br><input type=checkbox name=aCommend value=1 onclick='ShowChange(2,1,"&WR_Prop(2)&","&WR_Prop(3)&","&DIntegral&","&DCountOut&")'> 购买"
	  End If
	  Content = Content & "</td>" & vbCrlf
      Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj5.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题变色道具</strong><br>积分：<span class=Font2>"&WR_Prop(8)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(9)&"</span>/天<br>"
      If Cdate(WM_aTColor) > Now() Then
	    Content = Content & "已使用 <span style='padding:5px;background:"&WM_aTitColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aTColor)&"-"&Month(WM_aTColor)&"-"&Day(WM_aTColor)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aTColor value=0 size=5 onKeyUp='ShowChange(5,this.value,"&WR_Prop(8)&","&WR_Prop(9)&","&DIntegral&","&DCountOut&")'> 天"
	  Content = Content & "<br>换换颜色 "&Color("aTitColor")
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj6.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题背景色道具</strong><br>积分：<span class=Font2>"&WR_Prop(10)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(11)&"</span>/天<br>"
      If Cdate(WM_aBColor) > Now() Then
	    Content = Content & "已使用 <span style='padding:5px;background:"&WM_aBgColor&"' title='当前颜色'><img width=0 height=0 align=absmiddle></span>(到期："&Year(WM_aBColor)&"-"&Month(WM_aBColor)&"-"&Day(WM_aBColor)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aBColor value=0 size=5 onKeyUp='ShowChange(6,this.value,"&WR_Prop(10)&","&WR_Prop(11)&","&DIntegral&","&DCountOut&")'> 天"
	  Content = Content & "<br>换换颜色 "&Color("aBgColor")
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "  </tr><tr><td height=8px colspan=3></td></tr><tr>" & vbCrlf

      Content = Content & "    <td>"
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "  <tr>" & vbCrlf
      Content = Content & "    <td align=center width='90px'><div style='border:1px #999999 solid;padding:5px'><img src='Img/dj7.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>标题加粗道具</strong><br>积分：<span class=Font2>"&WR_Prop(12)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(13)&"</span>/天<br>"
      If Cdate(WM_aBold) > Now() Then
	    Content = Content & "已使用 (到期："&Year(WM_aBold)&"-"&Month(WM_aBold)&"-"&Day(WM_aBold)&")<br>再次"
	  End If
	  Content = Content & "购买 <input type=text name=aBold value=0 size=5 onKeyUp='ShowChange(7,this.value,"&WR_Prop(12)&","&WR_Prop(13)&","&DIntegral&","&DCountOut&")'> 天"
	  Content = Content & "</td>" & vbCrlf
	  Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "  </tr>" & vbCrlf
	  Content = Content & "  <tr class=td2><td colspan=3 height=60px><div style='text-align:center'>"
	  Content = Content & "您目前拥有 <span class=Font2><strong>"&DCountOut&"</strong></span> "&WR_Other(0)&" 和 <span class=Font2><strong>"&DIntegral&"</strong></span> 积分，当前选择的道具共需 <strong><span class=Font2 id=Ct>0</span></strong> "&WR_Other(0)&" 和 <strong><span class=Font2 id=Il>0</span></strong> 积分。"
	  Content = Content & "<br><input type=checkbox name=DelDJ value=1>取消所有已使用的道具　<input onclick='ShowChange(-1,0,0,0,"&DIntegral&","&DCountOut&");' type='button' value='确认购买'></div>"
      Content = Content & "  <tr class=td3><td colspan=3><li>道具购买成功后如果信息被删除或取消道具使用将不在返还道具购买费用<li>购买标题变色或背景色道具后可以随时免费变换颜色。</td></tr>" & vbCrlf
      Content = Content & "</form>"
      Content = Content & "</table>" & vbCrlf

  Case "DelAll"
      Set Rs = 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&" and B.WM_RZBL=1")
      If Not Rs.Eof Then
         ComID = Rs(0)
         EndTime = Rs(1)
         If EndTime < Now() Then Call WRMPS.ErrView("·您的店铺已过期！<br>·<a href=User_Rl.asp?Action=RL&ID="&Rs(0)&">重新认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
      Else
         Call WRMPS.ErrView("·您还没有认领店铺！<br>·<a href=User_Rl.asp>现在认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
      End If
      Rs.Close
      ID = Replace(ID, "&nbsp;", "")
      If ID <> "" Then
          ID = Split(ID, ",")
          Call WRMPS.FsoBegin()
		  For i = 0 To UBound(ID)
		    Set Rs = Conn.Execute("Select WM_ComID,WM_Path,WM_Key,WM_Type From WM_CompanyPhoto where WM_ID=" & Int(ID(i))&" and WM_ComID="&ComID)
		    If Not Rs.Eof Then
              If Rs(2) > 0 and Rs(3) < 1 Then Conn.Execute ("Update WM_Company Set WM_PhotoNum = WM_PhotoNum-1 where WM_ID=" & ComID & " and WM_PhotoNum > 0")
		      Call WRMPS.FsoDel("File",WRMPS.CheckStr(Rs(1),5))
              Conn.Execute ("Delete From WM_CompanyPhoto where WM_ID=" & ID(i) & "")
			End If
			Rs.Close
          Next
		  Call WRMPS.FsoEnd()
      End If
      Response.Redirect "?Action=Photo&Page=" & Page
  
  Case "PhotoPic"
      Dim SPicPath
      Set Rs = 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&" and B.WM_RZBL=1")
      If Not Rs.Eof Then
         ComID = Rs(0)
         EndTime = Rs(1)
         If EndTime < Now() Then Call WRMPS.ErrView("·您的店铺已过期！<br>·<a href=User_Rl.asp?Action=RL&ID="&Rs(0)&">重新认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
      Else
         Call WRMPS.ErrView("·您还没有认领店铺！<br>·<a href=User_Rl.asp>现在认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
      End If
      Rs.Close
 	  Set Rs = Conn.Execute("Select WM_Type,WM_Path,WM_ComID From WM_CompanyPhoto where WM_ID=" & ID&" and WM_ComID="&ComID)
		If Not Rs.Eof Then
          If Rs(0) < 1 Then
		    SPicPath = WRMPS.CheckStr(Replace(Rs(1),split(Rs(1),"/")(UBound(split(Rs(1),"/"))),"S/"&split(Rs(1),"/")(UBound(split(Rs(1),"/")))),5)
            Call WRMPS.FsoBegin()
		    If WRMPS.FsoIsTrue("File",SPicPath) = False Then SPicPath = Rs(1)
            Call WRMPS.FsoEnd()
		    Conn.Execute("Update WM_Company Set WM_LastPhoto='"&SPicPath&"' Where WM_ID="&Rs(2))
		  End If
		End If
	  Rs.Close
      Response.Redirect "?Action=Photo&Page=" & Page

  Case "Photo"
       Content = Content & PageTop()
       Content = Content & UserPath(",<a href=User_Company.asp?Action=Photo>店铺图片管理</a>")
       Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "<tr><td colspan='6' Class=td4><b>图片管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3>" & vbCrLf
       Content = Content & "<td width='12%'>上传人</td>" & vbCrLf
       Content = Content & "<td>图片名称</td>" & vbCrLf
       Content = Content & "<td width='15%'>上传时间</td>" & vbCrLf
       Content = Content & "<td width='10%'>设置</td>" & vbCrLf
       Content = Content & "<td width='10%'>操作</td></tr>" & vbCrLf
       Set Rs = 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&" and B.WM_RZBL=1")
       If Not Rs.Eof Then
         ComID = Rs(0)
         EndTime = Rs(1)
         If EndTime < Now() Then Call WRMPS.ErrView("·您的店铺已过期！<br>·<a href=User_Rl.asp?Action=RL&ID="&Rs(0)&">重新认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
       Else
         Call WRMPS.ErrView("·您还没有认领店铺！<br>·<a href=User_Rl.asp>现在认领？</a><meta http-equiv='refresh' content='3;URL=User_Rl.asp'>", 0)
       End If
       Rs.Close
       Set ClsPageList = New Cls_PageView  
       ClsPageList.strTableName = "WM_CompanyPhoto"  
       ClsPageList.strPageUrl = ""  
       ClsPageList.strFieldsList = "WM_ID,WM_PhotoName,WM_User,WM_Time,WM_ComID,WM_Path,WM_Type,WM_Key"  
       ClsPageList.strCondiction = "WM_ComID="&ComID&" and WM_Key = 1"
       ClsPageList.strOrderList = "WM_ID desc"  
       ClsPageList.strPrimaryKey = "WM_ID"  
       ClsPageList.intPageSize = 20
       ClsPageList.intPageNow = Page
       ClsPageList.strCookiesName = "RecordCount"  
       ClsPageList.strPageVar = "Page"  
       ClsPageList.intRefresh = 1
	   ClsPageList.inAdmin = 1
       ClsPageList.objConn = Conn  
       ClsPageList.InitClass  
       arrPage = ClsPageList.arrPage  
       strPageList = ClsPageList.strPageList  
       Set ClsPageList = nothing  
       If IsArray(arrPage) Then
         For i = 0 to UBound(arrPage, 2)  
         Content = Content & "<tr Class=td2 align='center'>" & vbCrLf
         Content = Content & "<td>"
		 Content = Content & WRUser.DispUser(0,arrPage(2,i))
		 Content = Content & "</td>" & vbCrLf
         Content = Content & "<td align=left>"
         Content = Content & arrPage(1,i)
         Content = Content & "<td>" & arrPage(3,i) & "</td><td>" & vbCrLf
		 If arrPage(7,i) = 1 and arrPage(6,i) = 0 Then Content = Content & "<a href=?Action=PhotoPic&ID=" & arrPage(0,i) & "&Page=" & Page & ">设为店铺图片</a>"
         Content = Content & "</td><td>" & vbCrLf
		 Content = Content & "<a href='"&WRMPS.CheckStr(arrPage(5,i),5)&"' target=_blank>查看</a>"
		 Content = Content & " <a href=?Action=DelAll&ID=" & arrPage(0,i) & "&Page=" & Page & " onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
		 Next  
       End If  
       Content = Content & "<tr class=td3><td align=right colspan=5>" & strPageList & "</td></tr>" & vbCrLf