<%
on error resume next
%>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/md5.asp" -->
 <%
 	conn.open constr
'''''''''''''表单处理
'''''''''''''检查用户名可否使用
'''''''''''''杂项处理
'''''''''''''写入数据库
'''''''''''''发信通知 

'''''''''''''表单处理
username=trim(SafeRequest("username"))
confirmsum=trim(SafeRequest("confirmsum"))
recs=Chk_usrpss(username,"登录名称",4,16)
recs=Chk_usrpss(confirmsum,"验证串",32,32)
query="select * from memlst where u_nme='"&username&"'"
rs.open query,conn,1,1
if  rs.eof then
    call errorpage(-2,"对不起，该会员不存在！")
end if
u_lck=rs("u_lck")
u_lgncnt=rs("u_lgncnt")
u_pss=trim(rs("u_pss"))
rs.close
if u_lck<>"1" or u_lgncnt<>"0" then
    call errorpage(-2,"对不起，该会员已被激活！")
end if
u_pss=left(u_pss,15)

								     substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:getincode"&Vend
   substrContent =substrContent& "entryuser:"&pl_usrnme_sys&Vend
   query="select * from memlst where u_nme='"&pl_usrnme_sys&"'"
   rs2.open query,conn,1,1
   if not rs2.eof then
   pl_usrpss_sys=trim(rs2("u_pss"))
   end if
   rs2.close
   substrContent =substrContent& "entrypass:"&pl_usrpss_sys&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "keywords:" & u_pss& Vend
   substrContent = substrContent & "." & Vend
passstr=hzsocket(substrContent)
if  confirmsum<>md5(passstr) then
    call errorpage(-2,"对不起，会员验证串不符！")
else
    ifok=true	
end if
if ifok then
thisurl=request.servervariables("http_host")

query="update memlst set u_lck=0 where u_nme='"&username&"'"
conn.execute query,1,1
	call infpage( "<a href='http://"&thisurl&"'><font style='font-size:12px' face='arial' color=#ff0000><u>恭喜您，您的会员号已经激活成功，您可以点击该链接马上登录本站进行采购和管理了！</u></font></a>","/")
else
    call errorpage(-2,"对不起，非法访问！")
end if	
conn.close
%>

