📄 accesstable.asp
字号:
<%
'声明变量
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -