gift.asp

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

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<%
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以进行此操作！")

Dim ID,Contact,Tel,QQ,Order,Integral,MyIntegral
Call WRMPS.CheckSubmit()
ID = WRMPS.CheckStr(Request("ID"),0)
Contact = WRMPS.CheckStr(Request("Contact"),0)
Tel = WRMPS.CheckStr(Request("Tel"),0)
QQ = WRMPS.CheckStr(Request("QQ"),0)
Email = WRMPS.CheckStr(Request("Email"),0)

If ID = "" Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../Gift/'>",0)
If Contact = "" Then Call WRMPS.ErrView("·请输入联系人<meta http-equiv=refresh content='1;URL="&WRMPS.GetGiftUrl(ID)&"'>",0)
If Tel = "" and QQ = "" And Email = "" Then Call WRMPS.ErrView("·联系电话、QQ号码、邮箱必须至少填写一样<meta http-equiv=refresh content='1;URL="&WRMPS.GetGiftUrl(ID)&"'>",0)
If Len(ID) > 50 Or Len(Contact) >50 Or Len(Tel) >50 Or Len(QQ) >50 Or Len(Email) >50 Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../Gift/'>",0)

Order = Replace(Replace(Replace(Now(),"-",""),":","")," ","")

Call DBConnBegin()
Set Rs = Conn.Execute("Select WM_Integral,WM_Num From WM_Gift Where WM_Number ='"&ID&"'")
If Rs.Eof Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../Gift/'>",0)
If Rs(1) <= 0 Then Call WRMPS.ErrView("·礼品库存为空<meta http-equiv=refresh content='1;URL=../Gift/'>",0)
  Integral = Rs(0)
Rs.Close
Set Rs = Nothing 
Set Rs = Conn.Execute("Select WM_Integral From WM_Member Where WM_ID = "&MemID)
If Rs.Eof Then Call WRMPS.ErrView("·操作错误<meta http-equiv=refresh content='1;URL=../Gift/'>",0)
  MyIntegral = Rs(0)
Rs.Close
If MyIntegral < Integral Then Call WRMPS.ErrView("·您的账户积分已不足本次兑换！<meta http-equiv=refresh content='3;URL=../Gift/'>",0)

Conn.Execute("Insert Into WM_GiftOrder(WM_Number,WM_Order,WM_User,WM_Contact,WM_Tel,WM_QQ,WM_Email,WM_Key,WM_Time)values('"&ID&"','"&Order&"','"&MemName&"','"&Contact&"','"&Tel&"','"&QQ&"','"&Email&"',0,"&ConnTime&")")
Conn.Execute("Update WM_Gift Set WM_Num = WM_Num-1 Where WM_Number='"&ID&"'")

Call WRDB.SaveConsume(0,MemName,0,0,Int("-"&Integral),0,"兑换礼品(编号："&ID&")")

Call WRMPS.ErrView("·操作成功，我们将在一至两个工作日内和您联系！<meta http-equiv=refresh content='3;URL=../Gift/'>",1)
Call ClassEnd()
Call DBConnEnd()

%>