getrsfromcom.asp

来自「本电子书」· ASP 代码 · 共 37 行

ASP
37
字号
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PB COM例子</title>
</head>
<body>
<%
  '创建PB COM实例
  set Customers=Server.CreateObject("PB70.uo_customer")
  '调用COM组件函数连接数据库
  iback=Customers.uf_connecttodb()
  '调用COM组件函数读取数据
  set rs=Customers.uf_retrieve()
%>
<center><h3>下面是通过PB COM组件读取的数据</h3></center>
<table border="1" align="center" bordercolordark="#996600" bordercolorlight="#FF9933">
<% rs.movefirst
  do while not rs.eof 
%>
<tr>
  <td><% =rs("lname")%></td>
  <td><% =rs("address")%></td>
    <td><% =rs("city")%></td>
</tr>
<%
   rs.movenext
   loop 
   rs.close
   '调用COM组件函数断开数据库
   Customers.uf_disconnecttodb()
%>
</table>
</body>
</html>

⌨️ 快捷键说明

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