📄 dlregcheck.asp

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

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="common.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="include/e1.css" type="text/css">
<%action=request("action")
id=request("id")
hid=request.form("hid")
tid=request.form("tid")
allmoney=request.form("allmoney")
dlname=request.form("dlname")
memo=request.form("memo")
oprice=request.form("oprice")
if oprice="" then oprice=10

set rs=server.createobject("adodb.recordset")
rs.open "select * from hyclub where hynumber='"&hid&"'",conn,1,1
if rs.eof and rs.bof then
response.write "没有此会员！"
else
hid=rs("id")
rs.close
rs.open "select * from hyclub where hynumber='"&tid&"'",conn,1,1
if rs.eof then
response.write "没有此推荐会员！"
else
tid=rs("id")
rs.close
if action="add" then
rs.open "select * from dlclub where hid="&hid&"",conn,1,3
if rs.eof then
rs.addnew
rs("id")=id
rs("hid")=hid
rs("allmoney")=allmoney
rs("tid")=tid
rs("dlname")=dlname
rs("memo")=memo
rs("oprice")=clng(oprice)
rs("regtime")=date()
rs.update
set lv=conn.execute("update hyclub set hylevel=1 where id="&hid&"")
else
response.write "<p align=center>此会员已经是信誉用户了！"
response.end 
end if
elseif action="mod" then

rs.open "select * from dlclub where id="&id&"",conn,1,3
rs("hid")=hid
rs("tid")=tid
rs("allmoney")=rs("allmoney")+clng(allmoney)
rs("dlname")=dlname
rs("memo")=memo
rs("oprice")=clng(oprice)
rs.update

end if
rs.close
set rs=nothing
response.write "<p align='center'>添加/修改成功！     <a href='javascript:history.go(-1);'>返回</a>"
end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -