<% Sub Add_New() %>
  <table width="598" border="0" align="center" cellpadding="4" cellspacing="1"
        class="unnamed1">
  <form name="form" method="post" action="<%=indexfilename%>">
        <tr>
             <td height="25" colspan="3" align="center"><div align="center"><font size="3">
                 <strong>留 言</strong></font><font color="#000000"></font>
                   </div>
              <img src="<%=imdeximg%>line.gif" width="500" height="1">
              </td>
 </tr>
<tr>
    <td width="80" ><div align="right">姓名：</div></td>
    <td width="249"><input type="text" name="name" class="input1" size="20"
      maxLength="10">
              *10个字内</td>
    <script>
    function showimage(){
        document.images.showimages.src="<%=imdeximg%>"+
          document.form.sex.options[document.form.sex.selectedIndex].value+""+
          document.form.img.options[document.form.img.selectedIndex].value+".gif";}
     </script>
     <td width="241">选择头像：
        <select name="img" size="1" onChange="showimage()">
           <% if m>99 then m=99
              for i=1 to m
              g=""
              g=i
              if len(i)<2 then g="0"&i
      %>
        <option value='<%=g%>'><%=g%></option>
         </select>
          </td>
      </tr>
      <tr>
         <td align="right">性别：</td>
    <td>
       <select name="sex" size="1" onChange="showimage()">
           <option value="1">男</option>
           <option value="0">女</option>
        </select>
    </td>
   <td rowspan="5">&nbsp;</td>
     </tr>
     <tr>
        <td align="right">QQ;</td>
        <td><input name-"web" type="text" class="input1"
            value="http://"size="35" maxLength="50"></td>
     <tr>
     </tr>
        <td align="right">来自：</td>
        <td><input name="come" type="text" class="input1" if="come" size="35"></td>
     <tr>
      </tr>
        <td align="right">电子邮箱：</td>
        <td><input name="email" type="text" class="input1"
           value="@" size="35" maxLength="50">*</td>
     <tr>
     </tr>
         <td align="right" valign="top">
         </td>
     <tr>
     </tr>
         <td align="right" valign="top">留言内容：</td>
         <td colspan="2"><textarea name="words" cols="50" rows="8" class="input1"
         onkeydown=gbcoun(this.form.words,this.form.total,this.form.used,this.form.remain);

         onkeyup=gbcoun(this.form.words,this.form.total,this.form.used,this.form.remain);>
         </textarea>
          *</td>
   </tr>
   <tr>
          <td align="right" valign="top">  </td>
          <td colspan="2">最多字数：
         <INPUT disabled maxlehgth="4" name="toale" size="3" value=<%=txt%>>
      已用字数:<INPUT disables maxLength=4 name=used size=3 value=0>
      剩余字数:<INPUT disables maxLength=4 name=remain size=3 value=
         <%=txt%>></td>   
    </tr>
    <tr align="center">
    <td colspan="3"><input type="hidden" name="action_e" value="Add_New">
      <input type="submit" name="Submit" value="提交" class="input1">
      <input type="reset" name="Submit2" value="重写" class="input1"><br>
      <img src="<%=indeximg%>line.gif" width="500" height="1">
   </td>
  </tr>
 </form>
 </table>
 <br>
<% End Sub %>
 <% Sub Main_Menu() %>
 <table width="700" border="0" align="center" class="unnamed1">
    <tr>
     <td width="287"><a href="<%=indexfilename%>?action=View_Words">
    <img src="<%=indeximg%>back.gif" width="99" height="25" border="0">
       </a>
   <a href="<%=indexfilename%>?action=Add_New">
     <img src="<%=indeximg%>post.gif" width="99" height="25"
       border="0"></a>
    </td>
<td width="353"><div align="right">
<%If Session("Admin")="Login" Then %>
<a href="<%=indeximgfilename%>? action=Exit">退出管理</a>
<%Else%>
<a href="<%=indexfilename%>? action=Admin_Login">管理留言</a>
<%End If%>
<% If Session("Admin")="Login" Then %>
<a href="<%=indexfilename%>? action=Edit_web">基本设置</a>
<a href="<%=indexfilename%>? action=EditPWD">修改密码</a>
<% End If%>
</div></td>
</tr>
<% End Sub %>