📄 hyconfirm2.asp

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

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checkhy.asp" -->
<%

id=Request("id")
pageno=trim(Request("pageno"))
findcontent=trim(request("findcontent"))
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------审核会员中...............<br>
<%
chk=request("chk")
if chk=1 then
set rs=server.CreateObject("adodb.recordset")

hid=trim(request("dlid"))
set rss=server.createobject("adodb.recordset")

rss.open "select * from dlclub where hid="&hid&"",conn,1,3
oprice=rss("oprice")
allmoney=rss("allmoney")
set buy=conn.execute("select * from orders where hid="&id&"")
if not buy.eof then
buyno=buy("buyno")
end if
if buyno<0 then buyno=1 
if allmoney-oprice*buyno>=0 then

sql = "update hy set IsApproved = yes where id =" & id

rs.Open sql,conn
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql = "update hyClub set IsApproved = true where hyid =" & id
rs.Open sql,conn

rss("allmoney")=allmoney-oprice*buyno
rss("orders")=rss("orders")+buyno
rss.update
rss.close
rss.open "select * from orders where hid="&id&"",conn,1,3
rss("ispassed")=true
rss.update
else 
response.write "电子币不足！"
response.end 
end if
'rss.close
'set rss=nothing
'rs.close
'set rs=nothing
end if
%>
<br>------------------------<font color=red>会员审核成功!</font><br>
<script language="javascript">
	window.location.href="userman.asp?pageno=<% =pageno%>&findcontent=<%=findcontent%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -