?? dlhyregcheck.asp
字號:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="common.asp" -->
<!-- #include file="include/checkhy.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"))
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")
'//////////////
'rs.open "select ID from hyclub where hyid='"&trim(request("dlid"))&"'",conn,1,1
hid=trim(request("dlid"))
'rs.close
rs.open "select * from dlclub where hid="&hid&"",conn,1,3
oprice=rs("oprice")
allmoney=rs("allmoney")
rs.close
'if allmoney-oprice>=0 then
'///////////////////////
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&hid&"," & 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
'============================扣費，下單
'response.write request("tjname")
'rs.open "select ID from hyclub where hyid='"&trim(request("dlid"))&"'",conn,1,1
hid=trim(request("dlid"))
rs.open "select * from orders",conn,1,3
rs.addnew
rs("hid")=hyid
rs("dlid")=hid
rs("price")=oprice
rs("buyno")=HyBuyCount
rs.update
rs.close
'else
'response.write "<p><p><p><p align=center>您已經沒有足夠的電子貨幣來開通此用戶了，請充值!"
'response.end
'end if
'============================
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 + -