user_coupon.asp

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

	  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(38)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(39)&"</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(38)&","&WR_Prop(39)&","&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(40)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(41)&"</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(40)&","&WR_Prop(41)&","&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(42)&"</span>/天<br>"&WR_Other(0)&"：<span class=Font2>"&WR_Prop(43)&"</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(42)&","&WR_Prop(43)&","&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 Else
       Content = Content & PageTop()
       Content = Content & UserPath(",<a href=User_Coupon.asp>优惠券管理</a>")

       Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
	   Content = Content & "<form name=form1 method=get><td width='5%'>"
	   Content = Content & "<select name=Key align=absmiddle onChange='javascript:submit()'>"
       Content = Content & "<option value=0 " & WRMPS.GetCheckVer(0, Int(Key), 0) & ">待审核</option>"
       Content = Content & "<option value=1 " & WRMPS.GetCheckVer(1, Int(Key), 0) & ">已审核</option>"
       Content = Content & "<option value=2 " & WRMPS.GetCheckVer(2, Int(Key), 0) & ">已锁定</option>"
       Content = Content & "<option value=3 " & WRMPS.GetCheckVer(3, Int(Key), 0) & ">推荐优惠券</option>"
       Content = Content & "<option value=4 " & WRMPS.GetCheckVer(4, Int(Key), 0) & ">由店铺发布</option>"
       Content = Content & "</select> "
       Content = Content & "</td></form>"
       Content = Content & "<form name=form1 method=post><td width='90%'>&nbsp;"
       Content = Content & "<input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Word, 0) & "'> "
       Content = Content & "<select name=Table align=absmiddle>"
       Content = Content & "<option value=WM_Title " & WRMPS.GetCheckVer("WM_Title", Table, 0) & ">标题</option>"
       Content = Content & "<option value=WM_ComID " & WRMPS.GetCheckVer("WM_ComID", Table, 0) & ">店铺ID</option>"
	   Content = Content & "<option value=WM_User " & WRMPS.GetCheckVer("WM_User", Table, 0) & ">发布人</option>"
       Content = Content & "</select> <input type=submit name='Submit' value=' 查询 ' >"
       Content = Content & "</td></form>"
       Content = Content & "</tr></Table>" & vbCrLf
       
	   Select Case Key
	     Case 0
	       SQL = "WM_Key=0"
		 Case 1
	       SQL = "WM_Key=1"
		 Case 2
	       SQL = "WM_Key=2"
		 Case 3
	       SQL = "WM_Key=1 and WM_Commend=1"
		 Case 4
	       SQL = "WM_Key=1 and WM_ComID>0"
	   End Select
	   SQL = SQL & " and WM_User='"&MemName&"'"
	   If Word <> "" Then
	     Select Case Table
		   Case "WM_Title"
		     SQL = SQL & " and WM_Title like'%"&Word&"%'"
		   Case "WM_ComID"
		     SQL = SQL & " and WM_ComID = " & Word
		   Case "WM_User"
		     SQL = SQL & " and WM_User = '" & Word & "'"
         End Select
	   End If
       Set ClsPageList = New Cls_PageView  
       ClsPageList.strTableName = "WM_Coupon"  
       ClsPageList.strPageUrl = ""  
       ClsPageList.strFieldsList = "WM_ID,WM_Title,WM_Agio,WM_AgioType,WM_User,WM_Time,WM_Key,WM_Commend,WM_ChannelDir,WM_ClassDir,WM_aZTop,WM_aTop,WM_aTColor,WM_aBColor,WM_aBold,WM_aProp"  
       ClsPageList.strCondiction = SQL
       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  
       
       Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
       Content = Content & "<form method='post' Action='?Action=Save&Table=" & Table & "&Word=" & Word&"&Page=" & Page & "&Key=" & Key & "'>" & vbCrLf
       Content = Content & "<tr><td colspan='8' Class=td4><b>优惠券管理</b></td></tr>" & vbCrLf
       Content = Content & "<tr Align=center Class=td3><td width='3%'></td>" & vbCrLf
       Content = Content & "<td width=*>优惠券名称</td>" & vbCrLf
       Content = Content & "<td width='10%'>折扣</td>" & vbCrLf
       Content = Content & "<td width='17%'>上传时间</td>" & vbCrLf
       Content = Content & "<td width='4%'>状态</td>" & vbCrLf
       Content = Content & "<td width='4%'>推荐</td>" & vbCrLf
       Content = Content & "<td width='5%'>道具</td>" & vbCrLf
       Content = Content & "<td width='9%'>操作</td></tr>" & vbCrLf
	   If IsArray(arrPage) Then
         For i = 0 to UBound(arrPage, 2)  
         Content = Content & "<tr Class=td2 align='center'>" & vbCrLf
         Content = Content & "<td><input type='checkbox' name='ID' value=" & arrPage(0,i) & " style='border:0'></td>" & vbCrLf
		 Content = Content & "<td align=left><a href="&WRMPS.GetShowUrl(1,1,0,arrPage(0,i),arrPage(5,i),arrPage(8,i)&"/"&arrPage(9,i),ChannelID)&" target=_blank>" & arrPage(1,i) & "</a></td>" & vbCrLf
		 Content = Content & "<td align=left>" & WRMPS.GetReplace(WRMPS.GetReplace(arrPage(3,i),0,"<span class=Font3>折扣券</span>"),1,"<span class=Font1>抵价券</span>")&"|"&arrPage(2,i) & "</td>" & vbCrLf
		 Content = Content & "<td>" & arrPage(5,i) & "</td>" & vbCrLf
		 Content = Content & "<td>"
		 Select Case arrPage(6,i)
		   Case 0
		     Content = Content & "<font class=Font6>待审</font>"
		   Case 1
		     Content = Content & "正常"
		   Case 2
		     Content = Content & "<font class=Font2>锁定</font>"
		 End Select
		 Content = Content & "</td>" & vbCrLf
		 Content = Content & "<td>"
		 Select Case arrPage(7,i)
		   Case 0
		     Content = Content & "×"
		   Case 1
		     Content = Content & "<font class=Font2><strong>√</strong></font>"
		 End Select
		 Content = Content & "</td>" & vbCrLf
		 Content = Content & "<td><a href=# onClick=""openWithIframe('优惠券道具','?Action=DJ&ID="&arrPage(0,i)&"',800,500);"">"
			WM_aProp = arrPage(15,i)
			WM_aZTop = arrPage(10,i)
			WM_aTop = arrPage(11,i)
			WM_aTColor = arrPage(12,i)
			WM_aBColor = arrPage(13,i)
			WM_aBold = arrPage(14,i)
			If WM_aZTop > Now() or WM_aTop > Now() or WM_aTColor > Now() or WM_aBColor > Now() or WM_aBold > Now() or Trim(WM_aProp) <> "0|0" Then
			  Content = Content & "<img src='../Member/img/dj.gif' title='已使用道具' border=0>"
			Else
			  Content = Content & "<img src='../Member/img/djno.gif' title='未使用道具' border=0>"
			End If
		 Content = Content & "</a></td>" & vbCrLf
         Content = Content & "<td><a href='?Action=Edit&ID=" & arrPage(0,i) & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Key=" & Key & "'>修改</a> <a href=?Action=Save&Work=Del&ID=" & arrPage(0,i) & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Key=" & Key & " onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
		 Next  
       End If  
       Content = Content & "</table>" & vbCrLf
       Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center class=td5><tr><td height=30>" & vbCrLf
       Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'>"
	   Content = Content & "<option value='Del'>删除</option></select>　<input type=submit name='submit' value='操 作' onclick=""Loading.style.display='';Loading.style.bottom=100;"">" & vbCrLf
       Content = Content & "</td><td align=right>" & vbCrLf
       Content = Content & strPageList ' 插入分页
       Content = Content & "</td></tr></Form>" & vbCrLf
	   Content = Content & "</table>" & vbCrLf
	
       Content = Content & PageButtom()

End Select
Set Rso=Nothing
Call DBConnEnd()
Call ClassEnd()
Response.write Content

%>