礼券管理

<% Const MaxPerPage=20 dim totalPut,CurrentPage,TotalPages,j,sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if dim namekey,checkbox,action,vipuser action=FormatSQL(SafeRequest("action",0)) checkbox=request.form("checkbox") namekey=request.form("namekey") if namekey="" then namekey=FormatSQL(SafeRequest("namekey",0)) if checkbox="" then checkbox=FormatSQL(SafeRequest("checkbox",0)) set rs=server.CreateObject("adodb.recordset") if namekey="" then rs.open "select * from acoupon order by id desc",conn,1,1 else if checkbox=1 then rs.open "select * from acoupon order by id desc",conn,1,1 else rs.open "select * from acoupon order by id desc",conn,1,1 end if end if if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "

对不起，没有此礼券！

" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"adminuser.asp" else if (currentPage-1)*MaxPerPage

礼券管理

说明：

注：A、礼券为一次性使用； B、以下所指的订单的全部金额不包括订单内的特价商品和订单的运费。

1、全额现金抵用券：用礼券的全部金额对订单的总金额进行抵扣，若礼券金额小于或等于订单金额，则礼券可全额抵扣；若大于订单金额，多余部分则视做放弃。

2、比例现金抵用券：对订单金额的10%进行抵扣，若礼券金额小于或等于订单金额的10%，则礼券可全额抵扣；若大于订单金额的10%，多余部分则视做放弃。

3、订单折扣券：对订单金额进行相应的打折。

4、免费商品券：免费领取相应的商品。

<%'set rs=server.CreateObject("adodb.recordset") 'rs.open "select * from acoupon where state=1 order by id desc",conn,1,1 'intTotalNum = rs.RecordCount do while not rs.eof %> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop%>

礼券号	性质	内容	最多拥有	有效期	状态	发放时间	结束时间	查看详细	选择
" target=_blank ><%=rs("code")%>	<% select case rs("kind") case 1 response.write "比例现金抵用券" case 2 response.write "订单折扣券" case 3 response.write "免费商品券" case 4 response.write "全额现金抵用券" end select %>	<%if rs("kind")=1 then %> <%=rs("content")%>元 <% elseif rs("kind")=2 then %> <%=rs("content")%>折 <% elseif rs("kind")=3 then %> " target=_blank ><%=rs("content")%>商品 <% elseif rs("kind")=4 then %> <%=rs("content")%>元 <% end if %>	<%=rs("max")%> 张	<% if isnull(rs("deadline")) then %> 无 <% else %> <%=rs("deadline") %> <% end if %>	<%if rs("state")=1 then if datediff("d",now(),rs("deadline")) < 0 then %> 已经过期 <%elseif datediff("d",now(),rs("deadline")) =< 10 then '提前10天告示 %> 即将过期 <% else %> 可以领取 <% end if %> <%elseif rs("state") =0 then %> 停止发放 <%end if%>	<% if isnull(rs("startdate")) then %> <% else %> <%=rs("startdate") %> <% end if %>	<%=rs("enddate") %>	" target=_blank >查看详细	" >

全选

<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "