booktypesave.asp

功能简单的图书管理系统基本实现了图书管理借阅览等功能模块完成相关组件的实现

<!--#include file="conn.asp"-->
<%
booktype=trim(request.form("booktype"))
booktypeid=trim(request.form("booktypeid"))
set rs=server.createobject("adodb.recordset")
if booktypeid="" then sql="select * from booktype where booktype='"&booktype&"'"
if booktypeid<>"" then sql="select * from booktype where booktypeid="&booktypeid
rs.open sql,db,1,3 
if not rs.eof or not rs.bof then
if booktypeid="" then response.write "<script language=javascript>alert('对不起已经有这个分类');history.back(-1)</script>"
if booktypeid<>"" then 
rs("booktype")=booktype
rs.update
rs.close
set rs=nothing
response.redirect "2fly_book_class.asp"
end if
else
rs.addnew
rs("booktype")=booktype
rs.update
rs.close
set rs=nothing
response.redirect "2fly_book_class.asp"
end if
%>