chilp_add_act.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 92 行

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
Function gen_key(digits)
	dim char_array(30)
	char_array(0) = "0"
	char_array(1) = "1"
	char_array(2) = "2"
	char_array(3) = "3"
	char_array(4) = "4"
	char_array(5) = "5"
	char_array(6) = "6"
	char_array(7) = "7"
	char_array(8) = "8"
	char_array(9) = "9"
	char_array(10) = "A"
	char_array(11) = "B"
	char_array(12) = "C"
	char_array(13) = "D"
	char_array(14) = "E"
	char_array(15) = "F"
	randomize
	do while len(output) < digits
		num = char_array(Int((15 - 0 + 1) * Rnd + 0))
		output = output + num
	loop
	gen_key = output
End Function
Function gen_key2(digits)
	dim char_array(10)
	char_array(0) = "0"
	char_array(1) = "1"
	char_array(2) = "2"
	char_array(3) = "3"
	char_array(4) = "4"
	char_array(5) = "5"
	char_array(6) = "6"
	char_array(7) = "7"
	char_array(8) = "8"
	char_array(9) = "9"
	randomize
	do while len(output) < digits
		num = char_array(Int((9 - 0 + 1) * Rnd + 0))
		output = output + num
	loop
	gen_key2 = output
End Function

order_num=gen_key2(10)
order_num2=gen_key(16)
guan=request("a")
zong=request("b")
dai=request("c")
member=request("d")
sort=request("e")
chilp_types=request("f")
chilp_value=request("g")
rate=request("h")
sum_m=request("gold")
Current_Kithe_Num=request("kithe")
downtime=request("downtime")
set rs1=conn.execute("select Memed,dai_zc,zong_zc,guan_zc,dagu_zc from m_member where login_name='"&member&"'")
select case rs1("Memed")
  case "a"
	  rakeds=" Rake_A "
  case "b"
	  rakeds=" Rake_B "
  case "c"
	  rakeds=" Rake_C "
  case "d"
	  rakeds=" Rake_D "
  case else
	  rakeds=" Rake_A "
end select
set rs2=conn.execute("select "&rakeds&" as rake from m_quota where accounts='"&member&"' and items='"&chilp_types&"'")
set rs3=conn.execute("select "&rakeds&" as dai_ds from m_quota where accounts='"&dai&"' and items='"&chilp_types&"'")
set rs4=conn.execute("select "&rakeds&" as zong_ds from m_quota where accounts='"&zong&"' and items='"&chilp_types&"'")
set rs5=conn.execute("select "&rakeds&" as guan_ds from m_quota where accounts='"&guan&"' and items='"&chilp_types&"'")
conn.execute("insert into m_chilp (order_num,kithe,chilp_time,rake,sort,chilp_types,chilp_value,rate,sum_m,Result,order_num2,Memed,Member,dai_ds,zong_ds,guan_ds,dai_zc,zong_zc,guan_zc,dagu_zc,Agent_first,Agent_second,Agent_three) values ("&order_num&","&Current_Kithe_Num&",'"&downtime&"',"&rs2("rake")&",'"&sort&"','"&chilp_types&"','"&chilp_value&"',"&rate&","&sum_m&",0,'"&order_num2&"','"&rs1("Memed")&"','"&member&"',"&rs3("dai_ds")&","&rs4("zong_ds")&","&rs5("guan_ds")&","&rs1("dai_zc")&","&rs1("zong_zc")&","&rs1("guan_zc")&","&rs1("dagu_zc")&",'"&dai&"','"&zong&"','"&guan&"')")
set rs1=nothing
set rs2=nothing
set rs3=nothing
set rs4=nothing
set rs5=nothing
Response.Write ("<script language=javascript>alert('注单添加成功！');window.location.href='chilp_add.asp';</script>")
Response.End
%>