
<%response.expires =0
session("author")="ncaids"
if session("cdcuser")<>1 or session("chkuser")="" then
  response.redirect "index.asp"
end if
%>
<!--#include file="config.asp" -->
<%
oldpwd=trim(request.form("oldpwdsd"))
newpwd=trim(request.form("newpwdsd"))
newpwdre=trim(request.form("newpwdresd"))
	if newpwd <> newpwdre then
		response.redirect "vip_keshigl.asp?editnum=3&errnum=1"
	end if
	sql ="select * from kspwd where 科室='"& session("chkkeshi") &"'"
	openrs rs,sql,1,2
	if rs("密码")<>oldpwd then
		response.redirect "vip_keshigl.asp?editnum=3&errnum=2"
	end if	
	rs("密码")=newpwd
	rs.Update 
	rs.close
	set rs=nothing
	set conn=nothing
response.redirect "vip_keshigl.asp?editnum=3&errnum=3"
%>