<% If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登錄后才可以登記優惠券!") If Int(Mem(0)(16)) > 1 Then Call WRMPS.ErrView("","","
  • 您沒有權限操作此功能", 0) Dim ID,ComID,Title,Intro,AgioType,Agio,WM_Begin,WM_End,Address,TEL,Path,PathList,Code,ClassDir,Tags,Items,Circumscribe,AreaB,AreaS,WM_Key ClassID = WRMPS.CheckStr(Request("ClassID"),1) ComID=WRMPS.CheckStr(Request("ComID"),1) If ComID = "" Then ComID = 0 If ComID > 0 Then Set Rs = Conn.Execute("Select WM_User,WM_Key From WM_Company Where WM_ID="&ComID) If Not Rs.Eof Then If MemName <> Rs(0) Then Call WRMPS.ErrView("","index.asp","
  • 您不是店主,沒有權限操作此功能",0) If Rs(1) <> 1 Then Call WRMPS.ErrView("","index.asp","
  • 店鋪還沒有經過審核或被鎖定,不能操作",0) Else Call WRMPS.ErrView("","index.asp","
  • 操作錯誤",0) End If Rs.Close Else If Int(WR_Company(0)) > 0 and Int(Mem(0)(6)) < 2 Then Set Rs = Conn.Execute("Select A.WM_ComID,B.WM_Key From WM_Member A Inner Join WM_Company B on A.WM_ComID = B.WM_ID Where A.WM_ID = "&MemID) If Not Rs.Eof Then ComID = Rs(0) If Rs(1) <> 1 Then Call WRMPS.ErrView("","index.asp","
  • 店鋪還沒有經過審核或被鎖定,不能操作",0) End If Rs.Close End If End If Select Case Request("Action") Case "Save" Call WRMPS.CheckSubmit() AreaID = WRMPS.CheckStr(Request.form("AreaID"),1) If ClassID ="" Then Call WRMPS.ErrView("","post.asp","
  • 請選擇優惠券所屬分類",0) If AreaID ="" Then Call WRMPS.ErrView("","post.asp","
  • 請選擇優惠券所屬地區",0) AreaB = WRMPS.CheckStr(Request.form("ChildArea"),0) AreaB = WRMPS.GetReplace(WRMPS.GetReplace(AreaB," ","")," ","") AreaS = 0 If AreaB <> "" Then If InStr(AreaB,",") > 0 Then:AreaS = Split(AreaB,",")(1):AreaB = Split(AreaB,",")(0) Else AreaB = 0 End If Title = WRMPS.CheckStr(Request.form("Title"),0) If Title = "" Then Call WRMPS.ErrView("","post.asp","
  • 優惠券名稱不能為空",0) Intro = WRMPS.CheckStr(Request.form("Content"),0) If Intro = "" Then Intro = NULL AgioType = WRMPS.CheckStr(Request.form("AgioType"),1) Select Case AgioType Case 0 Agio = WRMPS.CheckStr(Request.form("Agio1"),1) If Agio = "" Then Call WRMPS.ErrView("","post.asp","
  • 折扣額不能為空",0) Case 1 Agio = WRMPS.CheckStr(Request.form("Agio2"),1) If Agio = "" Then Call WRMPS.ErrView("","post.asp","
  • 抵價金額不能為空",0) Case 2 Agio = WRMPS.CheckStr(Request.form("Agio3"),0) If Agio = "" Then Call WRMPS.ErrView("","post.asp","
  • 禮品名稱不能為空",0) End Select Items = WRMPS.CheckStr(Request.form("Item"),0) If Items = "" Then Items = Null Circumscribe = WRMPS.CheckStr(Request.form("Circumscribe"),0) If Circumscribe = "" Then Circumscribe = Null WM_Begin = WRMPS.CheckStr(Request.form("Begin"),0) If WM_Begin = "" Then Call WRMPS.ErrView("","post.asp","
  • 開始時間不能為空",0) If IsDate(WM_Begin) = False Then Call WRMPS.ErrView("","post.asp","
  • 開始時間格式不正確",0) WM_End = WRMPS.CheckStr(Request.form("End"),0) If WM_End = "" Then Call WRMPS.ErrView("","post.asp","
  • 結束時間不能為空",0) If IsDate(WM_End) = False Then Call WRMPS.ErrView("","post.asp","
  • 結束時間格式不正確",0) If WM_End <= WM_Begin Then Call WRMPS.ErrView("","post.asp","
  • 開始結束時間段不正確",0) TEL = WRMPS.CheckStr(Request.form("TEL"),0) If TEL = "" Then TEL = Null Address = WRMPS.CheckStr(Request.form("Address"),0) If Address = "" Then Address = Null Path = WRMPS.CheckStr(Request.form("Pic"),4) If Path = "" Then Call WRMPS.ErrView("","post.asp","
  • 優惠券縮略圖不能為空",0) PathList = WRMPS.CheckStr(Request.form("PicList"),4) If PathList = "" Then Call WRMPS.ErrView("","post.asp","
  • 優惠券圖片列表不能為空",0) Tags = WRMPS.CheckStr(Request.form("Tags"),0) If Tags = "" Then Tags = Null If WRMPS.CheckCode("Coupon",1) Then Code = WRMPS.CheckStr(Request.form("Code"),0) If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","post.asp","
  • 您沒有輸入驗證碼或驗證碼不正確",0) End If Session("Code") = "" Call DBConnBegin() Set Rs = Conn.Execute("Select WM_ParentDir,WM_Dir From WM_CouponSort Where WM_ID="&ClassID) If Not Rs.Eof Then ClassDir = Rs(0)&Rs(1) Else Call WRMPS.ErrView("","post.asp","
  • 請按規定操作",0) End If Rs.Close If ComID = 0 Then Set Rs = Conn.Execute("Select WM_ComID From WM_Member Where WM_ID="&MemID) If Not Rs.Eof Then ComID = Rs(0) End If Rs.Close End If Set Rs = Nothing WM_Key = Int(Mem(0)(16)) '垃圾信息檢測 Set WRClass = New Cls_Sift SiftState = WRClass.ClassSift(False,Title,Intro,TEL,"","") If SiftState = 1 Then Call WRMPS.ErrView("","post.asp","
  • 信息提交失敗
  • 被系統判定為非法或垃圾信息",0) If SiftState = 2 Then WM_Key = 0 Set WRClass = Nothing Conn.Execute("Insert into WM_Coupon(WM_Title,WM_Agio,WM_AgioType,WM_Item,WM_Circumscribe,WM_Begin,WM_End,WM_Tel,WM_Address,WM_Intro,WM_Path,WM_PathList,WM_ComID,WM_Time,WM_User,WM_PostType,WM_Key,WM_ClassID,WM_ClassDir,WM_ChannelID,WM_ChannelDir,WM_AreaID,WM_Commend,WM_Hit,WM_Re,WM_TempID,WM_Collection,WM_Tags,WM_AreaB,WM_AreaS,WM_Jingjia)values('"&Title&"','"&Agio&"',"&AgioType&",'"&Items&"','"&Circumscribe&"','"&WM_Begin&"','"&WM_End&"','"&Tel&"','"&Address&"','"&Intro&"','"&Path&"','"&PathList&"',"&ComID&","&ConnTime&",'"&MemName&"',1,"&WM_Key&","&ClassID&",'"&ClassDir&"',"&ChannelID&",'"&ChannelDir&"',"&AreaID&",0,0,0,0,0,'"&Tags&"',"&AreaB&","&AreaS&",0)") If WM_Key = 1 Then Call WRDB.SaveConsume(0,MemName,0,0,Int(Mem(2)(7)),0,"優惠券“"&Title&"”登記成功") If ComID > 0 Then Conn.Execute("Update WM_Company Set WM_CouponNum=WM_CouponNum+1 Where WM_ID="&ComID) Conn.Execute("Update WM_Config Set WM_CouponNum = WM_CouponNum + 1") Conn.Execute("Update WM_Member Set WM_CouponNum = WM_CouponNum + 1 Where WM_ID = "&MemID) Call WRMPS.SCache("CouponNum",WRMPS.GetCache("CouponNum") + 1) Set Rs = Conn.Execute("Select max(WM_ID) from WM_Coupon") If Not Rs.EOF Then ID = Rs(0) End If Rs.Close Dim Clew 'yi begin If Int(WR_Prop(2)) > 0 Then Clew = "" 'yi end Call WRMPS.ErrView("","index.asp","
  • 優惠券發布成功
  • 返回繼續發布
  • 返回優惠券列表頁"&Clew,1) Else If SiftState = 2 Then Call WRMPS.ErrView("","Index.asp","
  • 由于您提交的內容帶有敏感字符,請等待管理員的審核
  • 返回繼續發布
  • 返回優惠券首頁",1) Else Call WRMPS.ErrView("","Index.asp","
  • 優惠券發布成功,請等待管理員的審核
  • 返回繼續發布
  • 返回優惠券首頁",1) End If End If Call DBConnEnd() Call ClassEnd() Case Else Call DBConnBegin() Dim ScriptCkeck,MyCityID1,ClassID1 If ClassID = "" Then ClassID = 0 ClassID1 = ClassID&",0" MyCityID1 = MyCityID&",0" Set Rs = Conn.Execute("Select WM_ParentID From WM_Area Where WM_Child = 0 and WM_ID="&MyCityID) If Not Rs.Eof Then MyCityID1 = Rs(0)&","&MyCityID End If Rs.Close Set Rs = Conn.Execute("Select WM_ParentID From WM_CouponSort Where WM_Child = 0 and WM_ID="&ClassID) If Not Rs.Eof Then ClassID1 = Rs(0)&","&ClassID End If Rs.Close If MyCityID > 0 Then ScriptCkeck = "ChangeAreaID("&MyCityID1&");DBOption('AreaID',"&MyCityID&");" If ClassID > 0 Then ScriptCkeck = ScriptCkeck& "ChangeClassID("&ClassID1&");" If ScriptCkeck <> "" Then ScriptCkeck = "" Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,66,Module) Call WRMPS.FsoEnd() TempStr = WRMPS.GetReplace(TempStr,"{$ScriptCkeck}",ScriptCkeck) TempStr = WRMPS.GetReplace(TempStr,"{$ComID}",ComID) If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("Coupon",1)) If WRMPS.CheckCode("Coupon",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If TempStr = WRTemp.SiteChannel(TempStr) TempStr = WRTemp.SiteLabel(TempStr) Call DBConnEnd() Call ClassEnd() Response.write TempStr End Select %>我爱玩山西麻将app