📄 addbook.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临本图书馆</title>
<Link href="Css.css" rel=stylesheet>
</head>
<!--#include file="Conn.asp"-->
<!--#include file="Function.asp"-->
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><img src="Images/title.jpg" width="283" height="51"></td>
</tr>
<% If Session("admin")<>"" Then %>
<tr>
<td height="25" ><table width="780" border="0" bgcolor="#EFEFEF" align="center" cellpadding="0" cellspacing="0" style="border-color:#000000;border-top-style: solid;border-top-width: 1">
<tr>
<td height="25" bgcolor="#EFEFEF"> <a href="Default.asp">首页 </a>|<a href="AdminBorrow.asp"> 借书管理 </a>|<a href="AdminPublish.asp"> 出版社管理 </a>|<a href="AdminBook.asp"> 图书管理 </a>|<a href="AdminUser.asp"> 用户管理 </a>|<a href="ModifyAdmin.asp"> 修改密码 </a>|<a href="Logout.asp"> 退出 </a>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="192" valign="top"><table width="100%" height="138" border="0" cellpadding="0" cellspacing="0" ID="Table1">
<tr>
<td height="138" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" ID="Table2">
<tr>
<td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#006666" ID="Table3">
<tr align="center">
<td height="25" colspan="2" background="Images/bg.gif"><b>添加图书，添加成功可继续添加！</b></td>
</tr><form name="form1" method="post" action="AddBook.asp?action=SaveAdd" ID="Form1">
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">图书编号：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="ISBN" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">图书名称：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="title" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">作者：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="author" size="70" ID="Text1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">出版日期：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="ptime" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">版次：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="porder" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">定价：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="price" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">封装：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="format" size="70" ID="Text1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">开本：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="psize" size="70" ID="Text1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">页数：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="pages" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">字数：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="words" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">附光盘：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="cd" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">总本数：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="total" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">库存：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="remain" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">存放位置：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="bookwhere" size="70" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">出版社：</td>
<td bgcolor="#FFFFFF"> <select name="pid" ID="Select1">
<%
Set Rs1 = Server.CreateObject("ADODB.RecordSet")
Sql1="Select * From publisherInfo"
Rs1.Open Sql1,conn,3,3
Do While not Rs1.EOF
Response.Write "<option value=" & Rs1("pid") & ">" & Rs1("ptitle") & "</option>"
Rs1.MoveNext
Loop
Rs1.Close
Set Rs1=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">上传图片：</td>
<td bgcolor="#FFFFFF"> <input type="file" size="60" name="imagespath" value="" ID="File1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">主要内容：</td>
<td bgcolor="#FFFFFF">
<textarea name="content" cols="80" rows="20" id="Textarea1"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="19%" height="30" align="center" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF" align="center"><input type="submit" name="Submit" value="确定" ID="Submit1">
<input type="reset" name="Reset" value="清除" ID="Submit2"></td>
</tr></form>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<% Else %>
<tr align="center">
<td height="50" align="center"><font color="ff0000">对不起，请不要非法登录！</font></td>
</tr>
<% End If %>
</table></td>
</tr>
<% If Request("action")="SaveAdd" Then
Call SaveAdd()
End If
%>
<% Sub SaveAdd()
Dim ISBN
Dim title
Dim author
Dim ptime
Dim porder
Dim price
Dim format
Dim pages
Dim words
Dim cd
Dim remain
Dim bookwhere
Dim pid
Dim images
Dim content
Dim total
Dim psize
ISBN = Request.Form("ISBN")
title = Request.Form("title")
author = Request.Form("author")
ptime = Request.Form("ptime")
porder = Request.Form("porder")
price = Request.Form("price")
format = Request.Form("format")
pages = Request.Form("pages")
words = Request.Form("words")
cd = Request.Form("cd")
total = Request.Form("total")
remain = Request.Form("remain")
bookwhere = Request.Form("bookwhere")
pid = Request.Form("pid")
content = Request.Form("content")
psize = Request.Form("psize")
images = Request.Form("imagespath")
If images<>"" Then
upImages(images)
End If
If ISBN = "" Or title = "" Then
Response.Write "<Script>alert('请输入书号或书名！')</Script>"
ElseIf author = "" Or ptime = "" Then
Response.Write "<Script>alert('请输入作者或出版时间！')</Script>"
ElseIf porder = "" Or price = "" Then
Response.Write "<Script>alert('请输入版次或定价！')</Script>"
ElseIf format = "" Or pages = "" Then
Response.Write "<Script>alert('请输入封装或页数！')</Script>"
ElseIf words = "" Or cd = "" Then
Response.Write "<Script>alert('请输入字数或光盘数！')</Script>"
ElseIf total = "" Or remain= "" Then
Response.Write "<Script>alert('请输入总份数或库存数！')</Script>"
ElseIf bookwhere = "" Or content= "" Then
Response.Write "<Script>alert('请输入存放位置或主要内容！')</Script>"
ElseIf psize = "" Then
Response.Write "<Script>alert('请输入开本！')</Script>"
Else
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From bookInfo"
Rs.Open Sql,conn,3,3
Rs.AddNew
Rs("ISBN") = ISBN
Rs("title") = title
Rs("author") = author
Rs("ptime") = ptime
Rs("porder") = porder
Rs("price") = price
Rs("format") = format
Rs("psize") = psize
Rs("pages") = pages
Rs("words") = words
Rs("cd") = cd
Rs("total") = total
Rs("remain") = remain
Rs("bookwhere") = bookwhere
Rs("pid") = pid
Rs("images") = GetFileName(images)
Rs("content") = content
Rs("manager") = Session("admin")
Rs("addtime") = now()
Rs.UpDate
Rs.Close
Set Rs=nothing
Conn.close
Set Conn=nothing
Response.Redirect "AddBook.asp"
End If
End Sub
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -