accesstable.asp

来自「Excel大全及示例文件-657M-pdf版.zip」· ASP 代码 · 共 70 行

ASP
70 行
字号 
<% 
'声明变量
Dim acDatabase 
Dim conn 
Dim rst 
Dim sql

'告诉IE，获取的数据显示为Excel格式
Response.ContentType = "Application/vnd.ms-excel" 

'数据库名称，Northwind.mdb文件应该复制到ExcelASP文件夹中
acDatabase="Northwind" 

'创建到数据库的链接
conn="DRIVER={Microsoft Access Driver (*.mdb)};" 
conn=conn & "DBQ=" & Server.Mappath(acDatabase) 

'创建记录集
Set rst = Server.CreateObject("ADODB.Recordset") 

'从表供应商中选择所有记录，千万注意，确保数据库文件中有该表，包括名称中英文一致
sql = "SELECT * FROM 供应商"

'打开记录集（并且执行上面的SQL语句）
rst.Open sql, conn 

%> 

<HTML> 
<BODY> 
<TABLE Border="1"> 

<% 

For Each fld in rst.Fields 
%> 
<TH> 
<% Response.Write fld.Name %>
</TH> 
<% 
Next 
rst.MoveFirst 

Do While Not rst.EOF 
%> 

<TR> 
<% 
For Each fld in rst.Fields 
%> 

<TD> 
<% Response.Write fld.Value %> 
</TD> 
<% 
Next 
%> 
</TR> 

<% rst.MoveNext 
Loop 
%> 
</TABLE> 
</BODY> 
</HTML> 
<% 
rst.Close 
Set rst=Nothing 
%>

accesstable.asp - 源码说明

本页面展示了「Excel大全及示例文件-657M-pdf版.zip」中的 accesstable.asp 源码文件，采用 ASP 编程语言编写，共 70 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Excel相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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