📄 editbook.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">
<%
Dim id
id = Request("id")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From bookInfo Where id="&id
Rs.Open Sql,conn,3,3
%>
<tr>
<td align="center"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#006666" ID="Table3">
<tr align="center" bgcolor="#99AAA7">
<td height="30" colspan="2"><a href="JavaScript:history.go(-1);">返回</a></td>
</tr><form name="form1" method="post" action="EditBook.asp?action=SaveEdit&id=<%=Rs("id")%>" ID="Form1">
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">图书编号：</td>
<td bgcolor="#FFFFFF">
<input type="text" name="ISBN" size="70" value="<%=Rs("ISBN")%>" 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" value="<%=Rs("title")%>" 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" value="<%=Rs("author")%>" 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" value="<%=Rs("ptime")%>" 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" value="<%=Rs("porder")%>" 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" value="<%=Rs("price")%>" 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" value="<%=Rs("format")%>" 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" value="<%=Rs("psize")%>" 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" value="<%=Rs("pages")%>" 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" value="<%=Rs("words")%>" 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" value="<%=Rs("cd")%>" 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" value="<%=Rs("total")%>" 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" value="<%=Rs("remain")%>" 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" value="<%=Rs("bookwhere")%>" ID="Text1"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">添加时间：</td>
<td bgcolor="#FFFFFF"> <%=Rs("addtime")%> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">录入人：</td>
<td bgcolor="#FFFFFF"> <%=Rs("manager")%> </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
%>
<option value="<%=Rs1("pid")%>" <% If Rs1("pid")=Rs("pid") Then Response.Write "Selected" End If %> ><%=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="<%=Rs("images")%>" ID="File1"></td>
</tr>
<% If Rs("images")<>"" Then %>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF">原始图片：</td>
<td align="center" bgcolor="#FFFFFF"><img src="<%=Rs("images")%>"></td>
</tr>
<% End If %>
<tr bgcolor="#FFFFFF">
<td height="30" align="center" bgcolor="#FFFFFF">主要内容：</td>
<td bgcolor="#FFFFFF">
<textarea name="content" cols="80" rows="20" id="Textarea1"><%=Rs("content")%></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")="SaveEdit" Then
Call SaveEdit()
End If
%>
<% Sub SaveEdit()
Dim ISBN
Dim title
Dim author
Dim ptime
Dim porder
Dim price
Dim format
Dim psize
Dim pages
Dim words
Dim cd
Dim remain
Dim bookwhere
Dim pid
Dim images
Dim content
Dim total
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")
psize = Request.Form("psize")
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")
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 Where id="&id
Rs.Open Sql,conn,3,3
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("addtime") = now()
Rs.UpDate
id=Rs("id")
Rs.Close
Set Rs=nothing
Response.Redirect "AdminBook.asp"
End If
End Sub
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -