bookupdate.asp

来自「图书管理功能」· ASP 代码 · 共 46 行

ASP
46
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<h4 align="center"><font color="#6699ff">图书信息更新</font> </h4>
<hr/>
<%
dim dbcon,rs,strsql,bookid
set dbcon=server.createobject("adodb.connection")
	 set rs=server.createobject("adodb.recordset")
	 dbcon.open "dsn=ourdb;uid=sa;password=;"
	 rs.locktype=2
	 strsql="select bookid,booktitle from bookinfo"
	   rs.open strsql,dbcon
	   %>	   
<table width="75%" border="1" align="center">
  <tr> 
    <td><div align="center">图书编号</div></td>
    <td><div align="center">图书名称</div></td>
    <td><div align="center">用户操作</div></td>
    <td><div align="center">用户操作</div></td>
  </tr>
  <% do while not rs.eof
  bookid=rs("bookid")
  %>
  <tr>
  <td><%=bookid%></td>
  <td><%=rs("booktitle")%></td>
  <td><a href="bookdel.asp?bookid=<%=bookid%>">删除</a></td>
  <td><a href="bookmod.asp?bookid=<%=bookid%>">修改</a></td>
  </tr>
  <%
  rs.movenext
  loop
  rs.close
  set conn=nothing
  %>
  
</table>
</body>
</html>

⌨️ 快捷键说明

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