admin_authoradd.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<table width="770" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td width="157" bgcolor="<%=Tabletitlecolor%>" valign="top"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="609" bgcolor="<%=Tablebodycolor%>" valign="top" align="center"> 
      <table width="98%" border="0" cellspacing="1" cellpadding="1">
        <form method="post" action="admin_authorsave.asp?action=add">
          <tr> 
            <td bgcolor="<%=Tabletitlecolor%>" align="center" colspan="6"> 添加作者资料</td>
          </tr>
          <tr> 
            <td width="15%" align="right">姓名：</td>
            <td width="10%"> 
              <input type="text" name="author" maxlength="10" size="10">
            </td>
            <td width="17%" align="right">姓名首字母</td>
            <td width="16%"> 
              <select size="1" name="Nkey">
                <option value="" selected>*</option>
<%
		for i=65 to 90
		response.write "<option value="&chr(i)&">"&chr(i)&"</option>"
		next
%>
              </select>
			</td>
            <td width="12%" align="right">籍贯：</td>
            <td width="30%"> 
              <select name="address">
                <option selected>请选择作者地区</option>
                <option value="大陆地区">大陆地区</option>
                <option value="港台地区">港台地区</option>
                <option value="日韩地区">其他地区</option>
              </select>
            </td>
          </tr>
          <tr> 
            <td valign="top" align="right" width="15%">出生日期：</td>
            <td colspan="3"> 
              <input type="text" name="year" maxlength="4" size="6">
              年 
              <select name="month">
<%
response.write "<option selected value=''>*</option>"
for i=1 to 12
	response.write "<option value="&i&">"&i&"</option>"
next
%>
              </select>
              月 
              <select name="date">
<%
response.write "<option selected value=''>*</option>"
for i=1 to 31
	response.write "<option value="&i&">"&i&"</option>"
next
%>
</select>
              日</td>
            <td align="right" width="12%">性别：</td>
            <td width="30%"> 
              <select name="sex">
                <option value="1" selected>男</option>
                <option value="0">女</option>
              </select>
            </td>
          </tr>
		  <tr> 
            <td valign="top" align="right" width="15%">相片：</td>
            <td colspan="5">
              <input type="text" name="images" maxlength="255" size="60">
            </td>
          </tr>
		  	<tr> 
            <td valign="top" align="right" width="15%">视频：</td>
            <td colspan="5">
              <input type="text" name="tv" maxlength="255" size="60">
            </td>
          </tr>
          <tr> 
            <td valign="top" align="right" width="15%">简介：</td>
            <td colspan="5"> 
              <textarea rows="8" name="content" cols="75"></textarea>
            </td>
          </tr>
          <tr align="center"> 
            <td colspan="6"> 
              <input type="submit" value=" 添 加 ">
              &nbsp; 
              <input type="reset" value=" 清 除 ">
            </td>
          </tr>
        </form>
      </table>
    </td>
    </tr>
</table>
<!--#include file="copyright.asp"-->
<%      
        set rs = nothing
        conn.Close
        set conn = nothing%></body></html>