<% response.expires =0 session("author")="chinaids" if session("irbuser")<>1 or session("chkuser")="" then response.redirect "../index.asp" end if %> 中国疾病预防控制中心性病艾滋病预防控制中心
 
现在位置 > 伦理审查委员会(IRB) > IRB成员专区
   
当前用户: <%response.write(session("chkuser"))%>
 
<% old_pwd_t=trim(request.form("old_pwd")) new_pwd_t=trim(request.form("new_pwd")) new_pwd2_t=trim(request.form("new_pwd2")) if old_pwd_t="" or new_pwd_t="" or new_pwd2_t="" then NiceError "填写项目不完整!返回" elseif new_pwd_t<>new_pwd2_t then NiceError "新密码两次填写不一样!返回" elseif (instr(1,old_pwd_t,"'",1)>0 or instr(1,new_pwd_t,"'",1)>0 or instr(1,new_pwd2_t,"'",1)>0 or instr(1,old_pwd_t,"=",1)>0 or instr(1,new_pwd_t,"=",1)>0 or instr(1,old_pwd_t,"<",1)>0 or instr(1,new_pwd_t,"<",1)>0 or instr(1,old_pwd_t,">",1)>0 or instr(1,new_pwd_t,">",1)>0) then NiceError "密码含有非法字符('=<>等)!请重新填写!返回" else nowuser=session("chkuser") sql ="select * from viplist where vip_name='"& nowuser &"'" openrs rs,sql,3,3 if rs("vip_pwd")<>old_pwd_t then NiceError "旧密码错误,请重新填写!返回" else rs("vip_pwd")=new_pwd_t end if rs.Update rs.close set rs=nothing set conn=nothing end if response.write("密码修改成功!") %>
      << 返回