wm.gift.asp

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

	     Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	     Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	     Content = Content & "<input type=hidden name=SearchID value="&SearchID&">" & 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' value="""&Rs("WM_Title")&"""> <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="""&Rs("WM_Number")&""" readonly></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' value="""&WRMPS.CheckStr(Rs("WM_Pic"),5)&"""> <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' value="""&Rs("WM_Integral")&"""> <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' value="""&Rs("WM_Num")&"""> <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="""
		 If WM_Content <> "" Then Content = Content & Server.HTMLEncode(WRMPS.CheckStr(WM_Content,5))
		 Content = Content & """><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" & WRMPS.GetCheckVer(1, Rs("WM_Key"), 1) & "> 开启 <input type=radio name=Key value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_Key"), 1) & "> 关闭</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
		 End If
		 Rs.Close

      Case "SaveAll"
	    Dim Work
		Work = WRMPS.CheckStr(Request("Work"),0)
	    ID = Replace(ID,"&nbsp;","")
        If ID <> "" Then
		  ID = Split(ID, ",")
		  For i = 0 To UBound(ID)
		    If ID(i) <> "" Then
			  Select Case Request("Work")
		        Case "Key"
				  Conn.Execute("Update WM_Gift Set WM_Key=1 Where WM_Number='"&ID(i)&"'")
		        Case "NoKey"
				  Conn.Execute("Update WM_Gift Set WM_Key=0 Where WM_Number='"&ID(i)&"'")
		        Case "Commend"
				  Conn.Execute("Update WM_Gift Set WM_Commend=1 Where WM_Number='"&ID(i)&"'")
		        Case "NoCommend"
				  Conn.Execute("Update WM_Gift Set WM_Commend=0 Where WM_Number='"&ID(i)&"'")
		        Case "Del"
				  Conn.Execute("Delete From WM_GiftOrder Where WM_Number='"&ID(i)&"'")
				  Conn.Execute("Delete From WM_Gift Where WM_Number='"&ID(i)&"'")
			  End Select
			End If
		  Next
		End If
	    Call WRMPS.ErrView("·批量操作成功<br>·<a href=?Page="&Page&"&SearchID="&SearchID&">返回礼品管理</a><meta http-equiv=refresh content='3;URL=?Page="&Page&"&SearchID="&SearchID&"'>",1)

      Case Else
        Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
        Content = Content & "<form action='?Action=SaveAll' name=myform method=POST>" & vbCrLf
        Content = Content & "<tr class=td4><td colspan=8><strong>礼品管理</strong></td></tr>" & vbCrLf
        Content = Content & "<tr class=td3 align=center>" & vbCrLf
        Content = Content & "<td width='3%'></td>" & vbCrLf
	    Content = Content & "<td>名称</td>" & vbCrLf
        Content = Content & "<td width='15%'>所需积分</td>" & vbCrLf
        Content = Content & "<td width='8%'>库存/已兑换</td>" & vbCrLf
        Content = Content & "<td width='8%'>状态</td>" & vbCrLf
        Content = Content & "<td width='8%'>推荐</td>" & vbCrLf
        Content = Content & "<td width='12%'>操作</td></tr>" & vbCrLf
        Select Case SearchID
		  Case 1
		    SQL = "WM_Key=0"
		End Select
        Set ClsPageList = New Cls_PageView  
        ClsPageList.strTableName = "WM_Gift"  
        ClsPageList.strPageUrl = ""  
        ClsPageList.strFieldsList = "WM_ID,WM_Title,WM_Number,WM_Integral,WM_Num,WM_Key,WM_RedeemNum,WM_Commend"  
        ClsPageList.strCondiction = SQL
        ClsPageList.strOrderList = "WM_ID desc"  
        ClsPageList.strPrimaryKey = "WM_ID"  
        ClsPageList.intPageSize = 20
        ClsPageList.intPageNow = Page
        ClsPageList.strCookiesName = "RecordCount"  
        ClsPageList.strPageVar = "Page"  
        ClsPageList.intRefresh = 1
	    ClsPageList.inAdmin = 1
        ClsPageList.objConn = Conn  
        ClsPageList.InitClass  
        arrPage = ClsPageList.arrPage  
        strPageList = ClsPageList.strPageList  
        Set ClsPageList = nothing  
	    If IsArray(arrPage) Then
         For i = 0 to UBound(arrPage, 2)  
            Content = Content & "<tr class=td2 align=center>" & vbCrLf
            Content = Content & "<td><input type=checkbox name=ID value="&arrPage(2,i)&"></td>" & vbCrLf
            Content = Content & "<td align=left><a href="&WRMPS.GetGiftUrl(arrPage(2,i))&" target=_blank>"&arrPage(1,i)&"</a></td>" & vbCrLf
            Content = Content & "<td>"&arrPage(3,i)&"</td>" & vbCrLf
            Content = Content & "<td align=right>"&arrPage(4,i)&" | "&arrPage(6,i)&"</td>" & vbCrLf
            Content = Content & "<td>"&WRMPS.GetReplace(WRMPS.GetReplace(arrPage(5,i),0,"<font color=Font2>关闭</font>"),1,"开启")&"</td>" & vbCrLf
            Content = Content & "<td>"&WRMPS.GetReplace(WRMPS.GetReplace(arrPage(7,i),1,"<font color=Font2>推荐</font>"),0,"")&"</td>" & vbCrLf
			Content = Content & "<td><a href='?Action=Edit&ID="&arrPage(0,i)&"&Page="&Page&"&SearchID="&SearchID&"'>修改</a> <a href='?Action=SaveAll&Work=Del&ID="&arrPage(2,i)&"&Page="&Page&"&SearchID="&SearchID&"' onclick=""return confirm('确定删除？');Loading.style.display='';Loading.style.bottom=100;"">删除</a></td>"
			Content = Content & "</tr>" & vbCrLf
         Next  
         End If  
         Content = Content & "</table>" & vbCrLf
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 align=center class=td3><tr><td height=30>" & vbCrLf
         Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Work'>"
	     Content = Content & "<option value='Key'>开启</option>"
	     Content = Content & "<option value='NoKey'>关闭</option>"
	     Content = Content & "<option value='Commend'>推荐</option>"
	     Content = Content & "<option value='NoCommend'>取消推荐</option>"
         Content = Content & "<option value='Del'>删除</option></select>　<input type=submit name='submit' value='操 作' onclick=""Loading.style.display='';Loading.style.bottom=100;"">" & vbCrLf
         Content = Content & "</td><td align=right>" & vbCrLf
         Content = Content & strPageList ' 插入分页
         Content = Content & "</td></tr></Form>"
	     Content = Content &"</table>" & vbCrLf
    End Select
    Set Rs = Nothing
    Call DBConnEnd()
    Call ClassEnd()
    Response.Write Content
    Call GetBottom()

%>