Contacts within the Authors Database

最新推荐文章于 2022-02-15 16:28:09 发布

grady.lu

最新推荐文章于 2022-02-15 16:28:09 发布

阅读量758

点赞数

分类专栏：数据库编程网站开发 asp 文章标签： database microsoft vbscript generator query border

本文链接：https://blog.csdn.net/tigerlgf/article/details/37606

版权

网站开发同时被 3 个专栏收录

28 篇文章 0 订阅

订阅专栏

asp

20 篇文章 0 订阅

订阅专栏

数据库编程

12 篇文章 0 订阅

订阅专栏

<%@ LANGUAGE = VBScript %> <% Option Explicit %> <html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Simple ADO Query</title>
</head>

Simple ADO Query with ASP 

<hr size="1" color="#000000">
Contacts within the Authors Database: 
 
<%
 Dim oConn
 Dim oRs
 Dim filePath
 Dim Index

   ' Map authors database to physical path
   filePath = Server.MapPath("authors.mdb")

   ' Create ADO Connection Component to connect
   ' with sample database

Set oConn = Server.CreateObject("ADODB.Connection")
 oConn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & filePath


 ' Execute a SQL query and store the results
 ' within recordset

 Set oRs = oConn.Execute("SELECT * From authors")
 %> 
<table border="1">
<%
 Do while (Not oRs.eof) %>
<tr>
 <% For Index=0 to (oRs.fields.count-1) %>
 <td VAlign="top"><% = oRs(Index)%>　</td>
 <% Next %>
</tr>
<% oRs.MoveNext
 Loop
 %>
</table>
<%
 oRs.close
 oConn.close
 %>

</body>

</html>

grady.lu

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Contacts within the Authors Database

Simple ADO Query Simple ADO Query with ASPContacts within the Authors Database: Dim oConn Dim oRs Dim filePath Dim Index Map authors database to physical path filePath =
复制链接

扫一扫