left.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 151 行

<!--#include File="ConnDB.asp"-->

<table border="0" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#FF9933" bordercolordark="#FFFFFF" bgcolor="#FFFFFF">
<tr><td colspan="4" height="100"><img src="images/bc.jpg" border="0" ></td></tr>
<%
      'isAdm用来判断是否为注册用户，如果不是则为False，否则为True
      Dim isAdm
      isAdm = False
      uid = Session("Adm_id")
      pwd = Session("Adm_pwd")
      If uid<>"" And pwd<>"" Then
        '判断用户名和密码是否正确
		  sql = "Select * From Admin_Info Where Adm_Id='"&uid&"' And Adm_Pwd='"&pwd&"'"
          Set rs = conn.Execute(sql)
          If Not rs.Eof Then
            isAdm = True    
      %>
       <tr>
       <td width="100%" bgcolor="#97DDFF" height="20" align="center">管理员信息</td>
        </tr>
        <tr>
          <td width="100%" height="18" bgcolor="#E1F5FF">
            <table border="0" cellspacing="0" width="100%">
              <tr>
                <td width="100%" bgcolor="#E1F5FF" height="60"><font color=red><h4><%=rs("Adm_Id")%>,</h4></font>您已成功登陆!</td>         
              </tr> 
             
              <tr>
                <td width="100%" align="center" bgcolor="#E1F5FF">

                <a href="LoginExit.asp" onclick="return newswin(this.href)">退出登录</a>
               </td>
              </tr>     
            </table>         
          </td>         
        </tr> 
           <%
           Else
             isAdm = False
           End If
           rs.Close%>             
     <%End If
       If isAdm = False Then  
          %>
        <tr>         
          <td width="100%" bgcolor="#97DDFF" height="20" align="center">管理员登录</td>
        </tr>         
        <tr>         
          <td width="100%" height="20" bgcolor="#E1F5FF">         
            <table border="0" cellspacing="1" height="58">         
              <tr>         
                <td width="100%" bgcolor="#E1F5FF" height="63">         
                  <form method="POST" action="putSession.asp">         
                    帐号:                    
                      <input type="text" name="loginname" size="18" value="">
                    <br>
                    密码: 
                    <input type="password" name="password" size="18" value="">                            
                    <br><input type="submit" value="确定" name="B1"><input type="reset"value="全部重写" name="B2">            
                    
                  </form>         
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>         
        <%End If%>  


<tr>       
          <td width="100%" height="20" bgcolor="#97DDFF" align="center">图书搜索</td>        
      </tr>    
      <tr>    
          <td width="100%" bgcolor="#E1F5FF">
                    <script language="javascript">
             function onSearch(){
			var gname,itype,url;
			gname = document.Search.book_name.value;
			itype = document.Search.book_type.value;
			url = "Search.asp?gname="+gname+"&tid="+itype;
			window.open(url,null,"");
			return false;
		  }
          </script> 
            <table border="0" width="100%" cellspacing="1">        
              <tr>        
                <td width="100%" bgcolor="#E1F5FF">
                  <form method="POST" action="Search.asp" name="Search">      
                    图书类别：<select size="1" name="book_type">  
                      <%Set rs = Server.CreateObject("ADODB.RecordSet")
			          sql = "Select * From Book_Type"  
                      rs.Open sql,conn,3,3
                      If Not rs.Eof Then  
                      Do While Not rs.Eof  
                      %><option value="<%=rs("type_Id")%>"><%=rs("Type_Name")%></option>  
                      <%rs.MoveNext  
                      Loop  
                      End If  
                      rs.close  
                      %>  
                    </select>
                    <br>关 键 字：<input type="text" name="book_name" size="13">
                    
                    <br><center><input type="button" value=" 提 交 " name="B1" onclick="return onSearch()"></center>
                
                  </form>    
                </td>     
              </tr>     
            </table>     

         <tr>         
          <td width="100%" bgcolor="#97DDFF" height="20" align="center">读者借阅信息查询</td>         
        </tr>           
          <tr>         
          <td width="100%" bgcolor="#E1F5FF"> 
               <table border="0" width="100%" cellspacing="1" >  
			    <Script language="javascript">
             function queryOrder(){
			var onum;
			onum = document.FrmQuery.Name.value;
			if (onum==""){
			  alert("请输入关键字！");
			  return false;
			}
			newOrder('queryOrder.asp?onum='+onum);
		  }
    
               </Script>    
                 <TR >
                <TD   height="20">
                <form method='POST' action='Search2.asp' name="FrmQuery"> 查询方式：
                    <select name='Class' size='1' >         
                    <option value='按读者证号'>按读者证号</option>
                    <option value='按读者姓名'>按读者姓名</option>
                    <option value='按读者类型'>按读者类型</option>
                </select>  
             <br>关 键 字：<input type='text' name='Name' size='13'>       
               <br><center><input type='submit' value='查询' name='Submit' onclick="return queryOrder()"> </center>
                </form>  
                </TD></TR>            
                </td>         
              </tr>         
            </table>         
          </td>         
        </tr>
    
          </td>     
      </tr>   
      </table>