wm.gift.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
    If CheckAdminFlag("Gift") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)

    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=WM.Gift.asp>管理首页</a> | <a href=?Action=Add>添加</a>　　　<a href=?SearchID=1>未开启的礼品</a></td></tr>" & vbCrLf
    Content = Content & "</Table>" & vbCrLf
	
	Dim Title,Numbe,Pic,Integral,Num,WM_Content,i,SearchID,ID

    Call DBConnBegin()
    Page = WRMPS.CheckStr(Request("Page"), 1)
    ID = WRMPS.CheckStr(Request("ID"), 0)
	SearchID = WRMPS.CheckStr(Request("SearchID"), 1)
	If SearchID = "" Then SearchID = 0
	Set Rs = server.createobject("adodb.recordset")
    Select Case WRMPS.CheckStr(Request("Action"), 0)
	  Case "Save"
         Title = WRMPS.CheckStr(Request("Title"), 0)
		 Numbe = WRMPS.CheckStr(Request("Number"), 0)
		 Pic = WRMPS.CheckStr(WRMPS.CheckStr(Request.Form("Pic"), 0), 4)
		 Integral = WRMPS.CheckStr(Request("Integral"), 1)
		 Num = WRMPS.CheckStr(Request("Num"), 1)
		 For i = 1 To Request.Form("Content").Count
           WM_Content = WM_Content & Request.Form("Content")(i)
         Next
		 Key = WRMPS.CheckStr(Request("Key"), 1)
         
         If Title = "" Then Call WRMPS.ErrView("·请输入礼品名称", 0)
         If Numbe = "" Then Call WRMPS.ErrView("·请输入礼品编号", 0)
         If Pic = "" Then Call WRMPS.ErrView("·请上传礼品图", 0)
         If Integral = "" Or Integral < 0 Then Call WRMPS.ErrView("·请输入礼品兑换所需积分", 0)
         If Num = "" Or Num < 0 Then Call WRMPS.ErrView("·请输入礼品库存数量", 0)
         If WM_Content = "" Then Call WRMPS.ErrView("·请输入礼品描述", 0)
		 If Key = "" Then Key = 1

         Rs.Open "Select WM_Title,WM_Number,WM_Pic,WM_Integral,WM_Num,WM_Content,WM_Key,WM_Time,WM_Hit,WM_RedeemNum,WM_Commend from WM_Gift Where WM_Number = '"&Numbe&"'", Conn, 1, 3
		 If Not Rs.Eof Then
		   Call WRMPS.ErrView("·此编号的礼品已经存在，请重新添加<br>·<a href=?Action=Add>继续添加</a><br>·<a href=WM.Gift.asp>返回礼品管理</a><meta http-equiv=refresh content='3;URL=?Action=Add'>",1)
		 Else
           Rs.AddNew
           Rs(0) = Title
           Rs(1) = Numbe
           Rs(2) = Pic
           Rs(3) = Integral
           Rs(4) = Num
           Rs(5) = WM_Content
           Rs(6) = Key
           Rs(7) = Now()
           Rs(8) = 0
           Rs(9) = 0
           Rs(10) = 0
           Rs.Update
		 End If
         Rs.Close

		 Call WRMPS.ErrView("·新增礼品成功<br>·<a href=?Action=Add>继续添加</a><br>·<a href=WM.Gift.asp>返回礼品管理</a><meta http-equiv=refresh content='3;URL=WM.Gift.asp'>",1)

      Case "Add"
         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 & "<tr class=td4><td Colspan=2><strong>添加礼品</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='myform' method='post' Action='?Action=Save'>" & vbCrLf
         Content = Content & "<tr class=td2><td Width='20%'><strong>礼品名称</strong></td>" & vbCrLf
         Content = Content & "<td Width='80%'><input name='Title' type='text' style='width:300' maxlength='80'> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>礼品编号</strong><br>编号不能有重复<br>礼品添加后将不能修改此编号</td>" & vbCrLf
         Content = Content & "<td><input name='Number' type='text' style='width:150' maxlength='50' value="""&Ucase(MD5(2,Replace(Replace(Replace(Now(),"-",""),":","")," ","")))&"""> <font Class=Font2>*</font> [<a href=# onclick='myform.Number.value="""&Replace(Replace(Replace(Now(),"-",""),":","")," ","")&"""'>时间</a>] [<a href=# onclick='myform.Number.value="""&Ucase(MD5(2,Replace(Replace(Replace(Now(),"-",""),":","")," ","")))&"""'>随机</a>]</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>礼品图片</strong></td>" & vbCrLf
         Content = Content & "<td><input name='Pic' type='text' style='width:300' maxlength='100'> <font Class=Font2>*</font>  <a href=""javascript:openWithIframe('上传图片','../Plus/UpLoad/Index.asp?Type=8&User=1',350,150);""><img src='img/pic.gif' align=absmiddle alt='上传' border=0>上传</a></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>兑换所需积分</strong></td>" & vbCrLf
         Content = Content & "<td><input name='Integral' type='text' style='width:150' maxlength='10'> <font Class=Font2>*</font></td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>库存数量</strong></td>" & vbCrLf
         Content = Content & "<td><input name='Num' type='text' style='width:150' maxlength='10'> <font Class=Font2>*</font></td></tr>" & vbCrLf
		 Content = Content & "<tr class=td2><td><strong>礼品描述</strong></td>" & vbCrLf
         Content = Content & "<td><INPUT type='hidden' name='Content' value=''><IFRAME ID=Content SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&Tool=' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=250></IFRAME> <font Class=Font2>*</font></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td><strong>兑换状态</strong></td>" & vbCrLf
         Content = Content & "<td><input type=radio name=Key value=1 Class=radio checked> 开启 <input type=radio name=Key value=0 Class=radio> 关闭</td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td></td><td><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
         Content = Content & "</form></table><script>document.myform.Title.focus()</script>" & vbCrLf
     
	  Case "EditSave"
         Title = WRMPS.CheckStr(Request("Title"), 0)
		 Pic = WRMPS.CheckStr(WRMPS.CheckStr(Request.Form("Pic"), 0), 4)
		 Integral = WRMPS.CheckStr(Request("Integral"), 1)
		 Num = WRMPS.CheckStr(Request("Num"), 1)
		 For i = 1 To Request.Form("Content").Count
           WM_Content = WM_Content & Request.Form("Content")(i)
         Next
		 Key = WRMPS.CheckStr(Request("Key"), 1)
         
         If Title = "" Then Call WRMPS.ErrView("·请输入礼品名称", 0)
         If Pic = "" Then Call WRMPS.ErrView("·请上传礼品图", 0)
         If Integral = "" Or Integral < 0 Then Call WRMPS.ErrView("·请输入礼品兑换所需积分", 0)
         If Num = "" Or Num < 0 Then Call WRMPS.ErrView("·请输入礼品库存数量", 0)
         If WM_Content = "" Then Call WRMPS.ErrView("·请输入礼品描述", 0)
		 If Key = "" Then Key = 1

         Rs.Open "Select WM_Title,WM_Pic,WM_Integral,WM_Num,WM_Content,WM_Key from WM_Gift Where WM_ID = "&ID&"", Conn, 1, 3
		 If Not Rs.Eof Then
           Rs(0) = Title
           Rs(1) = Pic
           Rs(2) = Integral
           Rs(3) = Num
           Rs(4) = WM_Content
           Rs(5) = Key
           Rs.Update
		 End If
         Rs.Close

		 Call WRMPS.ErrView("·礼品修改成功<br>·<a href=?Page="&Page&"&SearchID="&SearchID&">返回礼品管理</a><meta http-equiv=refresh content='3;URL=?Page="&Page&"&SearchID="&SearchID&"'>",1)

	  Case "Edit"
	     Set Rs = Conn.Execute("Select * From WM_Gift Where WM_ID="&ID)
		 If Not Rs.Eof Then
		 WM_Content = Rs("WM_Content")
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=2><strong>修改礼品</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='myform' method='post' Action='?Action=EditSave'>" & vbCrLf