<%
confirmurl=request.servervariables("http_host")
   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:" & left(u_pss,15)& Vend
   substrContent = substrContent & "." & Vend
passstr=hzsocket(substrContent)
confirmurl=confirmurl&"/members/usr_act.asp?username="&u_nme&"&confirmsum="&md5(passstr)
confirmurl="http://"&confirmurl
if pl_emlhtm="1" then
confirmurl="<a href='"&confirmurl&"' target=_blank>"&confirmurl&"</a>"
end if
paras=paras&"pl_stenme:"&pl_stenme&Vend
paras=paras&"pl_steurl:"&pl_steurl&Vend
paras=paras&"u_ctt_cn:"&u_ctt_cn&Vend
paras=paras&"u_nme:"&u_nme&Vend
paras=paras&"u_pss:"&u_pssold&Vend
paras=paras&"confirmurl:"&confirmurl&Vend
if pl_newifcfm="1" then
recs=jmail_feedback(u_eml,"usr_reg_sec",paras,true)
else
recs=jmail_feedback(u_eml,"usr_reg",paras,true)
end if
if recs then
ifsendwrd="·¢ËÍ³É¹¦"
else
ifsendwrd="·¢ËÍÊ§°Ü"
end if
%>