📄 addbook.asp
字号:
<%response.buffer=true%>
<html>
<body bgcolor="black">
<script language=vbscript runat=server>
function k(intnum)
dim i,strout
for i=1 to intnum
strout=strout&"0"
next
k=strout
end function
</script>
<%
bookcount=trim(request.form("bookcount"))
bookkind=trim(request.form("bookkind"))
select case bookkind
case "军事类":
type1="m"
case "计算机类":
type1="c"
case "古代小说类":
type1="g"
case "语言文学类":
type1="y"
case "建筑类":
type1="j"
case "报刊杂志类":
type1="b"
case "国外文化类":
type1="h"
case "现代小说类":
type1="x"
case "经济类":
type1="j"
end select
bookname=trim(request.form("bookname"))
bookdate=trim(request.form("bookdate"))
editer=trim(request.form("editer"))
bookpublish=trim(request.form("bookpublish"))
cost=trim(request.form("cost"))
indate=date()
set cn=server.createobject("adodb.connection")
set rst=server.createobject("adodb.recordset")
rst.cursortype=1
rst.locktype=3
strconn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wsm.mdb")
rst.open "book",strconn,,,adcmdtable
rst.addnew
rst("bookid")=type1&k(5-len(rst.recordcount+1))&(rst.recordcount+1)
rst("bookkind")=bookkind
rst("bookname")=bookname
rst("bookdate")=cdate(bookdate)
rst("editer")=editer
rst("bookpublish")=bookpublish
rst("cost")=cost
rst("count")=bookcount
rst("havecount")=bookcount
rst("indate")=indate
if rst.supports(adupdate) then
rst.update
response.write"<p align=center><font size=5 color=red>该书已经成功的入库了</font></p>"
response.write"<p align=center><a href='管理员页面.htm'>返回管理员操作页面</a></p>"
else
response.write"<p align=center><font size=4 color=red>您无法将数据输入库</font></p>"
end if
rst.close
%>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -