admin_addbook.asp

是运行在asp环境下寻梦书库管理系统

<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%
action=request("action")
if action<>"save" then
%>
<table width=600px cellspacing=0 cellpadding=0 align=center border="0">
  <tr> 
    <td align=center><br><br>
      <b>输入书籍</b><br>
      <form action=admin_addbook.asp?action=save 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=bookname size=40 maxlength=50>
           </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="kindid">
          <option value="" selected>请选择分类</option>
          <%
sql="select * from kind"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof
%> 
          <option value="<%=rs("kindid")%>"><%=rs("kindname")%></option>
          <%
rs.movenext
wend
rs.Close()
%> 
        </select>

           </tr> 
       <tr> 
            <td width=100px valign="top">推荐度：</td><td>
 <select name=tuijian size=1>
<option value=1>★☆☆☆☆</option>
<option value=2>★★☆☆☆</option>
<option value=3>★★★☆☆</option>
<option value=4>★★★★☆</option>
<option value=5>★★★★★</option>
</select>
</td></tr>
       <tr> 
            <td width=100px valign="top">选项：</td><td>
 <select name=Btype size=1>
<option value=0>转载</option>
<option value=1>首发</option>
<option value=2>原创</option>
</select></td></tr>
                   <tr> 
            <td width=100px valign="top">简介 : 
            <td> 
           <textarea name="adv" cols="48" rows="5" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value=""></textarea>
                     <tr>
            <td colspan=2 align=center>&nbsp; 
          <tr> 
            <td colspan=2 align=center> 
              <input type=submit value="提　交" name="submit">
        </table>
        <p> 
      </form>
</table>
<%else

dim rs
dim sql
bookname=request("bookname")
zuozhe=request("zuozhe")
kindid=request("kindid")
tuijian=request("tuijian")
adv=request("adv")
Btype=request("Btype")
shenhe=1
if len(bookname)=0 then response.redirect("error.asp?word=请输入书名")
if len(zuozhe)=0 then response.redirect("error.asp?word=请输入作者")
if len(adv)=0 then response.redirect("error.asp?word=请输入的书籍简介")
if kindid<0 then response.redirect("error.asp?word=错误的分类！")

set rs=server.createobject("adodb.recordset")
sql="select * from book"
rs.open sql,conn,3,3
rs.addnew
rs("bookname")=server.htmlencode(bookname)
rs("zuozhe")=server.htmlencode(zuozhe)
rs("kindid")=kindid
rs("tuijian")=tuijian
rs("shenhe")=shenhe
rs("Btype")=Btype
rs("addtim")=now()
rs("adv")=server.htmlencode(adv)
rs.update
rs.close
set rs=nothing
%>
<br><br><br>
　　已经成功添加了书籍!<br>
<%end if%>