代码:
<%
dim np,uym
np=request("newpasswd")
uym=session("loginame")
dim sqlReg,rs
sqlReg="select yhm,password from reg where yhm='"&uym&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlReg,conn,1,3
'rs.addnew
rs("password")=np
rs.update
rs.close
set rs=nothing
%>