payset.asp

很好的网上书店源码 适合企业个人使用 很好的网络书城

<!--#include file="conn.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 request("action")="del" then
	id=trim(request("id"))
	conn.execute "delete from [shop_pay] where id = "&id
    conn.close
    set conn=nothing
    response.Write "<script language=javascript>alert('删除成功！');window.location.reload('pay_history.asp')</script>"
  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 "<script language=javascript>alert('用户名称不能为空！');window.location.reload('pay.asp')</script>"
		response.end
	end if
	If je="" Then
		response.Write "<script language=javascript>alert('金额不能为空！');window.location.reload('pay.asp')</script>"
		response.end
	end if
  set rsy=server.CreateObject ("adodb.recordset")
  rsy.Open "select * from [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_pay",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 [user] set yucun=yucun+"&je&" where username='"& username &"'")
  conn.close
  set conn=nothing
   response.Write "<script language=javascript>alert('冲值成功！');window.location.reload('pay.asp')</script>"
   		response.end
  else
		response.Write "<script language=javascript>alert('对不起，没有此用户！');window.location.reload('pay.asp')</script>"
		response.end
  end if
end if

if request("action")="reduce" 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 "<script language=javascript>alert('用户名称不能为空！');window.location.reload('pay_reduce.asp')</script>"
		response.end
	end if
	If je="" Then
		response.Write "<script language=javascript>alert('金额不能为空！');window.location.reload('pay_reduce.asp')</script>"
		response.end
	end if
set rsx=server.CreateObject ("adodb.recordset")
rsx.Open "select * from [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_pay",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 [user] set yucun=yucun-"&je&" where username='"& username &"'")
conn.close
set conn=nothing
		response.Write "<script language=javascript>alert('扣款成功！');window.location.reload('pay_reduce.asp')</script>"
else
		
		response.Write "<script language=javascript>alert('对不起，没有此用户！');window.location.reload('pay_reduce.asp')</script>"
		response.end

end if
end if
%>