<%
IF not(Session("KEY")="1" or session("KEY")="2" or Session("KEY")="3") THEN
response.write ""
response.end
END IF
'==========================================
'
' SuperCMS新闻文章内容管理系统 V 1.0
'
' 官方网址：http://www.supercms.cn
' www.supercms.net
'
'==========================================
'程序名称： SuperCMS新闻文章内容管理系统
'英文名称：Super Content Management System
'作 者： 创意小子
'联系 Q Q： 77801933
'
'程序创建时间：2005-6-10
'程序完成时间：2005-8-1
'==========================================
'请尊重作者版权不要删除以上信息
'
'力争做国内最好最实用的开源网站内容管理系统
'
'特别感谢玄鸟科技提供的大力支持
' http://www.superbtec.com
'==========================================
%>
Untitled Document
更改我的管理密码
<%if request.QueryString("action")="edit" then%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from admin where UserName='"&session("UserName")&"'",conn,3,3
if md5(trim(request("passwd")))<>rs("passwd") then
response.Write ""
response.End
else
rs("passwd")=md5(trim(request("passwd2")))
rs.Update
rs.Close
set rs=nothing
response.Write ""
end if
response.End
end if
%>