📄 wm.coupon.asp
字号:
ChannelDir = Rs(2)
Else
Call WRMPS.ErrView("·请按规定操作<br>·",0)
End If
Rs.Close
Conn.Execute("Update WM_Coupon Set WM_Title='"&Title&"',WM_Agio='"&Agio&"',WM_AgioType="&AgioType&",WM_Item='"&Items&"',WM_Circumscribe='"&Circumscribe&"',WM_Begin='"&WM_Begin&"',WM_End='"&WM_End&"',WM_Tel='"&Tel&"',WM_Address='"&Address&"',WM_Intro='"&Intro&"',WM_Path='"&Path&"',WM_PathList='"&PathList&"',WM_ClassID="&ClassID&",WM_ClassDir='"&ClassDir&"',WM_AreaID="&AreaID&",WM_TempID="&TempID&",WM_Tags='"&Tags&"' Where WM_ID="&ID)
Call WRMPS.ErrView("·优惠券修改成功<meta http-equiv=refresh content='1;URL=?Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Key=" & Key & "'>",1)
Case "Edit"
Rs.Open "Select * From WM_Coupon Where WM_ID="&ID ,Conn,1,1
If Not Rs.Eof Then
AreaIDName=WRDB.GetClassName("WM_Area",Rs("WM_AreaID"))
ClassName=WRDB.GetClassName("WM_CouponSort",Rs("WM_ClassID"))
Content = Content & "<Script language='JavaScript' Src='../Inc/GetDate.Js'></Script>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form action='?Action=EditSave&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Key=" & Key & "' name=myform method=POST>" & vbCrLf
Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
Content = Content & "<input type=hidden name=AreaID_ value="&Rs("WM_AreaID")&">" & vbCrLf
Content = Content & "<input type=hidden name=ClassID_ value="&Rs("WM_ClassID")&">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2><strong>修改优惠券</strong></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>所属地区</strong></td>" & vbCrLf
Content = Content & "<td>"&AreaIDName&" <font onclick='Edit2(b1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2 id=b1 style='display:none'><td><strong>修改地区</strong></td>" & vbCrLf
Content = Content & "<td><script src='../Inc/Js/AreaSelect.Js'></Script></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td width='20%'><strong>所属分类</strong></td>" & vbCrLf
Content = Content & "<td width='80%'>"&ClassName&" <font onclick='Edit(a1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2 id=a1 style='display:none'><td><strong>修改分类</strong></td>" & vbCrLf
Content = Content & "<td><script src='../Inc/Js/CouponSelect.Js'></Script></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>优惠券名称 <font color=#FF0000>*</font></strong></td><td><input name='Title' type='text' Style='width:400px' maxlength=50 value="""&Rs("WM_Title")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>详细说明 <font color=#FF0000>*</font></strong></td><td><textarea name='Content' style='height:100px;width:600px'>"&Rs("WM_Intro")&"</textarea></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>折扣类型 <font color=#FF0000>*</font></strong></td><td><input type=""radio"" name=""AgioType"" value=0 checked onclick=""agio1.style.display='';agio2.style.display='none';agio3.style.display='none';""" & WRMPS.GetCheckVer(0, Rs("WM_AgioType"), 1) & ">折扣券 <input type=""radio"" name=""AgioType"" value=1 onclick=""agio1.style.display='none';agio2.style.display='';agio3.style.display='none';""" & WRMPS.GetCheckVer(1, Rs("WM_AgioType"), 1) & ">抵价券 <input type=""radio"" name=""AgioType"" value=2 onclick=""agio1.style.display='none';agio2.style.display='none';agio3.style.display='';""" & WRMPS.GetCheckVer(2, Rs("WM_AgioType"), 1) & ">礼品券</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2 id=agio1"
If Rs("WM_AgioType") <> 0 Then Content = Content & " style=""display:none"""
Content = Content & "><td><strong>折扣额 <font color=#FF0000>*</font></strong><br>折扣，可为小数</td><td><input name='Agio1' type='text' Style='width:100px' maxlength=10 value="""&Rs("WM_Agio")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2 id=agio2"
If Rs("WM_AgioType") <> 1 Then Content = Content & " style=""display:none"""
Content = Content & "><td><strong>抵价金额 <font color=#FF0000>*</font></strong><br>单位：元</td><td><input name='Agio2' type='text' Style='width:100px' maxlength=10 value="""&Rs("WM_Agio")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2 id=agio3"
If Rs("WM_AgioType") <> 2 Then Content = Content & " style=""display:none"""
Content = Content & "><td><strong>礼品名称 <font color=#FF0000>*</font></strong></td><td><input name='Agio3' type='text' Style='width:200px' maxlength=50 value="""&Rs("WM_Agio")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>针对项目</strong><br>如：全场项目</td><td><input name='Item' type=text Style='width:200px' maxlength=50 value="""&Rs("WM_Item")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>使用限制</strong><br>如：特价、酒水、套餐除外</td><td><input name='Circumscribe' type=text Style='width:200px' maxlength=50 value="""&Rs("WM_Circumscribe")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>开始时间 <font color=#FF0000>*</font></strong></td><td><input name=""Begin"" type=""text"" Style=""width:100px"" maxlength=10 value="""&Rs("WM_Begin")&""" readonly onClick='PopCalendar.show(document.myform.Begin, ""yyyy-mm-dd"", null, null, null, ""11"");'> <a style='cursor:pointer;' onClick='PopCalendar.show(document.myform.Begin, ""yyyy-mm-dd"", null, null, null, ""11"");'><img src='../Images/other/Calendar.gif' border='0' Style='Padding-Top:10px'></a></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>结束时间 <font color=#FF0000>*</font></strong></td><td><input name=""End"" type=""text"" Style=""width:100px"" maxlength=10 value="""&Rs("WM_End")&""" readonly onClick='PopCalendar.show(document.myform.End, ""yyyy-mm-dd"", null, null, null, ""11"");'> <a style='cursor:pointer;' onClick='PopCalendar.show(document.myform.End, ""yyyy-mm-dd"", null, null, null, ""11"");'><img src='../Images/other/Calendar.gif' border='0' Style='Padding-Top:10px'></a></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>预定电话</strong></td><td><input name='Tel' type='text' Style='width:200px' maxlength=30 value="""&Rs("WM_Tel")&"""></td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td><strong>地址</strong></td><td><input name='Address' type='text' Style='width:300px' maxlength=50 value="""&Rs("WM_Address")&"""></td></tr>" & vbCrLf
PathList = WRMPS.CheckStr(Rs("WM_PathList"),5)
Content = Content & "<tr Class=td2><td><strong>上传文件 <font color=#FF0000>*</font></strong></td><td>缩略图：<input name=Pic type='text' Style='width:400px' maxlength=50 value="""&WRMPS.CheckStr(Rs("WM_Path"),5)&"""><input type='hidden' name='PicList' value="""&PathList&"""><div style='padding:8px 0'><span id=plist>"
If PathList <> "" Then
Path_List = Split(PathList,"|")
Call WRMPS.FsoBegin()
For I=0 To UBound(Path_List)
SPath_List = WRMPS.GetReplace(Path_List(i),Split(Path_List(i),"/")(UBound(Split(Path_List(i),"/"))),"S/"&Split(Path_List(i),"/")(UBound(Split(Path_List(i),"/"))))
If WRMPS.FsoIsTrue("File",SPath_List) = False Then SPath_List = Path_List(i)
Content = Content & "<div id=l_"&i&"><a href=# onclick=PicReset('"&SPath_List&"') alt='做为缩略图'>"&Path_List(i)&"</a> <a href=# onclick=dlist('"&i&"','"&Path_List(i)&"','"&SPath_List&"') class=Red>删除</a></div>"
Next
Call WRMPS.FsoEnd()
End If
Content = Content & "</span></div><div class=Up style='float:left;'><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=9&User=1',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto' class=updiv ID=PicPreview><Img src='"&WRMPS.CheckStr(Rs("WM_Path"),5)&"' onload='DrawImage(this, 118, 118);'></div></div></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>标签</strong><br>多个关键字用英文豆号隔开</td><td><input name='Tags' type=text Style='width:300px' maxlength=50 value="""&Rs("WM_Tags")&"""></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(Rs("WM_TempID"),61,ChannelID,"TempID")&"</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交保存' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
End If
Rs.Close
Case "DJSave"
Set Rs = Conn.Execute("Select Top 1 WM_Key,WM_Commend,WM_aProp,WM_aZTop,WM_aTop,WM_aTitColor,WM_aTColor,WM_aBgColor,WM_aBColor,WM_aBold From WM_Coupon Where WM_ID = "&ID)
If Not Rs.Eof Then
WM_Key = Rs(0)
WM_Commend = Rs(1)
WM_aProp = Split(Rs(2),"|")
WM_aZTop = Rs(3)
WM_aTop = Rs(4)
WM_aTitColor = Rs(5)
WM_aTColor = Rs(6)
WM_aBgColor = Rs(7)
WM_aBColor = Rs(8)
WM_aBold = Rs(9)
aProp1=WM_aProp(0):aProp2=WM_aProp(1)
If WRMPS.CheckStr(Request("DelDJ"), 1) = 1 Then
SQL = SQL & "WM_aZTop="&ConnTime
SQL = SQL & ",WM_aTop="&ConnTime
SQL = SQL & ",WM_aTitColor=Null"
SQL = SQL & ",WM_aTColor="&ConnTime
SQL = SQL & ",WM_aBgColor=Null"
SQL = SQL & ",WM_aBColor="&ConnTime
SQL = SQL & ",WM_aBold="&ConnTime
SQL = SQL & ",WM_aProp='0|0'"
If Int(aProp1) > 0 Then SQL = SQL & ",WM_Key=0"
If Int(aProp2) > 0 Then SQL = SQL & ",WM_Commend=0"
Conn.Execute("Update WM_Coupon Set "&SQL&" Where WM_ID = "&ID)
Call WRMPS.ErrView("·道具取消成功<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
End If
aKey = WRMPS.CheckStr(Request("aKey"), 1)
If aKey = "" Then aKey = 0
If WM_Key = 0 and aKey > 0 Then
aProp1 = aProp1+1
SQL = SQL & ",WM_Key=1"
End If
aCommend = WRMPS.CheckStr(Request("aCommend"), 1)
If aCommend = "" Then aCommend = 0
If WM_Commend = 0 and aCommend > 0 Then
aProp2 = aProp2+1
SQL = SQL & ",WM_Commend=1"
End If
aZTop = WRMPS.CheckStr(Request("aZTop"), 1)
If aZTop = "" Then aZTop = 0
If aZTop > 0 Then
If WM_aZTop < Now() Then WM_aZTop = Now()
WM_aZTop = WM_aZTop + aZTop
SQL = SQL & ",WM_aZTop='"&WM_aZTop&"'"
End If
aTop = WRMPS.CheckStr(Request("aTop"), 1)
If aTop = "" Then aTop = 0
If aTop > 0 Then
If WM_aTop < Now() Then WM_aTop = Now()
WM_aTop = WM_aTop + aTop
SQL = SQL & ",WM_aTop='"&WM_aTop&"'"
End If
aTColor = WRMPS.CheckStr(Request("aTColor"), 1)
If aTColor = "" Then aTColor = 0
If aTColor > 0 Then
If WM_aTColor < Now() Then WM_aTColor = Now()
WM_aTColor = WM_aTColor + aTColor
SQL = SQL & ",WM_aTColor='"&WM_aTColor&"'"
End If
aTitColor = WRMPS.CheckStr(Request("aTitColor"), 0)
If aTitColor = "" Then aTitColor = WM_aTitColor
If aTitColor = "" Or IsNull(aTitColor) Then aTitColor = Null
SQL = SQL & ",WM_aTitColor='"&aTitColor&"'"
aBColor = WRMPS.CheckStr(Request("aBColor"), 1)
If aBColor = "" Then aBColor = 0
If aBColor > 0 Then
If WM_aBColor < Now() Then WM_aBColor = Now()
WM_aBColor = WM_aBColor + aBColor
SQL = SQL & ",WM_aBColor='"&WM_aBColor&"'"
End If
aBgColor = WRMPS.CheckStr(Request("aBgColor"), 0)
If aBgColor = "" Then aBgColor = WM_aBgColor
If aBgColor = "" Or IsNull(aBgColor) Then aBgColor = Null
SQL = SQL & ",WM_aBgColor='"&aBgColor&"'"
aBold = WRMPS.CheckStr(Request("aBold"), 1)
If aBold = "" Then aBold = 0
If aBold > 0 Then
If WM_aBold < Now() Then WM_aBold = Now()
WM_aBold = WM_aBold + aBold
SQL = SQL & ",WM_aBold='"&WM_aBold&"'"
End If
SQL = " WM_aProp='"&aProp1&"|"&aProp2&"'"&SQL
Conn.Execute("Update WM_Coupon Set"&SQL&" Where WM_ID = "&ID)
Call WRMPS.ErrView("·道具购买成功<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",1)
Else
Call WRMPS.ErrView("·操作错误<br>·此界面 3 秒钟后自动关闭<script>function Close(){parent.closeWithIframe();parent.location.reload()}setTimeout(""Close()"",3000)</script>",0)
End If
Rs.Close
Set Rs=Nothing
Case "DJ"
Set Rs = Conn.Execute("Select Top 1 WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_Commend,WM_Key,WM_aTColor,WM_aBColor From WM_Coupon Where WM_ID = "&ID)
If Not Rs.Eof Then
WM_aZTop = Rs(0)
WM_aTop = Rs(1)
WM_aTitColor = Rs(2)
WM_aBgColor = Rs(3)
WM_aBold = Rs(4)
WM_aProp = Split(Rs(5),"|")
WM_Commend = Rs(6)
WM_Key = Rs(7)
WM_aTColor = Rs(8)
WM_aBColor = Rs(9)
End If
Rs.Close
Set Rs=Nothing
Content = Content & "<table width='100%' cellpadding='0' cellspacing=0>" & vbCrLf
Content = Content & "<form name='myform' action='?Action=DJSave&ID="&ID&"' method='post'>"
Content = Content & " <tr>" & vbCrlf
Content = Content & " <td width='33%'>"
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='../member/Img/dj1.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>自动审核道具</strong><br><br>"
If WM_Key > 0 Then
Content = Content & "此信息已审核"
Else
Content = Content & "道具使用："&WM_aProp(0)&"次<br><input type=checkbox name=aKey value=1> 购买"
End If
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td width='34%'>"
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='../member/Img/dj3.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>总置顶道具</strong><br><br>"
If Cdate(WM_aZTop) > Now() Then
Content = Content & "已使用 (到期："&Year(WM_aZTop)&"-"&Month(WM_aZTop)&"-"&Day(WM_aZTop)&")<br>再次"
End If
Content = Content & "购买 <input type=text name=aZTop value=0 size=5> 天"
Content = Content & "</td>" & vbCrlf
Content = Content & " </tr>" & vbCrlf
Content = Content & "</table>" & vbCrlf
Content = Content & "</td>" & vbCrlf
Content = Content & " <td width='33%'>"
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='../member/Img/dj4.gif'></div></td>" & vbCrlf
Content = Content & " <td style='padding:0 5px' valign=top><strong>分类置顶道具</strong><br><br>"
If Cdate(WM_aTop) > Now() Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -