📄 hyeditcheck.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"))
Approved =request("Approved")
if len(Approved)=0 then
	Approved=0
end if
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"))

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>
<%

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

sql = "update hy set HyName = '" & HyName & "',HyAge = '" & HyAge & "',HyCardNo = '"
sql = sql & HyCardNo & "',HyAddress='" & HyAddress & "',HyTel='" & HyTel & "',HyMobile='" 
sql = sql & HyMobile & "',HyMail='" & HyMail & "',HyOpenBank='" & HyOpenBank & "',HyOpenBankNo='" 
sql = sql & HyOpenBankNo & "',HyOpenBankName='" & HyOpenBankName & "',HyProduct='" & HyProduct & "',HyBankDate='" 
sql = sql & HyBankDate & "',HyBankName='" & HyBankName & "',HyBankNumber='" & HyBankNumber & "',HyBankCur='" 
sql = sql & HyBankCur & "',HyBankCount='" & HyBankCount & "',HyBankOperator='" & HyBankOperator & "',HyBankNetNo='"  
sql = sql & HyBankNetNo & "',HyParentName='" & HyParentName & "',HyParentNumber='" & HyParentNumber & "',HyLocation='" 
sql = sql & HyLocation & "',HyMemo='" & HyMemo  
sql = sql & "' where id =" & id



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

if Approved=1 then 
	href="hymanok.asp?pageno=" & pageno & "& findcontent=" & findcontent
else
	href="hyman.asp?pageno=" & pageno & "& findcontent=" & findcontent
end if
%>
<br>------------------------<font color=red>会员修改成功!</font><br>
<script language="javascript">
	window.location.href="<% =href%>"
	window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -