•

Microsoft Windows NT Server 4.0 SP3

•

Microsoft Internet Information Server (IIS) 4.0 版或更高版本

•

Microsoft SQL Server 6.5 或更高版本

•

Microsoft Excel 97、Excel 2000 和 Excel 2002

1.

使用 ODBC 控制面板小程序创建一个名为“pubs”的系统 DSN。将 DSN 设置为引用您的本地 SQL Server，使用 SQL Server 身份验证，并使用“pubs”作为默认数据库。pubs 数据库的默认登录 ID 是 sa，没有密码。

2.

使用 Notepad.exe 在您的 IIS 主目录（例如 inetpub\wwwroot）中创建一个名为 XlTest.asp 的文件，并向其中添加以下内容：

<%@ Language=VBScript %> <% 'Change HTML header to specify Excel's MIME content type Response.Buffer = TRUE Response.ContentType = "application/vnd.ms-excel" %> <HTML> <BODY> Here is the info you requested.<p> <% ' Create ADO Connection object dim myConnection set myConnection = CreateObject("ADODB.Connection") ' Open SQL Server Pubs database... ' myConnection.Open "DSN=pubs;UID=sa" ' Get a recordset of info from Authors table... sqlStr = "SELECT au_fname,au_lname,phone FROM authors" set rsAuthors = myConnection.Execute(sqlStr) %> <!-- Our table which will be translated into an Excel spreadsheet --> <TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1> <TR> <TD><font size=+2>First Name</font></TD> <TD><font size=+2>Last Name</font></TD> <TD><font size=+2>Phone</font></TD> </TR> <!-- server-side loop adding Table entries --> <% do while not rsAuthors.EOF %> <TR> <TD><%=rsAuthors("au_fname")%></TD> <TD><%=rsAuthors("au_lname")%></TD> <TD><%=rsAuthors("phone")%></TD> </TR> <% rsAuthors.MoveNext loop ' Clean up rsAuthors.Close set rsAuthors = Nothing myConnection.Close set myConnection = Nothing %> </TABLE> </BODY> </HTML>

3.

保存 XlTest.asp，然后从客户端浏览器查看它。例如，http://MyServer/XlTest.asp（使用您的服务器名称替换 MyServer。）

•

Microsoft Visual InterDev 6.0 标准版

•

Microsoft Internet Information Server 4.0

•

Microsoft Internet Information Services 5.0

•

Microsoft Excel 97 标准版

•

Microsoft Excel 2000 标准版

•

Microsoft Excel 2002 标准版

•

Microsoft Office Excel 2003