user_company.asp

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

<!--#include file="Cook.asp" -->
<%
Dim N,i,Table,Word
Dim WM_Estate,ComID
Dim Intro,Corporation,Tags,Tag,rFlag,UserName
Dim Company,Address,Phone,Mobile
Dim DCountOut,DIntegral,WM_Commend,DC1,DI1,DC2,DI2,DC3,DI3,DC4,DI4,DC5,DI5,DC6,DI6,DC7,DI7
Dim WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor,WM_Key
Dim aKey,aCommend,aZTop,aTop,aTColor,aBColor,aTitColor,aBgColor,aBold,aProp1,aProp2,WM_CheckUser,WM_ClaimUser,WM_BLPic

Dim Estate,eSql
ChannelID = 6
ID = WRMPS.CheckStr(Request("ID"), 0)
Page = WRMPS.CheckStr(Request("page"),1)
Table = WRMPS.CheckStr(Request("Table"), 0)
Word = WRMPS.CheckStr(Request("Word"), 0)
Estate = WRMPS.CheckStr(Request("Estate"),1)
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set Rso = Server.CreateObject("ADODB.RecordSet")

Select Case Request("Action")
  Case "Save"
	ID = Replace(ID,"&nbsp;","")
    If ID <> "" Then
      ID = Split(ID, ",")
      Call WRMPS.FsoBegin()
	  For i = 0 To UBound(ID)
         Select Case Request("Work")
		   Case "Del"
             Set Rs = Conn.Execute("Select WM_Key,WM_CheckUser,WM_ClaimUser From WM_Company Where WM_ID = "&Int(ID(i))&" and WM_CheckUser = '"&MemName&"'")
			 If Not Rs.Eof Then
			     If Rs(0) > 0 Then
	               Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum - 1 where WM_CompanyNum > 0")
	               Conn.Execute("Update WM_Member Set WM_CompanyNum = WM_CompanyNum - 1 Where WM_CompanyNum > 0 and WM_UserName = '"&Rs(1)&"'")
	               If Rs(2) <> "" and IsNull(Rs(2)) = False Then Conn.Execute("Update WM_Member Set WM_ComID=0 Where WM_UserName='"&Rs(2)&"'")
	               Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") - 1)
                   Conn.Execute("Delete From WM_Company where WM_ID="&Int(ID(i))&" and WM_CheckUser = '"&MemName&"'")
			       Call WRMPS.FsoDel("Dir","../Co/"&Int(ID(i))&"/")
			       Call WRMPS.FsoDel("Dir",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&Int(ID(i))&"/")
				 End If
			 End If
			 Rs.Close
		 End Select
      Next
	  Call WRMPS.FsoEnd()
	  Set Rs = Nothing
    End If
	Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"'>",1)
  
  Case "DJSave"
	DI1=0:DC1=0:DI2=0:DC2=0:DI3=0:DC3=0:DI4=0:DC4=0:DI5=0:DC5=0:DI6=0:DC6=0:DI7=0:DC7=0	
    Set Rs = Conn.Execute("Select Top 1 WM_Key,WM_Commend,WM_aProp,WM_aZTop,WM_aTop,WM_aTitColor,WM_aTColor,WM_aBgColor,WM_aBColor,WM_aBold,WM_CheckUser,WM_ClaimUser,WM_BLPic From WM_Company Where WM_ID = "&ID&" and (WM_CheckUser = '"&MemName&"' or WM_ClaimUser = '"&MemName&"')")
    If Not Rs.Eof Then
	    WM_Key = Rs(0)
		WM_Commend = Rs(1)
		WM_aProp = Split(Rs(2),"|")
		WM_aZTop = Rs(3)
		WM_aTop = Rs(4)
		WM_aTitColor = Rs(5)
		WM_aTColor = Rs(6)
		WM_aBgColor = Rs(7)
		WM_aBColor = Rs(8)
		WM_aBold = Rs(9)
		WM_CheckUser = Rs(10)
		WM_ClaimUser = Rs(11)
		WM_BLPic = Rs(12)
		aProp1=WM_aProp(0):aProp2=WM_aProp(1)
		
		If WRMPS.CheckStr(Request("DelDJ"), 1) = 1 Then
		  If WM_BLPic <> "" and IsNull(WM_BLPic) = False and WM_ClaimUser <> MemName Then
	        Call WRMPS.ErrView("·此店铺已被领，您没有权力进行此操作<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
		  End If
		  If WM_CheckUser <> MemName Then
	        Call WRMPS.ErrView("·您不是店铺登记人，没有权力进行此操作<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
		  End If
		  SQL = SQL & "WM_aZTop="&ConnTime
		  SQL = SQL & ",WM_aTop="&ConnTime
		  SQL = SQL & ",WM_aTitColor=Null"
		  SQL = SQL & ",WM_aTColor="&ConnTime
		  SQL = SQL & ",WM_aBgColor=Null"
		  SQL = SQL & ",WM_aBColor="&ConnTime
		  SQL = SQL & ",WM_aBold="&ConnTime
		  SQL = SQL & ",WM_aProp='0|0'"
		  If Int(aProp1) > 0 Then SQL = SQL & ",WM_Key=0"
		  If Int(aProp2) > 0 Then SQL = SQL & ",WM_Commend=0"
		  Conn.Execute("Update WM_Company Set "&SQL&" Where WM_ID = "&ID)
	      Call WRMPS.ErrView("·道具取消成功<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
		End If
		
        aKey = WRMPS.CheckStr(Request("aKey"), 1)
        If aKey = "" Then aKey = 0
		If WM_Key = 0 and aKey > 0 Then
          DI1 = Int(WR_Prop(0)):DC1 = Int(WR_Prop(1))
		  aProp1 = aProp1+1
		  SQL = SQL & ",WM_Key=1"
		End If
        aCommend = WRMPS.CheckStr(Request("aCommend"), 1)
        If aCommend = "" Then aCommend = 0
		If WM_Commend = 0 and aCommend > 0 Then
          DI2 = Int(WR_Prop(2)):DC2 = Int(WR_Prop(3))
		  aProp2 = aProp2+1
		  SQL = SQL & ",WM_Commend=1"
		End If
        aZTop = WRMPS.CheckStr(Request("aZTop"), 1)
        If aZTop = "" Then aZTop = 0
		If aZTop > 0 Then
		  If WM_aZTop < Now() Then WM_aZTop = Now()
		  WM_aZTop = WM_aZTop + aZTop
          DI3 = Int(WR_Prop(4))*aZTop:DC3 = Int(WR_Prop(5))*aZTop
		  SQL = SQL & ",WM_aZTop='"&WM_aZTop&"'"
		End If
        aTop = WRMPS.CheckStr(Request("aTop"), 1)
        If aTop = "" Then aTop = 0
		If aTop > 0 Then
		  If WM_aTop < Now() Then WM_aTop = Now()
		  WM_aTop = WM_aTop + aTop
          DI4 = Int(WR_Prop(6))*aTop:DC4 = Int(WR_Prop(7))*aTop
		  SQL = SQL & ",WM_aTop='"&WM_aTop&"'"
		End If
        aTColor = WRMPS.CheckStr(Request("aTColor"), 1)
        If aTColor = "" Then aTColor = 0
		If aTColor > 0 Then
		  If WM_aTColor < Now() Then WM_aTColor = Now()
		  WM_aTColor = WM_aTColor + aTColor
          DI5 = Int(WR_Prop(8))*aTColor:DC5 = Int(WR_Prop(9))*aTColor
	      SQL = SQL & ",WM_aTColor='"&WM_aTColor&"'"
		End If
		aTitColor = WRMPS.CheckStr(Request("aTitColor"), 0)
		If aTitColor = "" Then aTitColor = WM_aTitColor
		If aTitColor = "" Or IsNull(aTitColor) Then aTitColor = Null
	    SQL = SQL & ",WM_aTitColor='"&aTitColor&"'"
		aBColor = WRMPS.CheckStr(Request("aBColor"), 1)
        If aBColor = "" Then aBColor = 0
		If aBColor > 0 Then
		  If WM_aBColor < Now() Then WM_aBColor = Now()
		  WM_aBColor = WM_aBColor + aBColor
          DI6 = Int(WR_Prop(10))*aBColor:DC6 = Int(WR_Prop(11))*aBColor
		  SQL = SQL & ",WM_aBColor='"&WM_aBColor&"'"
		End If
		aBgColor = WRMPS.CheckStr(Request("aBgColor"), 0)
		If aBgColor = "" Then aBgColor = WM_aBgColor
		If aBgColor = "" Or IsNull(aBgColor) Then aBgColor = Null
		SQL = SQL & ",WM_aBgColor='"&aBgColor&"'"
        aBold = WRMPS.CheckStr(Request("aBold"), 1)
        If aBold = "" Then aBold = 0
		If aBold > 0 Then
		  If WM_aBold < Now() Then WM_aBold = Now()
		  WM_aBold = WM_aBold + aBold
          DI7 = Int(WR_Prop(12))*aBold:DC7 = Int(WR_Prop(13))*aBold
		  SQL = SQL & ",WM_aBold='"&WM_aBold&"'"
		End If

	    DCountOut = DC1 + DC2 + DC3 + DC4 + DC5 + DC6 + DC7
	    DIntegral = DI1 + DI2 + DI3 + DI4 + DI5 + DI6 + DI7

       Set Rs = Conn.Execute("Select Top 1 WM_CountOut,WM_Integral From WM_Member Where WM_ID = "&MemID)
       If Not Rs.Eof Then
	     If DCountOut > Rs(0) Or DIntegral > Rs(1) Then Call WRMPS.ErrView("·您的账户积分或"&WR_Other(0)&"已不够本次支付！<br>·<a href='User_Exchange.asp' target=_parent>现在就去兑换？</a>",0)
       End If
       Rs.Close
	   
	   If DI1>0 Or DC1>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC1),Int("-"&DI1),0,"购买店铺自动审核道具")
	   If DI2>0 Or DC2>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC2),Int("-"&DI2),0,"购买店铺自动推荐道具")
	   If DI3>0 Or DC3>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC3),Int("-"&DI3),0,"购买店铺总置顶道具")
	   If DI4>0 Or DC4>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC4),Int("-"&DI4),0,"购买店铺分类置顶道具")
	   If DI5>0 Or DC5>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC5),Int("-"&DI5),0,"购买店铺标题变色道具")
	   If DI6>0 Or DC6>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC6),Int("-"&DI6),0,"购买店铺标题背景色道具")
	   If DI7>0 Or DC7>0 Then Call WRDB.SaveConsume(0,MemName,0,Int("-"&DC7),Int("-"&DI7),0,"购买店铺标题加粗道具")

	   SQL = " WM_aProp='"&aProp1&"|"&aProp2&"'"&SQL
	   Conn.Execute("Update WM_Company Set"&SQL&" Where WM_ID = "&ID)
	   Call WRMPS.ErrView("·道具购买成功<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
    Else
	   Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",0)
    End If
    Rs.Close
	Set Rs=Nothing
  
  Case "DJ"
      Set Rs = Conn.Execute("Select Top 1 WM_Integral,WM_CountOut From WM_Member Where WM_ID = "&MemID)
      If Not Rs.Eof Then
	    DIntegral = Rs(0)
	    DCountOut = Rs(1)		
      End If
      Rs.Close
      Set Rs = Conn.Execute("Select Top 1 WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_Commend,WM_Key,WM_aTColor,WM_aBColor From WM_Company Where WM_ID = "&ID&" and (WM_CheckUser = '"&MemName&"' or WM_ClaimUser = '"&MemName&"')")
      If Not Rs.Eof Then
	    WM_aZTop = Rs(0)
		WM_aTop = Rs(1)
		WM_aTitColor = Rs(2)
		WM_aBgColor = Rs(3)
		WM_aBold = Rs(4)
		WM_aProp = Split(Rs(5),"|")
		WM_Commend = Rs(6)
		WM_Key = Rs(7)
		WM_aTColor = Rs(8)
		WM_aBColor = Rs(9)
      End If
      Rs.Close
	  Set Rs=Nothing
      Content = Content & PageHand()
	  Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
      Content = Content & "<form name='myform' action='?Action=DJSave&ID="&ID&"' method='post'>"
      Content = Content & "  <tr>" & 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/dj1.gif'></div></td>" & vbCrlf
      Content = Content & "    <td style='padding:0 5px' valign=top><strong>自动审核道具</strong><br>积分：<span class=Font2>"&WR_Prop(0)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(1)&"</span>/次<br>"
      If WM_Key > 0 Then
	    Content = Content & "此信息已审核"