lcdpass_save.asp

来自「一个诚信信息港门户网 功能: 系统设置 企业会员 个人」· ASP 代码 · 共 25 行

<!--#include file="top.asp"-->
<!--#include file="../inc/md5.asp"-->
<%password=request("password")
pass=request("pass")
pass1=request("pass1")
pass2=request("pass2")

if pass1="" or len(pass1)<4 or len(pass1)>16 then
errstyle="·您输入的新密码不为 4-16 位！"
scripterr
end if
if md5(pass)<>password then
errstyle="·您输入的旧密码不正确，请重新输入！"
scripterr
end if

set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from SMT_yp where SMT_id="&session("id")
rs.open sql,conn,1,3
rs("SMT_pass")=md5(pass1)
rs.update
rs.close
set rs=nothing

response.redirect"ok.asp?url=lcdpass.asp"%>