<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
if session("cwjh_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if cwjh_grade<>10 or instr(Application("cwjh_admin"),cwjh_name)=0  then Response.Redirect "../error.asp?id=439"
%>
<!--#include file="config.asp"-->
<%
cz=trim(request.querystring("cz"))
if cz<>"备份" then cz=""
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "SELECT * FROM 说明 where a='会员"&cz&"'",conn,2,2
%>
<html>
<head>
<title>会员说明及联系方式修改</title><LINK href="css/css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgColor=#dcdec6 text=#000000 link=#003366 vLink=#006666>
<p align="center">会员说明及联系方式修改(&lt;br&gt;为回车 支持html语言)<br>
  (<font color="#0000FF">办理会员说明</font>) <br>
  <input type=submit value=恢复初始设置 onClick="location.href ='hysm.asp?cz=备份'" name="submit2" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
<form method=POST action="hysmok.asp" name="form">
  <div align="center">
    <textarea name="hysm"  cols="60" rows="14"><%=rs("c")%></textarea>
    <br>
    <br>
    (<font color="#0000FF">联系方法说明</font>) <br>
    <textarea name="hydz"  cols="60" rows="5"><%=rs("d")%></textarea>
    <br>
    <input type=submit value=确定会员修改 name="submit" style="border: 1px solid; font-size: 9pt; border-color:#000000 solid">
  </div>
</form>
    </body>
</html>