<!--#include file="Head.asp"-->
<%
dim MesName,Content,SecretFlag,mMemID,mLinkman,mSex,mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail
if session("MemName")<>"" and session("MemLogin")="Succeed" then 
  call MemInfo()
else
  mSex="先生"
  mMemID=0
  SecretFlag="<font color='#FF6600'>会员功能</font>"
end if
%><div align="center">
  <table width="950" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="3"  ></td>
      <td width="240" height="500" valign="top"  bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><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" ><% =WebMenu() %>          </td>
        </tr>
        <tr>
          <td height="30" >&nbsp;</td>
        </tr>
      </table>
        <!--#include file="tabmenu.asp"-->
		</td>
      <td width="1" bgcolor="#000000"></td>
      <td valign="top" class="AllCenter"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="25" align="center" ></td>
          <td  class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='MessageList.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 align="center"><br>
			<table width="540" border="0" cellspacing="0" cellpadding="0">
			<form name="formWrite" method="post" action="MessageSave.asp?MemberID=<%=mMemID%>">
              <tr>
                <td width="80">主　　题：</td>
                <td width="460"><input name="MesName" type="text" class="TextBox" id="MesName" size="40" maxlength="100">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td>留言内容：</td>
                <td><textarea name="Content" cols="72" rows="8" class="TextBox"></textarea>&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td>留&nbsp;言&nbsp;人：</td>
                <td><input name="Linkman" type="text" class="TextBox" id="Linkman" value="<%=mLinkman%>" size="20" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td>性　　别：</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>单位名称：</td>
                <td><input name="Company" type="text" class="TextBox" value="<%=mCompany%>" size="40" maxlength="100"></td>
              </tr>
              <tr>
                <td>地　　址：</td>
                <td><input name="Address" type="text" class="TextBox" value="<%=mAddress%>" size="40" maxlength="100"></td>
              </tr>
              <tr>
                <td>邮　　编：</td>
                <td><input name="ZipCode" type="text" class="TextBox" value="<%=mZipCode%>" size="20" maxlength="20">                  &nbsp;</td>
              </tr>
              <tr>
                <td>电　　话：</td>
                <td><input name="Telephone" type="text" class="TextBox" id="Telephone" value="<%=mTelephone%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td>传　　真：</td>
                <td><input name="Fax" type="text" class="TextBox" id="Fax" value="<%=mFax%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td>移动电话：</td>
                <td><input name="Mobile" type="text" class="TextBox" id="Mobile" value="<%=mMobile%>" size="20" maxlength="50"></td>
              </tr>
              <tr>
                <td>电子邮箱：</td>
                <td><input name="Email" type="text" class="TextBox" id="Email" value="<%=mEmail%>" size="30" maxlength="50">&nbsp;<font color="#CC0000">*</font></td>
              </tr>
              <tr>
                <td height="40">&nbsp;</td>
                <td>
				<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>
<%
function WebMenu()
  response.write"<table width='160' border='0' cellspacing='0' cellpadding='0'>"
  response.write "<tr class='WebMenu'><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MessageList.asp'>查看留言</a></td></tr>"
  response.write "<tr class='WebMenu'><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>" &_
                 "<td><a href='MessageWrite.asp'>签写留言</a></td></tr>"
  response.write"</table>"
end function

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
    mMemID=rs("ID")
	if not rs("RealName")="" then
	  mLinkman=rs("RealName")
	else 
	  mLinkman=rs("MemName")
	end if
	mSex=rs("Sex")
	mCompany=rs("Company")
	mAddress=rs("Address")
	mZipCode=rs("ZipCode")
	mTelephone=rs("Telephone")
	mFax=rs("Fax")
	mMobile=rs("Mobile")
	mEmail=rs("Email")
	SecretFlag="<input type='checkbox' name='SecretFlag' value='1' style='height:14px;width:14px;'>"
  end if
  rs.close
  set rs=nothing
end sub
%>
<!--#include file="Foot.asp"-->