admin_add.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 60 行

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->

<table width=680px cellspacing=0 cellpadding=0 align=center border="0">
  <tr> 
    <td align=center><br>
---------------------------------------------<br>
      <b> 输 入 文 章 内 容 </b><br>
      <form action=admin_add1.asp method=post>
        <table align=center width=90% height=100% border=0 cellspacing=0 cellpadding=5>
          <tr> 
            <td width=100px  valign="top">文章标题 : 
            <td> 
              <input style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name=biaoti size=40 maxlength=250>
           </tr> 
<tr> 
            <td width=100px  valign="top">作者 : 
            <td> 
              <input style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" name=zuozhe size=16 maxlength=50>
           </tr> 
         <tr> 
            <td width=100px valign="top">选择书籍名称 : 
            <td> 

 <select name="bookid">

<%
kindid=request("kindid")
sql="select * from book where kindid="&kindid&" order by bookid desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> 
          <option value="<%=rs("bookid")%>"><%=rs("bookname")%></option>
          <%
rs.movenext
wend
rs.Close()
%> 
        </select>
          <tr> <td colspan=2 align=center>
           <textarea name="zhengwen" cols="72" rows="16" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value=""></textarea> 
<br><br>编辑代码：
大标题 [dbt] [/d]
小标题 [xbt] [/x]
注释 [zs]  [/z]
居中 [jz]  [/j]
右对齐 [ydq] [/y]
缩进 [sj]  [/s]

          <tr> 
            <td colspan=2 align=center> 
              <input type=submit value="提　交"  name="submit">
        </table>
        <p> 
      </form>
</table>