admin_addbook1.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<!--#include file="conn.asp"-->
<!--#include file="chk.asp"-->
<%
dim rs
dim sql
bookname=trim(request("bookname"))
zuozhe=trim(request("zuozhe"))
kindid=trim(request("kindid"))
tuijian=trim(request("tuijian"))
adv=trim(request("adv"))
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=请输入的书籍简介")
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")=server.htmlencode(kindid)
rs("tuijian")=server.htmlencode(tuijian)
rs("adv")=server.htmlencode(adv)
rs.update
rs.close
set rs=nothing
response.redirect("admin_addbook_co.asp")
%>