<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="checklogin.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息</title>
<link href="style.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.style1 {color: #FF0000}
.width100{width:100%;}

-->
</style>
<LINK media=screen href="../js/dhtmlgoodies_calendar.css" rel=stylesheet></LINK>
<SCRIPT src="../js/dhtmlgoodies_calendar.js" type=text/javascript></SCRIPT>
</head>

<body>
<!--#include file="top.asp"-->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
	<%
dim act
act=request.querystring("act")
if(act="do") then
	conn.execute("update t_member set OpenFr=0 where UserId='"&checkusername&"'")
	response.write("<p align=""center""><a href=""main.asp"">成功注销!</a></p>")
else
	call mod_personalinfo()
end if
%>    </td>
  </tr>
</table>
<%
sub mod_personalinfo
%>
<form action="?act=do" method="post" enctype="application/x-www-form-urlencoded" name="PostForm" id="PostForm">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr>
    <td width="100%" height="28" class="th_title">注销注册交友</td>
  </tr>
  <tr>
    <td height="80" class="td_row"><div align="center">
      <input type="submit" name="Submit" value="点击注销交友注册-&gt;" />
    </div></td>
    </tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
call connclose()
%>