<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/Connect.asp"-->
<%
username=Checkstr(request.querystring("username"))
if Username="" then
response.redirect("../default.asp")
end if

if session("username") <> Username then
response.write("你没有权限！")
response.end()
end if

set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_AllUser where Username='"&Username&"'"
rs.open sql,cn,1,3
rs("Hompyname")=request.form("hompyname")
rs.update
rs.close
set rs=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../CSS/Hompy/hompy.css" type=text/css rel=stylesheet>
<title></title>
</head>

<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table width="288" height="110" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="279" class="orange2_b" style="PADDING-LEFT: 10px; HEIGHT: 24px;BORDER-TOP: #cecfce 1px solid; BORDER-BOTTOM: #cecfce 1px dotted; BACKGROUND-COLOR: #f7f7f7"> 
      修改宅基地标题</td>
  </tr>
  <tr> 
    <td height="80" align="center">修改成功！<a href="#" onClick="window.opener.location.reload(); window.close();"><img src="../Images/Hompy/btn_confirm.gif" width="39" height="18" border="0" align="absmiddle"></a></td>
  </tr>
  <tr> 
    <td style="HEIGHT: 4px; BORDER-TOP: #cecfce 1px dotted; BORDER-BOTTOM: #cecfce 1px solid; BACKGROUND-COLOR: #f7f7f7"><img src="" width="4" height="4" alt=""></td>
  </tr>
</table>
</body>
</html>