<%@ LANGUAGE=VBScript%>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
if zhbg_grade<>10 or instr(Application("zhbg_admin"),zhbg_name)=0  then
	Response.Write "<script Language=Javascript>alert('你不是站长？！');window.close();</script>"
	response.end
end if
id=lcase(trim(request("id")))
newwt=lcase(trim(request.form("wt")))
newda=lcase(trim(request.form("da")))
%>
<!--#include file="DATA.ASP"-->
<%
sql="select * from 密码保护 where 用户="&id
set rs=conn1.execute(sql)
if rs.eof or rs.bof then
	rs.close
	set rs=nothing
	conn1.close
	set conn1=nothing
	Response.Write "<script Language=Javascript>alert('没有找到你要修改的密码保护资料！');window.close();</script>"
	response.end
end if
wt=rs("问题")
da=rs("答案")
rs.close
sql="update 密码保护 set 问题='" & newwt & "',答案='" &newda& "' where 用户="&id
set rs=conn1.execute(sql)
set rs=nothing
conn1.close
set conn1=nothing
%>
<html>
<head><link href="../../../css.css" rel="stylesheet" type="text/css">
<title>密码保护资料修改成功</title>
</head>
<body >
<table width="428" border="1" align="center" cellpadding="10" cellspacing="13" bordercolor="#cccccc" bgcolor="#cccccc">
  <tr>
    <td height="55" align="center" ><p align="center"><b><font color="#FF0000" size="5">修改成功</font></b></p>
<p align="center">用户ID：<%=id%></p>
<p align="center">提示问题：<%=wt%>-------<%=newwt%></p>
<p align="center">答案：<%=da%>-------<%=newda%></p>
<p align="center"><a href="MMBHCX.ASP">返回</a></p>
</td>
  </tr>
<tr>    
    <td colspan="2" align="center" >[非凡国度]
    </td>    
</tr> 
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>