manager.asp

JavaScript_VBScript网页编程实例

 end if                                        
%>   





                                                                                                                  
    </td>                                                                                                                        
  </tr>                                                                                                                        
  <tr>                                                                                                                                                                                                    
    <td width="100%" height="4" align="right" valign="middle" bgcolor="#FFFFFF" style="border-style: solid; border-width: 2">
  <p><input type="submit" value="提交操作" name="B1"> <input type="reset" value="全部重设" name="B2"></p>                                                                                     
  </td></tr>                                                                                                                       
</table>
<table border="1" width="100%">                                                                                                                       
  <tr>                                                                                                                       
    <th width="7%" align="center" bgcolor="#BBCFF9">　</th>                                           
    <th width="22%" align="center" bgcolor="#BBCFF9">书名</th>                                           
    <th width="13%" align="center" bgcolor="#BBCFF9">书号</th>                                           
    <th width="13%" align="center" bgcolor="#BBCFF9">作者</th>                                           
    <th width="17%" align="center" bgcolor="#BBCFF9">出版社</th>                                           
    <th width="10%" align="center" bgcolor="#BBCFF9">出版时间</th>                                           
    <th width="10%" align="center" bgcolor="#BBCFF9">价格</th>                                           
    <th width="8%" align="center" bgcolor="#BBCFF9">数量</th>                                           
  </tr>                                           
</table>                                           

<% if Request.QueryString("C1")="no" then                                            
if Request.QueryString("D1")="计算机类" then                                      
dbname="computer"                                          
else            
dbname="math"
end if  
  Set Con = Server.CreateObject( "ADODB.Connection" )                                           
   Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\tushu.mdb"                                           
   
    Set RS = Server.CreateObject( "ADODB.Recordset" )                                           
    RS.ActiveConnection = Con
RS.Open "SELECT  * FROM "&dbname
WHILE NOT RS.EOF                   
%>         
 
<table border="1" width="100%" height="1">                                           
<tr>                                                                                  
<td width="7%" height="1" align="center">                                           
<% 
 response.write("<input type='checkbox' name='")                                           
%>                                           
 <%=RS( "书号") %>                                           
<%
 response.write("' value='")                                           
 %>                                           
 <%=RS( "书号") %>                                           
<% response.write("'>")                                           
%>                                                                                    
</td>                                              
<td width="22%" height="1">                                           
<%=RS( "书名" )%>                                                       
</td>                                                      
<td width="13%" height="1">                                           
<%=RS( "书号") %>                                             
</td>                                                      
<td width="13%" height="1">                                           
<%=RS( "作者") %>                                             
</td>                                                      
<td width="17%" height="1">                                           
<%=RS( "出版社") %>                                             
</td>                                                      
<td width="10%" height="1">                                           
<%=RS( "出版时间") %>                                             
</td>                                                      
<td width="10%" height="1">                                           
<%=RS( "价格") %>                                             
</td>                                                      
<td width="8%" height="1">                                           
<%=RS( "数量") %>                                             
</td>                                                                                                       
</tr>                                                      
</table>                                                      
<% 
RS.MoveNext                    
WEND                                                      
con.close                                         
end if 
%>


<div id="additem_V2" style="visibility:hidden"> 
<p><b><u>在此处输入添加或修改的记录：</u></b></p>  
<table border="0" width="100%" height="168" style="border-style: ridge; border-width: 1">  
<tr>  
<td width="50%" align="center" height="162" bgcolor="#CECCC8">
书名: <input type="text" name="T1" size="20">                                                      
<p>书号: <input type="text" name="T2" size="20"></p>                                                      
<p>作者: <input type="text" name="T3" size="20"></p>                                                       
<p>出版社:<input type="text" name="T4" size="20"></td>                                            
<td width="50%" align="center" height="162" bgcolor="#CECCC8">出版时间:<input type="text" name="T5" size="20">                                           
<p>价格:<input type="text" name="T6" size="20"></p>                                           
<p>数量: <input type="text" name="T7" size="20"></td>                                                            
</tr>                                           
 </table>                                
 </div>                           
</form>     

<script language="JavaScript">                                          
<% if request.QueryString("R1")<>"V1" then                                      
response.write("additem_V2.style.visibility='visible'")                                     
else                                      
response.write("additem_V2.style.visibility='hidden'")                                      
end if                                     
%>                               
</script>
                                      
                                         
</body>                                                                                                                                                                                          
</html>