user_coupon.asp

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

		If WRMPS.CheckStr(Request("DelDJ"), 1) = 1 Then
		  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_Coupon Set "&SQL&" Where WM_ID = "&ID&" and WM_User = '"&MemName&"'")
	      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(30)):DC1 = Int(WR_Prop(31))
		  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(32)):DC2 = Int(WR_Prop(33))
		  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(34))*aZTop:DC3 = Int(WR_Prop(35))*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(36))*aTop:DC4 = Int(WR_Prop(37))*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(38))*aTColor:DC5 = Int(WR_Prop(39))*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(40))*aBColor:DC6 = Int(WR_Prop(41))*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(42))*aBold:DC7 = Int(WR_Prop(43))*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_Coupon 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_Coupon Where WM_ID = "&ID&" and WM_User='"&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(30)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(31)&"</span>/次<br>"
      If WM_Key > 0 Then
	    Content = Content & "此信息已审核"
	  Else
	    Content = Content & "道具使用："&WM_aProp(0)&"次<br><input type=checkbox name=aKey value=1 onclick='ShowChange(1,1,"&WR_Prop(30)&","&WR_Prop(31)&","&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(34)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(35)&"</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(34)&","&WR_Prop(35)&","&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(36)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(37)&"</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(36)&","&WR_Prop(37)&","&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(32)&"</span>/次<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(33)&"</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(32)&","&WR_Prop(33)&","&DIntegral&","&DCountOut&")'> 购买"
	  End If
	  Content = Content & "</td>" & vbCrlf
      Content = Content & "  </tr>" & vbCrlf
      Content = Content & "</table>" & vbCrlf
	  Content = Content & "</td>" & vbCrlf

      Content = Content & "    <td>"