saveaddbook.asp

使用说明： 请将ASPBook文件夹直接复制到硬盘上

<!--#include file="conn.inc"-->
<%
if request("bookname")="" or request("bookzz")="" or request("price")=""  then
response.Write "对不起，添加失败，请填写作者,书名和价格！"
response.End
end if
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function
dim bookdate,dazhe,date
if request("bookdateyear")<>"" then
bookdate=trim(request("bookdateyear"))&"-"&trim(request("bookdatemonth"))&"-"&trim(request("bookdateday"))
else
bookdate=""
end if
dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
shjianame=request.Cookies("songxf")("shjianame")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_books",conn,1,3
rs.AddNew
rs("anclassid")=int(request("anclassid")) '大类
rs("xilieid")=int(request("nclassid")) '小类
rs("bookname")=trim(request("bookname")) '图书名
rs("bookzz")=trim(request("bookzz"))
rs("press")=trim(request("press")) '
rs("bookdate")=bookdate '出版日期
rs("isbn")=trim(request("isbn")) '图书规格
rs("price")=trim(request("price"))  '市场价
rs("pic")=trim(request("pic"))  '小图片地址
rs("pic1")=trim(request("pic1"))  '大图片地址
rs("banci")=request("banci")  '版次
rs("kucun")=trim(request("kucun")) 
rs("pinxuan")=trim(request("select"))
rs("pagecount")=trim(request("yeshu2"))  '页数
rs("wordcount")=trim(request("zishu"))  '页数
rs("bookcontent")=request("bookcontent")
if trim(request("huiyuanjia"))="" then
else
rs("huiyuanjia")=trim(request("huiyuanjia"))
end if
rs("adddate")=now() 
if request("bestbook")=1 then  '推荐
rs("bestbook")=1
else
rs("bestbook")=0
end if
if request("newsbook")=1 then  '新品
rs("newsbook")=1
else
rs("newsbook")=0
end if
if request("tejiabook")=1 then  '特价
rs("tejiabook")=1
else
rs("tejiabook")=0
end if
rs.Update
rs.Close
set rs=nothing
response.write "<script language=javascript>alert('添加成功!');</script>"
response.redirect("managebook.asp")
response.End
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_books where bookid="&bookid,conn,1,3
rs("anclassid")=int(request("anclassid")) '大类
rs("xilieid")=int(request("nclassid")) '小类
rs("bookname")=trim(request("bookname")) '图书名
rs("bookzz")=trim(request("bookzz"))
rs("press")=trim(request("press")) '
if bookdate<>"1996-1-1" then
rs("bookdate")=bookdate '出版日期
end if
rs("isbn")=trim(request("isbn")) '图书规格
rs("price")=trim(request("price"))  '市场价
rs("huiyuanjia")=trim(request("huiyuanjia"))  '市场价
rs("banci")=request("banci")  '版次
rs("kucun")=trim(request("kucun"))  
rs("pagecount")=trim(request("yeshu2"))  '页数
rs("wordcount")=trim(request("zishu"))  '页数
rs("bookcontent")=request("bookcontent") 
if trim(request("pic"))<>"" then
rs("pic")=trim(request("pic"))  '小图片地址
end if
if trim(request("pic1"))<>"" then
rs("pic1")=trim(request("pic1"))  '大图片地址
end if
if request("bestbook")=1 then  '推荐
rs("bestbook")=1
else
rs("bestbook")=0
end if
if request("newsbook")=1 then  '新品
rs("newsbook")=1
else
rs("newsbook")=0
end if
if request("tejiabook")=1 then  '特价
rs("tejiabook")=1
else
rs("tejiabook")=0
end if
rs.Update
rs.Close
set rs=nothing
response.write "<script language=javascript>alert('修改成功!');</script>"
response.redirect("managebook.asp")
response.End
end select
%>