📄 hyregcheck.asp
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="common.asp" -->
<%
Function Getleftnumber(tjnumber)
rr=tjnumber
set HyleftRs=nothing
set HyleftRs=server.CreateObject("adodb.recordset")
sql = "select LeftNumber from HyClub where HyNumber ='" & tjnumber & "'"
HyleftRs.Open sql,conn
if HyleftRs.RecordCount=0 then
rr=tjnumber
else
if len(HyleftRs("LeftNumber"))>0 then
ctr=HyleftRs("LeftNumber")
rr=Getleftnumber(ctr)
else
rr=tjnumber
end if
End if
Getleftnumber=rr
End Function
Function Getrightnumber(tjnumber)
rr=tjnumber
set HyleftRs=nothing
set HyleftRs=server.CreateObject("adodb.recordset")
sql = "select RightNumber from HyClub where HyNumber ='" & tjnumber & "'"
HyleftRs.Open sql,conn
if HyleftRs.RecordCount=0 then
rr=tjnumber
else
if len(HyleftRs("RightNumber"))>0 then
ctr=HyleftRs("RightNumber")
rr=Getrightnumber(ctr)
else
rr=tjnumber
end if
End if
Getrightnumber=rr
End Function
HyNumber = trim(request("HyNumber"))
HyPassword1=trim(request("HyPassword1"))
eduPassword2=trim(request("eduPassword2"))
hyname = trim(request("hyname"))
HySex=trim(request("HySex"))
HyAge=trim(request("HyAge"))
HyCardNo = trim(request("HyCardNo"))
HyTel=trim(request("HyTel"))
HyMobile = trim(request("HyMobile"))
HyMail= trim(request("HyMail"))
HyQQMSN=trim(request("HyQQMSN"))
HyAddress = trim(request("HyAddress"))
HyZipCode=trim(request("HyZipCode"))
HyOpenBank = trim(request("HyOpenBank"))
HyOpenBankNo = trim(request("HyOpenBankNo"))
HyOpenBankName=trim(request("HyOpenBankName"))
HyProduct=trim(request("HyProduct"))
HyTjNumber = trim(request("HyTjNumber"))
HyTjName=trim(request("HyTjName"))
HyLocation = trim(request("HyLocation"))
HyMemo = trim(request("HyMemo"))
HyBuyCount=trim(request("HyBuyCount"))
dlname=trim(request("dlname"))
set rs=server.CreateObject("adodb.recordset")
sql ="select ID from hyclub where HyNumber='" & dlname & "'"
rs.Open sql,conn
if not rs.eof then
dlid=rs("id")
else
response.write "没有此信誉用户！ <a href='javascript:history.go(-1);'>返回</a>"
response.end
end if
rs.close
rs.open "select * from dlclub where hid="&dlid&"",conn
if rs.eof then
response.write "没有此信誉用户！ <a href='javascript:history.go(-1);'>返回</a>"
response.end
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql ="select ID from hyclub where HyNumber='" & HyNumber & "'"
rs.Open sql,conn
if rs.RecordCount>0 then%>
<script language="javascript">
alert("你输入的登录帐号已经有人用了，请检查!");
history.back();
</script>
<%response.End
end if
if len(HyTjNumber)>0 then
set rs=server.CreateObject("adodb.recordset")
sql ="select ID from hyclub where HyNumber='" & HyTjNumber & "'"
rs.Open sql,conn
if rs.RecordCount<=0 then%>
<script language="javascript">
alert("你输入的推荐人帐号不存在，请检查!");
history.back();
</script>
<%response.End
end if
if HyLocation="左边" then
HyParentNumber=Getleftnumber(HyTjNumber)
end if
if HyLocation="右边" then
HyParentNumber=Getrightnumber(HyTjNumber)
end if
end if
%><HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.style11 {
font-size: 16px;
color: #FF0000;
font-weight: bold;
}
a {
font-size: 16pt;
color: #FF0000;
}
a:visited {
color: #666666;
}
a:link {
color: #666666;
}
-->
</style>
</HEAD>
<BODY>
<%
set rs=server.CreateObject("adodb.recordset")
sql = "insert into hy(HyName,HySex,HyAge,HyPassword1,edupassword,HyCardNo,HyTel,HyMobile,HyMail,HyQQMSN,HyAddress,HyZipCode,HyOpenBank,HyOpenBankNo,HyOpenBankName,HyProduct,HyTjNumber,HyTjName,HyParentNumber,HyParentName,HyLocation,HyMemo,HyBuyCount) values("
sql = sql &"'" & HyName & "','" & HySex & "','"& HyAge & "','" & HyPassword1& "','" & eduPassword2 & "','" & HyCardNo & "','" & HyTel & "','" & HyMobile & "','"& HyMail & "','"& HyQQMSN & "','"& HyAddress & "','" & HyZipCode
sql = sql & "','" & HyOpenBank & "','" & HyOpenBankNo & "','"& HyOpenBankName & "','"& HyProduct & "','"& HyTjNumber& "','"& HyTjName & "','"& HyParentNumber & "','"& HyParentName
sql =sql & "','" & HyLocation & "','" & HyMemo & "',"& HyBuyCount
sql = sql & ")"
rs.Open sql,conn
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql ="select max(id) as maxid from hy"
rs.Open sql,conn
HyID=rs("maxid")
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="insert into hyClub(dlid,Hyid,HyNumber,HyPassword,edupassword,HyParentNumber,HyTjNumber,HyBuyCount,addTime) values("
sql = sql &dlid&","& HyID & ",'" & HyNumber & "','" & HyPassword1 & "','" & eduPassword2 & "','" & HyParentNumber & "','"& HyTjNumber & "',"& HyBuyCount & ",'" & thistoday & "')"
rs.Open sql,conn
if HyLocation="左边" then
sql="update hyClub set IsLeaf=0,leftnumber='"
else
sql="update hyClub set IsLeaf=0,rightnumber='"
end if
sql = sql & HyNumber & "' where HyNumber='" & HyParentNumber & "'"
rs.Open sql,conn
oldpass=eduPassword2
Ucontent="会员ID："&HyID&";用户登陆名："&HyNumber&"；用户名称："&hyname&"；教育网密码是："&oldpass
function htmlencode(str)
htmlencode=server.htmlencode(str)
htmlencode=replace(replace(htmlencode,chr(13),"<br>"),"'","’")
end function
set rs=nothing
set rs=server.createobject("adodb.recordset")
sqltext="select * from GuestBook"
rs.open sqltext,conn,3,3
rs.addnew
rs("UserName")=hyname
rs("Title")="新会员的教育网密码"
rs("Content")=htmlencode(Ucontent)
rs("AddTime")=cstr(now())
rs("modtype")=1
rs.update
rs.close
rs.open "select * from dlclub where hid="&dlid&"",conn,1,3
if not rs.eof then
hid=rs("hid")
oprice=rs("oprice")
allmoney=rs("allmoney")
rs.close
rs.open "select * from orders",conn,1,3
rs.addnew
rs("hid")=hyid
rs("dlid")=hid
rs("price")=oprice
rs("buyno")=hybuycount
rs.update
end if
rs.close
conn.close
%>
<p> </p>
<p> </p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF">
<div align="center"><font color=red size="7"><strong><img src="Image/2.gif" width="15" height="15"><font size="6">恭
喜 你</font></strong></font></div></td>
</tr>
<tr>
<td height="98" bgcolor="#FFFFFF"><div align="center"><br>
<span class="style11">注册成功,请等待系统审核,点击<a href="default.asp" target="_self">登陆</a>进入系统,或<a href="#" onClick="window.close();">关闭</a>本窗口！</span> <font color=#FF0000 size="4"> </font>
</div>
<p align="center"> </p></td>
</tr>
</table></td>
</tr>
</table>
<br>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -