yckset.asp

购物系统(本版为正式商业版

<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
if qx6<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
admin=session("admin")
if request("action")="del" then
	id=trim(request("id"))
	conn.execute "delete from [shop_yck] where id = "&id
    conn.close
    set conn=nothing
  response.write "<p align=center><font color=red>删除成功!<br>2秒钟后返回上页!</font>"
  response.write "<meta http-equiv=""refresh"" content=""2;url=yck.asp"">"
  response.end
end if

if request("action")="del1" then
	id=trim(request("id"))
	conn.execute "delete from [shop_yck] where id = "&id
    conn.close
    set conn=nothing
  response.write "<p align=center><font color=red>删除成功!<br>2秒钟后返回上页!</font>"
  response.write "<meta http-equiv=""refresh"" content=""2;url=yck2.asp"">"
  response.End
end if

if request("action")="add" then
	username=trim(request("username"))
	je=trim(request("je"))
	bz=request.form("bz")
	ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
		ip2 = Request.ServerVariables("REMOTE_ADDR")
	If username="" Then
		response.write "用户名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
	If je="" Then
		response.write "金额不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
  set rsy=server.CreateObject ("adodb.recordset")
  rsy.Open "select * from [shop_user] where username='"&username&"'" ,conn,1,1
  if not(rsy.bof and rsy.eof) then
  Set rs1 = Server.CreateObject("ADODB.Recordset")
   rs1.open "select * From shop_yck",conn,1,3
   rs1.addnew
   rs1("username")=username
   rs1("je")=je
   if bz<>"" then
   rs1("bz")=bz
   end if
   rs1("admin")=admin
   rs1("czdate")=now()
   rs1("lx")=0
if ip = ""  then
		     rs1("ip")=ip2
	         else
		     rs1("ip")=ip
	         end if
   rs1.update
   rs1.close
   set rs1=nothing
  conn.execute("update shop_user set yucun=yucun+"&je&" where username='"& username &"'")
  conn.close
  set conn=nothing
   response.write "<p align=center><font color=red>冲值成功!<br>2秒钟后返回上页!</font>"
   response.write "<meta http-equiv=""refresh"" content=""2;url=yck.asp"">"
   		response.end
  else
		response.write "对不起，没有此用户！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
  end if
end if

if request("action")="add1" then
	username=trim(request("username"))
	je=trim(request("je"))
	bz=request.form("bz")
	ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
			ip2 = Request.ServerVariables("REMOTE_ADDR")
	If username="" Then
		response.write "用户名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
	If je="" Then
		response.write "金额不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end
	end if
set rsx=server.CreateObject ("adodb.recordset")
rsx.Open "select * from [shop_user] where username='"&username&"'" ,conn,1,1
if not(rsx.bof and rsx.eof) then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * From shop_yck",conn,1,3
rs.addnew
rs("username")=username
rs("je")=je
if bz<>"" then
rs("bz")=bz
end if
rs("czdate")=now()
rs("admin")=admin
rs("lx")=1
if ip = ""  then
		     rs("ip")=ip2
	         else
		     rs("ip")=ip
	         end if
rs.update
rs.close
set rs=nothing
conn.execute("update shop_user set yucun=yucun-"&je&" where username='"& username &"'")
conn.close
set conn=nothing
response.write "<p align=center><font color=red>扣款成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=yck2.asp"">"
else
		response.write "对不起，没有此用户！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
		response.end

end if
end if
%>