www.gusucode.com > 掌柜网店购物系统 4.0码程序 > admin/xyvipSet.asp

    <%@ LANGUAGE = VBScript.Encode %>
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>"
response.End
end if
end if
dim danweiid,danweiorder,danweiname,danweino,i
if request("action")="update" then
    for i=1 to request.form("id").count
	id=replace(request.form("id")(i),"'","")
	vipdate=replace(request.form("vipdate")(i),"'","")
	username=replace(request.form("username")(i),"'","")
	fanhui=replace(request.form("fanhui")(i),"'","")
	xiaofei=replace(request.form("xiaofei")(i),"'","")
	
	If vipdate="" Then
		response.write "时间不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If username="" Then
		response.write "用户名不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If xiaofei="" Then
		response.write "消费金额不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If fanhui="" Then
		response.write "返回金额不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	conn.execute("update xyvip set vipdate='"&vipdate&"',username='"&username&"',xiaofei="&xiaofei&",fanhui="&fanhui&" where id="&id)

    next
conn.close
set conn=nothing
response.write "<script language=javascript>alert('修改VIP用户成功!');window.location.href='xyvip.asp';</script>"
end if

if request("action")="add" then
	vipdate=request("vipdate")
	username=request("username")
	xiaofei=request("xiaofei")
	fanhui=request("fanhui")
	If vipdate="" Then
		response.write "时间不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If username="" Then
		response.write "用户名不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If xiaofei="" Then
		response.write "消费金额不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
	If fanhui="" Then
		response.write "返回金额不能为空!请<a href=javascript:history.go(-1)>返回重新填写</a>!"
		response.end
	end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from xyvip",conn,1,3
rs.addnew
rs("vipdate")=vipdate
rs("username")=username
rs("xiaofei")=xiaofei
rs("fanhui")=fanhui
rs.update
rs.close
set rs=nothing

conn.close
set conn=nothing
response.write "<script language=javascript>alert('幸运VIP用户添加成功!');window.location.href='xyvip.asp';</script>"
end if

if request("action")="del" then
id=request("id")
	conn.execute("delete from xyvip where id=" &id)
	conn.close
	set conn=nothing
	response.write "<script language=javascript>alert('成功删除幸运VIP用户!');window.location.href='xyvip.asp';</script>"
	response.end
end if
%>