<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/Connect.asp"-->
<%
username=session("username")
if Username="" then
response.redirect("http://www.cnzzd.com")
end if
filename=request.querystring("filename")

Set fs = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fs.CreateFolder("E:\Wwwroot\show5net\Userpic\"&username&"")
SFile = Server.MapPath("image/"&filename&"")
NFile = "E:\Wwwroot\show5net\Userpic\"&username&"\"&filename&""
on Error Resume Next
fs.MoveFile SFile, NFile
fs.close
set fs=nothing

set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_AllUser where Username='"&Username&"'"
rs.open sql,cn,1,3
rs("Userpic")=filename
rs.update
rs.close
set rs=nothing
session("Userpic")=request.querystring("filename")
%>
<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">
<table width="468" height="294" 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="264" 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>
