云网互动影视6.0--管理员密码修改

<% '=================================================================================================================== '软件名称：云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ：489234,2813712 '程序版权：云网互动科技有限公司 '程序开发：云网互动科技有限公司 '官方网站：http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息； ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== IF Session("Admin")="" and Session("AdminGroup")="" and Session("AdminSession")<>true Then Response.Redirect "Admin_Login.asp" End IF sub EditPassword() IF Request.Form("OldPassword")="" Then call Admin_ShowErr("
- 旧管理密码不能为空
","javascript:history.go(-1)",0) End IF IF Request.Form("AdminPassword")<>"" Then IF Request.Form("AdminPassword")<>Request.Form("AdminPassword2") Then call Admin_ShowErr("
- 两次管理员密码不一直
","javascript:history.go(-1)",0) End IF End IF Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Admin where AdminName='"&Session("Admin")&"' and AdminPassword='"&NoSqlHack(Md5(Request.Form("OldPassword"),32))&"'" Rs.open sql,Conn,1,3 IF not Rs.eof Then IF Request.Form("AdminPassword")<>"" Then RS("AdminPassword")=NoSqlHack(Md5(Request.Form("AdminPassword"),32)) End if Else call Admin_ShowErr("
- 旧管理密码不正确
","javascript:history.go(-1)",0) End If Rs.Update Rs.Close Set Rs = Nothing Call AddLog("管理员修改密码",1) call Admin_ShowErr("
- 管理员密码改成功
","Admin_Right.asp",1) end sub Action=Trim(request.QueryString("Action")) Select Case Action Case "EditPassword" call EditPassword() Case else call Edit() End Select sub Edit()%>

修改管理员密码
旧管理密码： |
新管理密码： |
重复密码： |

<%end sub call connclose()%>