maggerggpassok.asp

20041230162250801409： 浙江省丽水市公铁联运有限公司OA系统（物流） 开发语言：PHP/ASP/PERL 本系统包括各个部门的管理

<% @language="vbscript" %>
<% 
response.buffer=true
Response.Expires=0
jname=request("jname")
jpassword=request("jpassword")
xinname=request("xinname")
xinpassword=request("xinpassword")
xinpassword2=request("xinpassword2")
If jname="" Then
response.write "SORRY <br>"
response.write "你的旧用户名没有填写<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
If jpassword="" Then
response.write "SORRY <br>"
response.write "你的旧密码没有填写<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
If  xinname="" Then
response.write "SORRY <br>"
response.write "你的新用户名没有填写<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
If  xinpassword="" Then
response.write "SORRY <br>"
response.write "你的新密码没有填写<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
If  xinpassword2="" Then
response.write "SORRY <br>"
response.write "你的新重复密码没有填写<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
if len(xinpassword)<2 then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>－－你的新的密码不能少于4位字符－－</td></tr>")
response.write(" <tr><td>－－－<a href=vbscript:history.back()>回去重来</a>－－－</td></tr>")
response.write("</table>")
response.end
end if
If  xinpassword2<>xinpassword Then
response.write "SORRY <br>"
response.write "你的新密码两次填写的不一致<br>"
response.write "<a href=vbscript:history.back()>回去重来</a>"
response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
'检测旧用户名和密码
sql="select * from users where username='"&jname&"' and pwd='"&jpassword&"'"
name=request("jname")
password=request("jpassword")
xinname=request("xinname")
xinpassword=request("xinpassword")
rs.open sql,conn,1,3
if rs.eof then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>－－你的旧密码或者用户名填写的不对－－</td></tr>")
response.write(" <tr><td>－－－<a href=vbscript:history.back()>回去重来</a>－－－</td></tr>")
response.write("</table>")
response.end
else
'写新的用户名和密码
sql="update users set username='"&xinname&"',pwd='"&xinpassword&"' where id=2"
conn.execute(sql)
end if
response.write"<script>alert('恭喜你！你已成功修改密码！');top.location.href='../mannger/yuangon/index.asp';</script>"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>