📄 hyaddcheck.asp

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

💻 ASP

字号:

<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checksession.asp" -->
<%
hyname = trim(request("hyname"))
HyAge = trim(request("HyAge"))
if Len(HyAge)=0 then 
	HyAge=0
else
	HyAge=cint(HyAge)
end if
HyCardNo = trim(request("HyCardNo"))
HyAddress = trim(request("HyAddress"))
HyTel = trim(request("HyTel"))
HyMobile = trim(request("HyMobile"))
HyMail = trim(request("HyMail"))
HyOpenBank = trim(request("HyOpenBank"))
HyOpenBankNo = trim(request("HyOpenBankNo"))
HyOpenBankName = trim(request("HyOpenBankName"))
HyProduct = trim(request("HyProduct"))
HyBankDate = trim(request("HyBankDate"))
HyBankName = trim(request("HyBankName"))
HyBankNumber = trim(request("HyBankNumber"))
HyBankCur = trim(request("HyBankCur"))
HyBankCount = trim(request("HyBankCount"))
HyBankOperator = trim(request("HyBankOperator"))
HyBankNetNo = trim(request("HyBankNetNo"))

HyMemo = trim(request("HyMemo"))
HyParentName = trim(request("HyParentName"))
HyParentNumber = trim(request("HyParentNumber"))
HyLocation = trim(request("HyLocation"))



%><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 = "insert into hy(HyName,HyAge,HyCardNo,HyAddress,HyTel,HyMobile,HyMail,HyOpenBank,HyOpenBankNo,HyOpenBankName,HyProduct,HyBankDate,HyBankName,HyBankNumber,HyBankCur,HyBankCount,HyBankOperator,HyBankNetNo,HyParentName,HyParentNumber,HyLocation,HyMemo) values("
sql = sql &"'" &  HyName & "','" & HyAge & "','" & HyCardNo & "','" & HyAddress & "','" & HyTel & "','" & HyMobile & "'"
sql = sql &",'" &  HyMail & "','" & HyOpenBank & "','" & HyOpenBankNo & "','" & HyOpenBankName & "','" & HyProduct & "','" & HyBankDate & "'"
sql = sql &",'" & HyBankName & "','" & HyBankNumber & "','" & HyBankCur & "','" & HyBankCount & "','" & HyBankOperator & "','" & HyBankNetNo & "'"
sql = sql &",'" & HyParentName & "','" & HyParentNumber & "','" & HyLocation & "','" & HyMemo  & "'"
sql = sql & ")"

'Response.Write sql 
'Response.End 
rs.Open sql,conn


%>
<br>------------------------<font color=red>会员增加成功!</font><br>
<script language="javascript">
	window.location.href="hyman.asp"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -