saveaddbook.asp

图书销售系统,页面丰富,连接数据库,多个运行.

<!--#include file="connection.asp"-->
<!--#include file="Vchar.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.reload('login.asp')</script>"
response.End
end if

dim paihangkongzhi
set rs=server.CreateObject("adodb.recordset")
rs.open "select paihangkongzhi from shop_config",conn,1,1
paihangkongzhi=int(rs("paihangkongzhi"))
rs.close
set rs=nothing

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
bookdate=trim(request("bookdateyear"))&"年"&trim(request("bookdatemonth"))&"月"

dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
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("nclassid")=int(request("nclassid")) '小类
rs("bookname")=trim(request("bookname")) '书名
rs("bookzz")=trim(request("bookzz")) '作者
rs("bookchuban")=trim(request("bookchuban")) '出版社
rs("bookdate")=bookdate '出版日期
rs("bookdateorder")=cdate(bookdate&"1日") '出版日期排序
rs("shichangjia")=ccur(request("shichangjia"))  '市场价
if int(request("zhekou"))=1 then 
rs("huiyuanjia")=round(request("dazhe")/10*ccur(request("shichangjia")),2)
rs("tuantijia")=round(request("tuantidazhe")/10*ccur(request("shichangjia")),2)
rs("dazhe")=ccur(request("dazhe"))/10
rs("tuantidazhe")=ccur(request("tuantidazhe"))/10
else
rs("huiyuanjia")=ccur(request("huiyuanjia"))  '会员价
rs("tuantijia")=ccur(request("tuantijia"))		'团体价
rs("dazhe")=round(request("huiyuanjia")/request("shichangjia"),2) '打折
rs("tuantidazhe")=round(request("tuantijia")/request("shichangjia"),2)		'团体打折
end if
rs("kaiben")=trim(request("kaiben"))  '开本
rs("banci")=request("banci")  '版次
rs("yeshu")=trim(request("yeshu"))  '页数
rs("zhuang")=trim(request("zhuang")) '装帧
rs("isbn")=trim(request("isbn")) 'isbn
rs("guanjian")=trim(request("guanjian"))	'同类书籍关键字
rs("zhuantiId")=int(request("zhuantiId"))		'专题分类

rs("bestbook")=int(request("bestbook"))		'推荐

rs("chengjiaocount")=0  '成交计数
rs("liulancount")=0  '浏览计数
rs("bookpic")=trim(request("bookpic"))  '图片地址
rs("adddate")=now()  '加入日期
rs("pingji")=0  '评级人数
rs("pingjizong")=0 '总评级
rs("bookcontent")=trim(request("bookcontent"))  '简介
rs("bookmulu")=trim(request("bookmulu"))  '目录
rs("queshu")=0  '缺书
rs("yuexiaoshou")=0
if paihangkongzhi=1 then
rs("changxiao")=int(request("changxiao"))
rs("guanzhupaihang")=int(request("guanzhupaihang"))
rs("shouyetuijian")=int(request("shouyetuijian"))
end if
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('添加成功！');window.location.reload('addbook.asp')</script>"
response.End
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_books where bookid="&bookid,conn,1,3
if int(request("fenlei"))=1 then '是否修改分类
rs("anclassid")=int(request("anclassid")) '大类
rs("nclassid")=int(request("nclassid")) '小类
end if
rs("bookname")=trim(request("bookname")) '书名
rs("bookzz")=trim(request("bookzz")) '作者
rs("bookchuban")=trim(request("bookchuban")) '出版社
rs("bookdate")=bookdate '出版日期
rs("bookdateorder")=cdate(bookdate&"1日") '出版日期排序
rs("shichangjia")=ccur(request("shichangjia"))  '市场价
if int(request("zhekou"))=1 then 
rs("huiyuanjia")=round(request("dazhe")/10*ccur(request("shichangjia")),2)
rs("tuantijia")=round(request("tuantidazhe")/10*ccur(request("shichangjia")),2)
rs("dazhe")=ccur(request("dazhe"))/10
rs("tuantidazhe")=ccur(request("tuantidazhe"))/10
else
rs("huiyuanjia")=ccur(request("huiyuanjia"))  '会员价
rs("tuantijia")=ccur(request("tuantijia"))		'团体价
rs("dazhe")=request("huiyuanjia")/request("shichangjia") '打折
rs("tuantidazhe")=request("tuantijia")/request("shichangjia")		'团体打折
end if
rs("kaiben")=trim(request("kaiben"))  '开本
rs("banci")=request("banci")  '版次
rs("yeshu")=trim(request("yeshu"))  '页数
rs("zhuang")=trim(request("zhuang")) '装帧
rs("isbn")=trim(request("isbn")) 'isbn
rs("bestbook")=int(request("bestbook"))	'推荐
rs("bookpic")=trim(request("bookpic"))  '图片地址
rs("bookcontent")=trim(request("bookcontent"))  '简介
rs("bookmulu")=trim(request("bookmulu"))  '目录
rs("queshu")=int(request("queshu")) '缺书
rs("guanjian")=trim(request("guanjian"))	'同类书籍关键字
rs("zhuantiId")=int(request("zhuantiId"))		'专题分类
if paihangkongzhi=1 then
rs("changxiao")=int(request("changxiao"))
rs("guanzhupaihang")=int(request("guanzhupaihang"))
rs("shouyetuijian")=int(request("shouyetuijian"))
end if
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');window.location.reload('"&request("comeurl")&"')</script>"
response.End
end select
%>