<!--#include file="conn.asp"-->
<%
dim pwd
pwd=request("pass")
if request("user")="" or pwd="" or request("zhanzhang")="" or request("web")="" or request("email")="" or request("url")="" then

%> 
<script language=vbscript>
       MsgBox "用户资料不全请重填"
       location.href = "javascript:history.back()"
   </script>
<%else%>

<%
sql="select * from user where username='"&request("user")&"'"
set Rs=conn.Execute(sql)
if not rs.eof and not rs.bof then

sql="update user set password='"&pwd&"',webmaster='"&request("zhanzhang")&"',kind='"&request("kind")&"',email='"&request("email")&"',web='"&request("web")&"',wwwhttp='"&request("url")&"',wwwintro='"&request("intro")&"' where username='"&request("user")&"'"
conn.Execute sql
msg="成功修改"

rs.Close
set rs=nothing
else
msg="对不起您的用户名和密码不对，请重新登录"
end if
%>
<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>资料修改</title>
<%
user=request("user")
  set rs1=server.createobject("adodb.recordset")
sql="select * from user where username='" & user &"'"
rs1.Open SQL,conn,1,2
if rs1.BOF or rs1.EOF then
kind=5
else
kind=rs1("kind")
webname=rs1("web")
end if
set rs1=nothing
rs1.close
%>
<link rel="stylesheet" type="text/css" href="style/<%=kind%>.css">
</head>
<table width="600" align="center" cellspacing="0" cellpadding="1"  border="0" bgcolor=#000000>
  <tr> 
    <td> 
      <table width="600" cellspacing="0" cellpadding="4" border="0"  class="table002">
        <tr> 
          <td class="jnfont7" valign="middle" align=left> <b>>> </b> <a href="<%=web%>"><acronym title="返回主页">主页</acronym></a> 
            | <a href="modify.asp?user=<%=user%>"><acronym title="编辑你的个人资料">修改资料</acronym></a> 
            | <%if  adminok="ok" then%><a href="usermanager.asp?user=<%=user%>&exit=ok"><acronym title="退出管理">退出管理</acronym></a><%else%><a href="usermanager.asp?user=<%=user%>"><acronym title="回复或删除留言">留言管理</acronym></a><%end if%> 
            | <a href="default.asp"><acronym title="免费申请留言本">免费申请</acronym></a> 
            | <a href="top.asp"><acronym title="留言排行榜">留言排行</acronym></a> </td>
          <td class="jnfont7" valign="middle" align=right><b><%=webname%></b></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<p>&nbsp;</p><table align="center"><td class="jnfont3" >
<p align="center" > 提示：<%=msg%><br><br>
『<a href="guestbook.asp?user=<%=user%>">返回</a>』</p> 
</td>
</table>
<table border="0" width="560" cellpadding="0" align="center">
  <tr> 
    <td width="100%"> 
      <hr size="1" width="80%">
    </td>
  </tr>
  <tr> 
    <td width="100%" class="jnfont6"> 
          <p align="center">
            <a href=http://www.5151.cn target=_blank>免费留言本由[中泰科技]提供</a>
        </td>
      </tr>
    </table>     
<p align="center">&nbsp;</P>
</body>
</html>
<%end if%>

