📄 chkemail.asp
字号:
<!--#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: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -