📄 main.asp

📁 在线图书馆管理系统的具有前台后后台。前台用户系统主要功能是显示用户借阅信息及图书查找功能。后台管理员系统主要是负责前台信息的维护和图书书库的管理。本系统可以方便的使用户高效率地找到自己所需要的图书。另
💻 ASP
字号:
<%
if session("user_name")="" then
    response.redirect "index.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="/manage/css.asp"-->
<% 
Dim UserName,Id
UserName=session("user_name")
set rs=server.CreateObject("adodb.recordset")

sql="SELECT * FROM [user] WHERE UserName='"&UserName&"'"
rs.open sql,conn,1,3
ID=rs("ID")
set rs=server.CreateObject("adodb.recordset")
sql="select * from book WHERE Owner='"&UserName&"'"
rs.open sql,conn,1,3

	  rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
  
  if Not IsNumeric(page) or page="" then
    page=1
  else
    page=cint(page)
  end if
  
  if page<1 then
    page=1
  elseif page>maxpage then
    page=maxpage
  end if
  


if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
i=0

%>
<HTML><TITLE>用户登陆</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<BODY bgColor=#ffffff leftMargin=0 topMargin=0 MARGINWIDTH="0" MARGINHEIGHT="0">

      <p>&nbsp;</p>
      <TABLE   height=113
       border="0"  cellspacing=1   align="center"  width="80%" bgcolor="#336699">
    
        <TR>
          <TD height="113" background="manage/images/pics/tile_sub.gif"  ><img src="manage/images/banner.jpg" width="100%" height="113"></TD>
        </TR>
		
</table>
<table width="80%" border="0" align="center">

</table>

        <form action="search.asp" target="_blank"><TABLE width="80%" border="0" cellspacing="1" bgcolor="#336699" align="center"><TR>
          <TD width=73 height=17 background="manage/images/pics/tile_sub.gif" >&nbsp;</td>   
		<TD width=172 height=17 background="manage/images/pics/tile_sub.gif" >欢迎<strong><font size="2" color="#FF0000"><%=UserName%></font></strong>的来访！</td> 
		<TD width=403 height=17  background="manage/images/pics/tile_sub.gif"><a href="uquit.asp">[注销] </a></td>
		<TD width=105 height=17  background="manage/images/pics/tile_sub.gif">&nbsp;</td>
		</TR>
			<TR>
           <TD height=25 align=left bgcolor="#99CCFF" colspan="4"><font color="#ffffff">&gt;&gt;用户信息</font></TD>
			</TR>
        <TR>
          <TD width=73 height=31 background="manage/images/pics/tile_sub.gif"> 用户管理：</TD>
		  <TD width=172 height=31 background="manage/images/pics/tile_sub.gif" ><a href="modifyUser.asp?id=<%=Id%>">[用户信息更改]</a></TD>
		  
          <TD width=403 height=31 background="manage/images/pics/tile_sub.gif" colspan="2">借阅图书信息检索： <select name='Class' size='1' tabindex='0' style="font-size: 9pt">      
<option value='按图书名称'>按图书名称</option>
<option value='按借阅种类'>按借阅种类</option>
</select> <span class="main1">
<input type='text' name='Name' size='11'  onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:18px;background-color:#f3f3f3;border:1 solid black">
</span> <input type='submit' value='查询' name='Submit' style="font-family: 新细明体, 宋体, Arial; font-size: 9pt; height:20px;background-color:#D4D0C8;" onMouseOver ="this.style.backgroundColor='#FFC864'" onMouseOut ="this.style.backgroundColor='#D4D0C8'">         </TD>
		  
          </TR>
	</TABLE></form>
 <TABLE width="80%" border="0" cellspacing="1" bgcolor="#336699" align="center">
     <tr>
	 <TD height=25 align=left  colspan=10 bgcolor="#99CCFF"><font color="#FFFFFF">&gt;&gt;<font color="red"><%=UserName%></font>  借阅信息</TD>
	 </tr>
    <tr height=25 > 
	
      <TD width="54" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>图书ID号</b></font></TD>
      <TD width="73" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>图书名</b></font></TD>
	  <TD width="69" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>图书编号</b></font></TD>
      <TD width="76" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>出版社</b></font></TD>
      <TD width="66" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>作者</b></font></TD>
	   <TD width="69" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>图书类型</b></font></TD>
	    <TD width="90" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>借阅（预定）时间</b></font></TD>
	    <TD width="66" align="center" background="manage/images/pics/tile_sub.gif"><font color="#FFFFFF"><b>归还时间</b></font></TD>
	    <TD width="95" align="center" background="manage/images/pics/tile_sub.gif"><b><font color="#FFFFFF">状态</font></b></TD>
      <TD width="77" align="center" background="manage/images/pics/tile_sub.gif"><b><font color="#FFFFFF">操作</font></b></TD>
    </TR>
	<% do while not rs.eof and i< rs.pagesize
	i=i+1
	%>
    <tr height="15"> 
      <td width="54" height="28" align="center" bgcolor="#ffffff"><font face="Arial"><b><%=rs("ID")%></b></font></td>
      <td width="73" bgcolor="#ffffff"><a href="/manage/book/book_view.asp?id=<%=rs("ID")%>" target="_blank"><%=rs("Title")%></a></td>
	  <td width="69" align="center" bgcolor="#ffffff"><%=rs("B_code")%></td>
      <td width="76" align="center" bgcolor="#ffffff"><%=rs("Issuer")%></td>
	  <td width="66" align="center" bgcolor="#ffffff"><% =rs("Author") %></td>
      <td width="69" align="center" bgcolor="#ffffff"><% =rs("Btype") %></td>
	   <td width="90" align="center" bgcolor="#ffffff">
	   <% if rs("Status")=2 then response.Write rs("botime") 
	      if rs("Status")=1 then response.Write rs("letime") 
	   %>
      </td>
      <td width="66" align="center" bgcolor="#ffffff"><% =rs("retime") %></td>
	  <td width="95" align="center" bgcolor="#ffffff"><% 
	  if rs("Status")=1 then 
	  if  datediff("d", rs("Retime"), date())>0 then response.write "<font color=red >超期</font>"
	  if datediff("d", rs("Retime"), date())<0 then response.write "借出"
      end if
	  if rs("Status")=2 then response.write "<font color= red >已预定</font>"
	  %></td>
      <td width="77" align="center" bgcolor="#ffffff"> <%if rs("Status")=2 then %><a  href="del_bo.asp?id=<%=rs("ID")%>">取消预定</a><%else%><font color=red>无</font><%end if%>
	  </td>
    </tr>
	<%
	rs.movenext
	loop%>
	<TR> 
              <TD height="30" 
colSpan=10 bgcolor="#FFFFFF" id=mainfoot> <div align="center">共<font color=red><%=maxpage%></font>页 第<%=page%>页 <font color=666666> 
                  <%if page-1>0 then%>
                  <a href="main.asp?page=<%=page-1%>">上一页</a> 
                  <%else%>
                  <font color=666666>上一页</font> 
                  <%end if%>
                  　 
                  <%if page+1<=maxpage then%>
                  <a href="main.asp?page=<%=page+1%>">下一页</a> 
                  <%else%>
                  <font color=666666>下一页</font> 
                  <%end if%>
      </font>共<% =iCount %>条记录</div></TD>
  </TR>
</table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -