bview.asp

来自「在线图书销售系统」· ASP 代码 · 共 57 行

ASP
57
字号
<%@ 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")
         
     dim temp
     temp=Request("bookchange")
     if temp="" then
        temp=1
     end if
     sql="select * from book where id=" 
     sql=sql & temp
     rs.Open sql,conn,3,2
    
  %>
  
<HTML>
<HEAD>
<TITLE>图书详细信息浏览</TITLE>
</HEAD>
<BODY>
<br><br>
<form method="POST" action="bupdata.asp">
    
    <table border="0" width="100%">
    <tr>
      <td width="100%" bgcolor="#000080"><font color="#FFFFFF">书籍浏览</font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#FCFDEE">书&nbsp; 名<input type="text" name="book" size="20" value="<%=rs(1)%>">作者<input type="text" name="author" size="20" value="<%=rs(2)%>">单价<input type="text" name="price" size="12" value="<%=rs(3)%>">类别<input type="text" name="class" size="14" value="<%=rs(7)%>"></td>       
    </tr>       
    <tr>       
      <td width="100%" bgcolor="#FCFDEE">出版社<input type="text" name="publish" size="20" value="<%=rs(4)%>">照片<input type="text" name="photo" size="20" value="<%=rs(6)%>">数量<input type="text" name="num" size="11" value="<%=rs(5)%>"></td>       
    </tr>       
    <tr>       
      <td width="100%" bgcolor="#FCFDEE"><textarea rows="11" name="memo" cols="91"><%=rs(8)%></textarea></td>       
    </tr>       
    <tr>       
      <td width="100%" bgcolor="#FCFDEE"><input type="button" value="返回" name="B1" onclick="javascript:top.document.location='blist.asp'"></td>     
    </tr>     
    <tr>     
      <td width="100%" bgcolor="#000080"> </td>     
    </tr>     
  </table>     
</form>     
    
</BODY>     
</HTML>   
  
        
          

⌨️ 快捷键说明

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