admin_authoredit.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmins%>
<!--#include file="top.asp"-->
<%
if request("id")="" then 
	founderr=true
	errmsg="<li>请选择用户！</li>"
	call error()
	response.end
end if
sql="select * from author where authorid="&request("id")
rs.open sql,conn,1,1
if rs.eof then 
	founderr=true
	errmsg="<li>没有此用户！</li>"
	call error()
else
	
%>
<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=edit&id=<%=rs("authorid")%>">
          <tr> 
            <td bgcolor="<%=Tabletitlecolor%>" align="center" colspan="6"> 添加作者资料</td>
          </tr>
          <tr> 
            <td width="10%" align="right">姓名：</td>
            <td width="20%"> 
              <input type="text" name="author" maxlength="10" size="10" value="<%=rs("author")%>">
            </td>
            <td width="10%" align="right">姓名首字母</td>
            <td width="20%">
              <select size="1" name="Nkey">
<%
		for i=65 to 90
		response.write "<option value="&chr(i)
		if rs("Nkey")=chr(i) then response.write " selected"
		response.write ">"&chr(i)&"</option>"
		next
%>
              </select>
			</td>
            <td width="10%" align="right">籍贯：</td>
            <td width="20%"> 
              <input type="text" name="address" maxlength="10" size="10" value="<%=rs("address")%>">
            </td>
          </tr>
          <tr> 
            <td valign="top" align="right">出生日期：</td>
            <td colspan="3"><input type="text" name="birthday" maxlenth="20" size="20" value="<%=rs("birthday")%>"> //请注意用XXXX年X月X日形式</td>
            <td align="right">性别：</td>
            <td>
              <select name="sex">
                <option<%if rs("Sex")="1" then response.write " selected"%> value="1">男</option>
                <option<%if rs("sex")="0" then response.write " selected"%> value="0">女</option>
              </select>
            </td>
          </tr>
		  <tr> 
            <td valign="top" align="right">相片：</td>
            <td colspan="5">
              <input type="text" name="images" maxlength="255" size="60" value="<%=rs("images")%>">
            </td>
          </tr>
		  <tr> 
            <td valign="top" align="right">视频：</td>
            <td colspan="5">
              <input type="text" name="tv" maxlength="255" size="60" value="<%=rs("tv")%>">
            </td>
          </tr>
          <tr> 
            <td valign="top" align="right">简介：</td>
            <td colspan="5"> 
              <textarea rows="8" name="content" cols="75"><%=rs("content")%></textarea>
            </td>
          </tr>
          <tr align="center"> 
            <td colspan="6"> 
              <input type="submit" value=" 修 改 ">
              &nbsp; <input type="hidden" value="<%=rs("author")%>" name="oldauthor">
              <input type="reset" value=" 清 除 ">
            </td>
          </tr>
        </form>
      </table>
    </td>
    </tr>
</table>
<%end if%>
<!--#include file="copyright.asp"-->
<%      rs.close
        set rs = nothing
        conn.Close
        set conn = nothing%>
</body>
</html>