?? book.asp
字號:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<!--對用戶的身份進行判斷，沒有通過登錄則返回登錄頁面-->
<%if not session("user_session_id")=Session.SessionID then%>
<SCRIPT LANGUAGE=javascript>
parent.window.location.href="../default.asp"
</SCRIPT>
<%end if%>
<%'沒有提交數(shù)據(jù)顯示頁面信息
if Request.Form("hid")="" then
booktype=Request.QueryString("if")
%>
<HEAD>
<TITLE>圖書館管理系統(tǒng)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="../css/scss.css" type=text/css rel=stylesheet>
<style TYPE="text/css">
<!--
.in
{
BORDER-RIGHT: rgb(127,127,127) 1px solid;
BORDER-TOP: rgb(127,127,127) 1px solid;
FONT-SIZE: 9pt;
BORDER-LEFT: rgb(127,127,127) 1px solid;
BORDER-BOTTOM: rgb(127,127,127) 1px solid;
BACKGROUND-COLOR: #ffffff
}
//-->
</STYLE>
<SCRIPT LANGUAGE=javascript>
<!--
function cli()
{
if(document.form1.book_id.value=="")
{
alert("請?zhí)顚憰幪枺?quot;)
document.form1.book_id.focus()
return false;
}
if(document.form1.book_name.value=="")
{
alert("請?zhí)顚憰Q！")
document.form1.book_name.focus()
return false;
}
if(document.form1.stand.value=="")
{
alert("請?zhí)顚憰诘募芴枺?quot;)
document.form1.stand.focus()
return false;
}
if(document.form1.floor.value=="")
{
alert("請?zhí)顚憰诘膶犹枺?quot;)
document.form1.floor.focus()
return false;
}
if(document.form1.book_author.value=="")
{
alert("請?zhí)顚憰髡呙Q！")
document.form1.book_author.focus()
return false;
}
if(document.form1.book_concern.value=="")
{
alert("請?zhí)顚憰霭嫔缑Q！")
document.form1.book_concern.focus()
return false;
}
document.form1.submit()
}
function checknum(objname)
{
if (isNaN(eval("document.form1."+objname+".value"))==true)
{
alert("請輸入正確的數(shù)字，不能輸入字母或其他符號")
eval("document.form1."+objname).value=""
eval("document.form1."+objname+".focus()")
return false;
}
}
//-->
</SCRIPT>
</HEAD>
<!--顯示頁面信息-->
<BODY text=#000000 bgColor=#f7f7f7 leftMargin=0 topMargin=0
onload="document.form1.book_id.focus();">
<!--#include file=../inc/top.asp-->
<DIV ID="commentsboard" CLASS="popcomments"> </DIV>
<center><h4>圖書管理系統(tǒng)</h4>
(書籍信息<%if booktype="add" then Response.Write "錄入"%>)</center>
<form name=form1 action=book.asp method=post >
<table cellspacing=0 cellpadding=0 width=100% border=0>
<tr align=center>
<td valign=center bgcolor=#f7f7f7 height=30>
書籍編號
<input name=book_id class=in size=16 maxlength=10 >
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
書籍名稱
<input class=in name=book_name maxlength=40 size=16>
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
位置架號
<input class=in name=stand maxlength=20 size=16
onblur=checknum('stand')>
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
位置層號
<input class=in maxlength=20 size=16 name=floor
onblur=checknum('floor')>
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
圖書作者
<input class=in maxlength=20 size=16 name=book_author >
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
出版社名
<input class=in maxlength=20 size=16 name=book_concern >
</td>
</tr>
<tr align=center>
<td height=30 valign=center bgcolor=#f7f7f7>
圖書類別
<select name=book_team style="width=110">
<% '獲取書籍類別信息
sql="select * from library_team order by team_id desc"
set rs=session("cn").execute(sql)
do while not rs.eof
Response.Write "<option value="&rs("team_id")
Response.Write ">"&rs("book_team")&"</option>"
rs.movenext
loop
rs.close()
set rs=nothing
%>
</select>
</td>
</tr>
<tr>
<td height=30 align=middle valign=center
bgcolor=#f7f7f7 colspan=2>
<input type=hidden name=hid value="ok">
<input type=button name=butt value=" 提交 "
class=in onclick="javascript:cli()">
<input type=reset name=re value=" 取消 " class=in>
</td>
</tr>
</table>
<center><%=Request.QueryString("comm")%></center>
</form>
</BODY>
</HTML>
<%
else
'接收書籍信息
book_id=Request.Form("book_id")
book_name=Request.Form("book_name")
stand=Request.Form("stand")
floor=Request.Form("floor")
book_author=Request.Form("book_author")
book_concern=Request.Form("book_concern")
team_id=Request.Form("book_team")
'查詢此書籍編號是否存在
sql="select count(*) from library_book"
sql=sql&" where book_id='"&book_id&"'"
set cou=session("cn").execute(sql)
if cou(0)=0 then
'編號不存在，求最大ID值然后加1
sql="select max(id),count(*) from library_book"
set rs=session("cn").execute(sql)
if rs(1)=0 then
id=1
else
id=rs(0)+1
end if
'將書籍信息存放到數(shù)據(jù)庫中。
sql="insert into library_book(id,book_id,book_name"
sql=sql&" ,stand,floor,book_author,book_concern,team_id,sf_return)"
sql=sql&" values ("&id&",'"&book_id&"','"&book_name&"',"&stand
sql=sql&","&floor&",'"&book_author&"','"&book_concern&"',"&team_id&",'N')"
session("cn").execute(sql)
Response.Redirect "book.asp?comm=信息添加成功！"
else
'書籍編號存在不能添加書籍，返回添加頁面
Response.Redirect "book.asp?comm=信息曾經(jīng)錄入過，本次添加不成功！"
end if
end if%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -