chkemail.asp

来自「AspEase Auction System Ver2.0/动易拍卖系统 Ver」· ASP 代码 · 共 39 行

<!--#include file="conn.asp" -->
<!-- #include file="inc/email.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<% response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: chkemail.asp
'Version:2.0
'UpdateTime: 2004-10-4 20:40:17
'Script Written by www.aspease.com 
'=========================================================
activeonline
if trim(rst("regusername"))<>"" and rst("chkno")<>"" then
sql ="select regusername,regchkno from users where regusername="&sqlstr(rst("regusername"))&" and regchkno="&sqlval(rst("chkno"))
set rs=conn.execute(sql)
	if not rs.eof then
		conn.execute("update users set regemailValidated='Y' where regusername="&sqlstr(rst("regusername"))&"")
		suc_msg= "<B><LI>"&easechkemailokmsg&"</B>"
		stats=easechkemailstats
		header
		aspease_suc
		footer		
	else
		stats=easechkemailstats2
		header
		err_msg= "<B><LI>"&easechkemailerr1&"</B>"
		aspease_err
		footer			
	end if
else
	response.redirect "renzheng.asp"
end if
%>