<%@ 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>
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved 京ICP备14022230号-1,电话/传真：010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址：北京市海淀区远大路20号宝蓝大厦E座704，邮编：100089
