blist.asp

来自「一个简单的网上书店系统」· ASP 代码 · 共 49 行

ASP

49 行

<%@ language=vbscript %>
<%option explicit%>
<% on error resume next
     dim conn,rs,sql,i,connstr
     connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
     set conn=server.CreateObject("adodb.connection")
     conn.Open connstr
     set rs=server.CreateObject("adodb.recordset")
     sql="select * from book order by id desc"
     rs.Open sql,conn,1,1
     'rs.MovePrevious 
     %>
    
<html>
<head>
<title>浏览图书</title>
</head>

<body>
<br>
<form name="book" method="post" action="bview.asp">
<table border="0" width="100%">
  <tr>
    <td width="100%" 
      style="BACKGROUND-COLOR: darkblue"><FONT color=white 
      style="BACKGROUND-COLOR: #00008b">图书管理(浏览页面)</FONT></td>
  </tr>
  <% do while not (rs.eof or err)%>
        
  <tr>
    <td width="100%" 
  style="BACKGROUND-COLOR: cornsilk"><input type="radio" name="bookchange" value="<%=rs(0)%>"><%=rs(1)%></td>
  </tr>
  <%rs.MoveNext 
   loop%>
  <tr>
    <td width="100%" 
    style="BACKGROUND-COLOR: cornsilk"><input type="submit" value="提交" name="B1"><input type="button" value="返回" name="B2" onclick="javascript:top.document.location='manage.htm'"></td>
  </tr>
  <tr>
    <td width="100%" 
    style="BACKGROUND-COLOR: darkblue">　</td>
  </tr>
</table>
</form>
</body>

</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

blist.asp

blist.asp - 源码说明

⌨️ 快捷键说明