<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/char.asp"-->
<!--#include file="inc/theme.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="inc/chkinput.asp"-->
<%
stats="修改资料"
dim sex
dim showre
dim password
dim quesion
dim answer
dim face,width,height
dim email
dim birthday
dim usercookies
if membername="" then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
else
	if request("action")="updat" then
		if IsValidEmail(request("Email"))=false then
   			errmsg=errmsg+"<br>"+"<li>您的Email有错误。"
   			founderr=true
		else
			Email=request("Email")
		end if

	else
		call nav()
		call headline(1)
		call userinfo()
	end if
end if

if founderr then
	call nav()
	call headline(1)
	call error()
else 
	if request("action")="updat" then
		if founderr then
			call nav()
			call headline(1)
			call error()
		else
			call update()
			call nav()
			call headline(1)
			if founderr then
			call error()
			else
			call success()
			end if
		end if
	end if
end if
call endline()

sub userinfo()
	set rs=server.createobject("adodb.recordset")
	sql="Select * from [User] where username='"&trim(membername)&"'"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		errmsg=errmsg+"<br>"+"<li>该用户名不存在。"
		founderr=true
	else
%>
<table border=0 cellpadding=6 cellspacing=1 width="<%=TableWidth%>" height=29 align=center bgcolor="<%=TableBackColor%>"><tr class=coolbg bgColor="<%=aTablebodyColor%>" align=center>
<td width=14%><B><a href=usermanager.asp ><FONT COLOR=#000000>控制面板首页</font></a></B></td>
<td width=14% ><a href=mymodify.asp?name=<%=membername%> ><B><FONT COLOR=#000000>基本资料修改</font></B></a></td>
<td width=14% ><a href=modifypsw.asp?name=<%=membername%>> <B><FONT COLOR=#000000> 用户密码修改</font></B></a></td>
<td width=14% bgColor="<%=TablebodyColor%>" > <a href=modifyadd.asp?name=<%=membername%>> <B><FONT COLOR=#000000>修改联系资料</font></B></a></td>
<td width=14% ><a href=favlist.asp><B><FONT COLOR=#000000>用户收藏管理</font></B></a></td>
<td width=14% ><a href=usersms1.asp><B><FONT COLOR=#000000>用户短信服务</font></B></a></td>
<td width=14% ><a href=friendlist1.asp><B><FONT COLOR=#000000>编辑好友列表</font></B></a></B>
</td></tr></table><br>
<form action="modifyadd.asp?action=updat&username=<%=htmlencode(membername)%>" method=POST name="theForm">
<table cellpadding=0 cellspacing=0 border=0 width=<%=tablewidth%> bgcolor=<%=Tablebackcolor%> align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr align="center"> 
      <td colspan="2" width="100%" bgcolor=<%=Tabletitlecolor%> height=25><font color="<%=TablefontColor%>"><b><%=htmlencode(RS("username"))%>修改资料</b></font></td>
    </tr>
      <tr bgcolor=<%=Tablebodycolor%>>    
        <td width="40%"><font color="<%=TableContentColor%>"><B>Email地址</B>：<BR>请输入有效的邮件地址，这将保证您在论坛中的私人资料。</font></td>   
        <td width="60%">    
          <input type="TEXT" name="Email"   size=30 maxlength=50 value="<%if trim(rs("useremail"))<>"" then%><%=htmlencode(rs("useremail"))%><%end if%>">   
        </td>   
      </tr>  
      <tr bgcolor=<%=Tablebodycolor%>>    
        <td width="40%"><font color="<%=TableContentColor%>"><B>主页地址</B>：<BR>如果您有主页，请输入主页地址。此项可选</font></td>   
        <td width="60%">    
          <input type="TEXT" name="URL"   value="<%if trim(rs("homepage"))<>"" then%>
    <%=htmlencode(rs("homepage"))%>
<%else%>未填
<%end if%>" size=30 maxlength=100>   
        </td>   
      </tr>   
      <tr bgcolor=<%=Tablebodycolor%>>    
        <td width="40%"><font color="<%=TableContentColor%>"><B>OICQ号码</B>：<BR>如果您有 OICQ，请输入号码。此项可选</font></td>   
        <td width="60%">    
          <input type="TEXT" name="OICQ"   value="<%if rs("oicq")<>"" then%>
<%=htmlencode(rs("oicq"))%> 
<%else%>未填
<%end if%>" size=30 maxlength=20>   
        </td>   
      </tr>
      <tr bgcolor=<%=Tablebodycolor%>>    
        <td width="40%"><font color="<%=TableContentColor%>"><B>ICQ号码</B>：<BR>如果您有 ICQ，请输入号码。此项可选</font></td>   
        <td width="60%">    
          <input type="TEXT" name="ICQ"   value="
<%if rs("icq")<>"" then%>
<%=htmlencode(rs("icq"))%> 
<%else%>未填
<%end if%>" size=30 maxlength=20>   
        </td>   
      </tr>
      <tr bgcolor=<%=Tablebodycolor%>>    
        <td width="40%"><font color="<%=TableContentColor%>"><B>MSN</B>：<BR>如果您有 MSN，请输入。此项可选</font></td>   
        <td width="60%">    
          <input type="TEXT" name="msn"   value="<%if rs("msn")<>"" then%>
<%=htmlencode(rs("msn"))%> 
<%else%>未填<%end if%>" size=30 maxlength=30>   
        </td>   
      </tr>
         <tr class=coolbg align="center"> 
      <td colspan="2" width="100%" bgcolor=<%=Tabletitlecolor%>>
            <input type=Submit value="更 新"   name="Submit"> &nbsp; <input type="reset"   name="Submit2" value="清 除">
      </td>
    </tr>  
    </table>   </td></tr></table> 
</form>   
</body>
</html> 
<%
	end if
	rs.close
	set rs=nothing
end sub

sub update()
	set rs=server.createobject("adodb.recordset")
	sql="Select * from [User] where userid="&userid
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		errmsg=errmsg+"<br>"+"<li>该用户名不存在。"
		founderr=true
	else
		rs("useremail")=email
		rs("homepage")=request("url")
		rs("oicq")=request("oicq")
		rs("icq")=request("icq")
		rs("msn")=request("msn")
       
		rs.Update
        rs.close
		set rs=nothing
        	        
	end if
end sub

sub success()
%>
<table cellpadding=0 cellspacing=0 border=0 width="<%=tablewidth%>" bgcolor=<%=Tablebackcolor%> align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr class=coolbg align="center"> 
      <td width="100%" bgcolor=<%=Tabletitlecolor%>><font color="<%=TablefontColor%>">成功：修改资料</font></td>
    </tr>
    <tr> 
      <td width="100%" bgcolor=<%=Tablebodycolor%>><font color="<%=TableContentColor%>"><b>恭喜您，您的资料修改成功</b></font><br>
      </td>
    </tr>
    <tr align="center"> 
      <td width="100%" bgcolor=<%=Tabletitlecolor%>>
<a href="javascript:history.go(-1)"> << 返回上一页</a>
      </td>
    </tr>  
    </table>   </td></tr></table>
<%
end sub
	set rs=nothing 
	stats="修改个人资料"
%>   
<!--#include file=footer.asp-->





