📄 updatepickupmoney.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
id=Request("id")
findcontent=Request("findcontent")
pageno=Request("pageno")
pay=request("pay")
PickupCount=trim(request("PickupCount"))
HyNumber=trim(request("HyNumber"))

%><HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------处理提款中...............<br>
<%

set rs=server.CreateObject("adodb.recordset")

sql = "update HyPickupMoneyLog set ApprovedDate='"& thistoday &"', PickupStatus=" & pay  & " where id =" & id 

rs.Open sql,conn

if pay=1 then
	set rs=nothing
	set rs=server.CreateObject("adodb.recordset")
	sql ="update HyMoneyAccount set HyMoneyAccount=HyMoneyAccount-" & PickupCount & " where HyNumber='" & HyNumber& "'"
	rs.Open sql,conn
end if

%>
<br>------------------------<font color=red>处理成功!</font><br>
<script language="javascript">
	window.location.href="HyPickupMoneyLog.asp?pageno=<% =pageno%>&findcontent=<%=findcontent%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -