post.asp

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

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
If Not WRUser.ChkLogin Then Call WRMPS.AjaxLogin("",0,"您需要登录后才可以登记优惠券！")
If Int(FlagCom(19)) < 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
ComID=WRMPS.CheckStr(Request("ComID"),1)
If ComID = "" Then ComID = 0
If ComID > 0 Then
  Set Rs = Conn.Execute("Select WM_ClaimUser,WM_RZBL,WM_CheckUser,WM_Key From WM_Company Where WM_ID="&ComID)
  If Not Rs.Eof Then
    If Rs(1) > 0 Then '已认领
	  If MemName <> Rs(0) Then Call WRMPS.ErrView("·此店铺已被认领，您不是店主，没有权限操作此功能",0)
    Else '未认领
  	  If Rs(3) = 0 Then Call WRMPS.ErrView("·操作错误",0)
    End If
  Else
    Call WRMPS.ErrView("·操作错误",0)
  End If
  Rs.Close
End If

Select Case Request("Action")
  Case "Save"
    Call WRMPS.CheckSubmit()
    ClassID = WRMPS.CheckStr(Request.form("ClassID"),1)
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
    If ClassID ="" Then Call WRMPS.ErrView("·请选择优惠券所属分类",0)
    If AreaID ="" Then Call WRMPS.ErrView("·请选择优惠券所属地区",0)
    Title = WRMPS.CheckStr(Request.form("Title"),0)
	If Title = "" Then Call WRMPS.ErrView("·优惠券名称不能为空",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("·折扣额不能为空",0)
	  Case 1
	    Agio = WRMPS.CheckStr(Request.form("Agio2"),1)
		If Agio = "" Then Call WRMPS.ErrView("·抵价金额不能为空",0)
	  Case 2
	    Agio = WRMPS.CheckStr(Request.form("Agio3"),0)
		If Agio = "" Then Call WRMPS.ErrView("·礼品名称不能为空",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("·开始时间不能为空",0)
    WM_End = WRMPS.CheckStr(Request.form("End"),0)
	If WM_End = "" Then Call WRMPS.ErrView("·结束时间不能为空",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("·优惠券缩略图不能为空",0)
	PathList = WRMPS.CheckStr(Request.form("PicList"),4)
	If PathList = "" Then Call WRMPS.ErrView("·优惠券图片列表不能为空",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 <> WRMPS.GetCookies("Code") Then Call WRMPS.ErrView("·您没有输入验证码或验证码不正确",0)
	End If
    WRMPS.DelCookies "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("·请按规定操作<br>·",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
    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_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor,WM_Collection,WM_Tags)values('"&Title&"','"&Agio&"',"&AgioType&",'"&Items&"','"&Circumscribe&"','"&WM_Begin&"','"&WM_End&"','"&Tel&"','"&Address&"','"&Intro&"','"&Path&"','"&PathList&"',"&ComID&","&ConnTime&",'"&MemName&"',1,"&FlagCom(22)&","&ClassID&",'"&ClassDir&"',"&ChannelID&",'"&ChannelDir&"',"&AreaID&",0,0,0,0,"&ConnTime&","&ConnTime&",Null,Null,"&ConnTime&",'0|0',"&ConnTime&","&ConnTime&",0,'"&Tags&"')")
	If Int(FlagCom(22)) = 1 Then
	  Call WRDB.SaveConsume(0,MemName,0,Int(FlagCom(21)),Int(FlagCom(20)),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)
      Call WRMPS.ErrView("·优惠券发布成功<br>·<a href=Post.asp>返回继续发布</a><br>·<a href=../>返回首页</a>",1)
	Else
      Call WRMPS.ErrView("·优惠券发布成功，请等待管理员的审核<br>·<a href=Post.asp>返回继续发布</a><br>·<a href=../>返回首页</a>",1)
	End If
	Call DBConnEnd()
	Call ClassEnd()

  Case Else
	Call DBConnBegin()
	Call WRMPS.FsoBegin()
	TempStr = WRTemp.SiteTemplates(1,0,66,Module)
	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 WRMPS.FsoEnd()
	Call DBConnEnd()
	Call ClassEnd()
	Response.write TempStr
End Select
%>