<!--#include file="Head.asp"-->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then 
  response.redirect "MemberCenter.asp"
  response.end
end if
dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion,NameID
dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP
call MemInfo() 
%>
<div align="center">
  <table width="950" border="0" cellspacing="0" cellpadding="0" class="Outside">
        <tr>
      <td width="240" height="500" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="200" height="25"><table width="215" border="0" align="center" cellpadding="1" cellspacing="0">
            <tr>
              <td width="215" height="38" background="../Images/VoteMenu.jpg"><div style="margin-left:90px;"><b><font color="#FFFFFF">会员中心</font></b></div></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td align="center"></td>
        </tr>
        <tr>
          <td align="center">
		  <%if vex=1 then%>
            <% =WebMenu() %>
            <%else%>
            <% =WebMenv() %>
            <% end if %></td>
        </tr>
        <tr>
          <td height="30">&nbsp;</td>
        </tr>
      </table>
        <!--#include file="tabmenu.asp"-->
		</td>
      <td width="1" bgcolor="#C5D7DB"></td>
      <td valign="top" class="AllCenter"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="25" align="center" bgcolor="#F4F4F4"><img src="../Images/Arrow_01.gif" width="14" height="11"></td>
          <td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='MemberCenter.asp'>会员中心</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">我的资料</td>
          </tr>
        <tr>
          <td height="4" colspan="2" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>
			<table width="604" border="0" cellspacing="0" cellpadding="1">
			<form name="formInfo" method="post" action="MemberSaveInfo.asp?ID=<%=MemID%>">
			  <tr>
                <td align="right">登录名：</td>
			    <td style="font-family:Arial;color:red;font-weight:bold"><% =mMemName %></td>
			  </tr>
              <tr>
                <td width="200" align="right">所属组别：</td>
                <td width="400"><font color="#ff6600"><% =mGroupIdName %></font></td>
              </tr>
              <tr>
                <td align="right">真实姓名：</td>
                <td><input name="RealName" type="text" class="TextBox" id="RealName" value="<%=mRealName%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">身份证号码：</td>
                <td><input name="NameID" type="text" class="TextBox" id="NameID" value="<%=NameID%>" size="24" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">性别：</td>
                <td><input name="Sex" type="radio" value="先生" <%if mSex="先生" then response.write ("checked")%>>先生
                    <input type="radio" name="Sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</td>
              </tr>
              <tr>
                <td align="right">设置密码：</td>
                <td><input name="Password" type="password" class="TextBox" id="Password" size="20" maxlength="16">&nbsp;空表示不修改</td>
              </tr>
              <tr>
                <td align="right">确定密码：</td>
                <td><input name="vPassword" type="password" class="TextBox" id="vPassword" size="20" maxlength="16">&nbsp;</td>
              </tr>
              <tr>
                <td align="right">密码提示问题：</td>
                <td><% =mQusetion %></td>
              </tr>
              <tr>
                <td align="right">密码提示答案：</td>
                <td>********</td>
              </tr>
              <tr>
                <td align="right">单位名称：</td>
                <td><input name="Company" type="text" class="TextBox" id="Company" value="<% =mCompany %>" size="40" maxlength="100"></td>
              </tr>
              <tr>
                <td align="right">地址：</td>
                <td><input name="Address" type="text" class="TextBox" id="Address" value="<% =mAddress %>" size="40" maxlength="100"></td>
              </tr>
              <tr>
                <td align="right">邮编：</td>
                <td><input name="ZipCode" type="text" class="TextBox" id="ZipCode" value="<% =mZipCode %>" size="20" maxlength="20"></td>
              </tr>
              <tr>
                <td align="right">电话：</td>
                <td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<% =mTelephone %>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">传真：</td>
                <td><input name="Fax" type="text" class="TextBox" id="Fax" value="<% =mFax %>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">移动电话：</td>
                <td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<% =mMobile %>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">电子邮箱：</td>
                <td><input name="Email" type="text" class="TextBox" id="Email" value="<% =mEmail %>" size="30" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">网址：</td>
                <td><input name="HomePage" type="text" class="TextBox" id="HomePage" value="<% =mHomePage %>" size="30" maxlength="50"></td>
              </tr>
              <tr>
                <td align="right">验证码：</td>
                <td valign="bottom"><input name="VerifyCode" type="text" class="TextBox" size="4" maxlength="4">
                    <img src="../Include/VerifyCode.asp" align="absmiddle"> </td>
              </tr>
              <tr>
                <td align="right">注册时间：</td>
                <td ><% =mAddTime %></td>
              </tr>
              <tr>
                <td align="right">登录次数：</td>
                <td ><% =mLoginTimes %></td>
              </tr>
              <tr>
                <td align="right">最后登录时间：</td>
                <td ><% =mLastLoginTime %></td>
              </tr>
              <tr>
                <td align="right">最后登录IP：</td>
                <td ><% =mLastLoginIP %></td>
              </tr>
              <tr>
                <td height="30" align="right">&nbsp;</td>
                <td valign="bottom">
				<input name="Submit" type="submit" class="button" value=" 保存 ">
				&nbsp;
				<input name="Reset" type="reset" class="button" value=" 重置 ">				</td>
              </tr>
			</form>
            </table>			</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%

sub MemInfo()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from ameav_Members where MemName='"&session("MemName")&"'"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无相关信息"
  else
    MemID=rs("ID")
	mMemName=rs("MemName")
	mGroupIdName=GroupName(rs("GroupID"))
	mRealName=rs("RealName")
	NameID=rs("NameID")
	mSex=rs("Sex")
	mQusetion=rs("Question")
	mCompany=rs("Company")
	mAddress=rs("Address")
	mZipCode=rs("ZipCode")
	mTelephone=rs("Telephone")
	mFax=rs("Fax")
	mMobile=rs("Mobile")
	mEmail=rs("Email")
	mHomePage=rs("HomePage")
	mAddTime=rs("AddTime")
	mLoginTimes=rs("LoginTimes")
	mLastLoginTime=rs("LastLoginTime")
	mLastLoginIP=rs("LastLoginIP")
  end if
  rs.close
  set rs=nothing
end sub

function GroupName(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from ameav_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  GroupName=rs("GroupName")
  rs.close
  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->