<!--#include file="Top.asp" -->
<!--#include file="../Inc/UserRegClass.asp" -->
<%
GetErrInfo=" 【您可以修改您注册的资料!不过用户名和二级域名不能修改！】"

IF CblogObj.formrequest("action")="update" Then
	Re.IsCode
	Re.IsPassWord CBlogObj.FormRequest("PassWord"),CBlogObj.FormRequest("PassWord2")
	Re.IsBlogName CBlogObj.FormRequest("BlogName"),CBlogObj.FormRequest("BlogTitle")
	Re.IsEmail CBlogObj.FormRequest("mail")
	Re.IsBlogClass CBlogObj.FormRequest("BlogClass")
	Re.UpdateUserOk
End IF

Dim UserArr,Mp3Url
Set Rs=Conn.ExeCute("Select User_Pass,User_Sex,User_Mail,Blog_Name,Blog_Title,Blog_Info,User_Photo,Blog_Caty,Blog_Url,mp3 From Tb_User Where ID="&Session("UserID")&"")
IF Not RS.EOF THEN
	UserArr = Rs.GetRows()
	Rs.Close:Set Rs=Nothing
End IF
Mp3Url=UserArr(9,0)
IF CBlogObj.FormRequest("Mp3")<>"" Then
	Mp3Url=CBlogObj.FormRequest("Mp3")
End IF
%>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td height="30" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr> 
    <td height="30" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      修改用户资料 
      <hr size="0"></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" class="h1"> <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr> 
          <td class="box"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="2%" valign="middle"><img src="img/3.gif" width="16" height="16"></td>
                <td width="98%" valign="middle"><%=GetErrInfo%></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td> <div align="center"> 
              <form name="input" method="post" action="">
                <table width="600" border="0" cellpadding="5" cellspacing="0" class="box2">
                  <tr> 
                    <td width="181"> <div align="right">密码：</div></td>
                    <td width="397"><input name="password" type="password" class="Input" id="password" value="<%=UserArr(0,0)%>"> 
                      <%Re.Reg_Pass%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">重复密码：</div></td>
                    <td><input name="password2" type="password" class="Input" id="password2" value="<%=UserArr(0,0)%>"> 
                      <%Re.Reg_Pass2%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">性别：</div></td>
                    <td>男: 
                      <input type="radio" name="sex" value="男" <%IF UserArr(1,0)<>"女" Then Response.Write "checked=""checked"""%> />
                      女: 
                      <input type="radio" name="sex" value="女" <%IF UserArr(1,0)="女" Then Response.Write "checked=""checked"""%> /> 
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">所在城市：</div></td>
                    <td><input name="Caty" type="text" class="Input" id="Caty" value="<%=UserArr(7,0)%>" size="30" maxlength="50" /> 
                      <%Re.Reg_Pass%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">邮箱：</div></td>
                    <td><input name="mail" type="text" class="Input" value="<%=UserArr(2,0)%>" size="30" maxlength="50" /> 
                      <%Re.Reg_Mail%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">博客名称：</div></td>
                    <td><input name="blogname" type="text" class="Input" value="<%=UserArr(3,0)%>" size="30" maxlength="50" /> 
                      <%Re.Reg_BlogName%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">博客标题：</div></td>
                    <td><input name="blogtitle" type="text" class="Input" value="<%=UserArr(4,0)%>" size="30" maxlength="50" /> 
                      <%Re.Reg_BlogTitle%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">博客分类：</div></td>
                    <td><strong> 
                      <%CBlogObj.ClassCodeList SESSION("User_Class"),"TB_SYS_CLASS","ClassCodelist","Blog"%>
                      <%Re.Reg_BlogClass%>
                      </strong></td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">公告或欢迎词：</div></td>
                    <td><textarea name="bloginfo" cols="40" rows="8" class="Input" id="textarea6"><%=Replace(UserArr(5,0),"<br/>",Chr(13))%></textarea> 
                      <input name="photo" type="hidden" id="photo" value="<%=UserArr(6,0)%>"></td>
                  </tr>
                  <tr> 
                    <td><div align="right">博客音乐地址：</div></td>
                    <td><textarea name="mp3" cols="60" rows="4" id="mp3"><%=Mp3Url%></textarea> 
                    </td>
                  </tr>
                  <tr> 
                    <td><div align="right">上传我的音乐：</div></td>
                    <td><iframe border="0" frameBorder="0" frameSpacing="0" height="23" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="Mp3_UpFile.asp"></iframe></td>
                  </tr>
                  <tr> 
                    <td colspan="2"><div align="center">
                        <p>注：音乐地址仅为MP3及WMV格式,连续播放请用&quot;|&quot;隔开,如</p>
                        <p>/UserUpLoad/User0/25/sddd.mp3|/UserUpLoad/User0/25/332.mp3</p>
                      </div></td>
                  </tr>
                  <tr> 
                    <td width="181"><div align="right" id="pic">上传用户头像：</div></td>
                    <td><iframe border="0" frameBorder="0" frameSpacing="0" height="23" marginHeight="0" marginWidth="0" noResize scrolling="no" width="100%" vspale="0" src="User_UpFile.asp"></iframe></td>
                  </tr>
                  <tr> 
                    <td><div align="right">每页日志的显示条数：</div></td>
                    <td><input name="PageZ" type="text" class="Input" id="PageZ" value="10" size="10" maxlength="50" />
                      列表显示每页的条数为普通显示条数的5倍</td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right">验证码：</div></td>
                    <td><input name="CodeStr" type="text" value="" maxlength="24" class="Input" /> 
                      <%CBlogObj.Vcode%>
                      <%Re.Reg_Code%>
                      <%Set Re=Nothing%>
                    </td>
                  </tr>
                  <tr> 
                    <td width="181"> <div align="right"></div></td>
                    <td><input name="Submit" type="submit" class="Input" value="确定修改"> 
                      <input name="action" type="hidden" id="action" value="update"> 
                      <input name="url" type="hidden" id="url" value="<%=UserArr(8,0)%>"></td>
                  </tr>
                </table>
              </form>
            </div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2"></td>
  </tr>
</table>
<!--#include file="Foot.asp" -->
