明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

使用ASP將HTML格式數(shù)據(jù)傳輸給Excel（2）

發(fā)表時間：2024-06-18 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]建立HTML表格首先建立ASP主頁，將該主頁添加到Visual InterDev項目中，文件名為ContentType.asp， 如同圖 A 。然后將代碼A所顯示的代碼添加到主頁中，第一行代碼可以將所涉及主頁的mime type轉(zhuǎn)變?yōu)镋xcel mime type。下面幾行代碼將啟動我們早先建...
建立HTML表格
首先建立ASP主頁，將該主頁添加到Visual InterDev項目中，文件名為ContentType.asp， 如同圖 A   
。然后將代碼A所顯示的代碼添加到主頁中，第一行代碼可以將所涉及主頁的mime type轉(zhuǎn)變?yōu)镋xcel mime type。下面幾行代碼將啟動我們早先建立的組件以獲取ADOR記錄區(qū)的數(shù)據(jù)。 這些代碼如同ListingA中所顯示將在記錄區(qū)循環(huán)處理并建立一個HTML表格， 該表格包括雇員表中每行的記錄。


代碼 A:Code for adding new ASP page to Visual InterDev Project 
<%@ Language=VBScript %>

<%Response.ContentType = "application/vnd.ms-excel"%>

<%
Dim objEmployee, rs

set objEmployee=server.CreateObject("EmpReport.Employee")

Set rs = objEmployee.GetEmployee()

'Draw a Table

%>
<TABLE>
<TR>
<TD><STRONG><FONT FACE=" size=4>Employee 
Report</FONT></STRONG></TD>
</TR>
<TR>
<TD>Employee Id</TD>
<TD>First Name</TD>
<TD>Last Name</TD>
<TD>Title</TD>
</TR>
    <%
Do while not rs.eof 
%>
<TR>
<TD>
            <%=rs("EmployeeId")%></TD>
<TD>
            <%=rs("LastName")%></TD>
<TD>
            <%=rs("FirstName")%></TD>
<TD>
            <%=rs("Title")%></TD>
</TR>
    <%
rs.movenext
loop
%></TABLE>

完成輸入代碼后， 保存并瀏覽該主頁。該主頁如同圖 B 。注意該電子表格中的所有行并未實行任何格式化處理。當(dāng)我們使用Excel VBA組件創(chuàng)立工作表格時，我們可以利用VBA方式對表格加以調(diào)整。 但是，在使用HTML方式下對表格加以通常的格式化處理是比較困難的，除非你能方便地顯示和讀取HTML表格的有關(guān)數(shù)據(jù)。利用ASP主頁技術(shù)我們能夠做到這一點，而且可以實現(xiàn)目前Microsoft Excel所支持的所有功能， 其中包括SUM功能。需要注意的是，利用HTML創(chuàng)立的工作表格中沒有包括一些標(biāo)準(zhǔn)的標(biāo)示符號，例如<HTML> 及<BODY>。當(dāng)我們建立與Excel工作表格互換數(shù)據(jù)的HTML表格時，盡量不要在ASP主頁中使用<HTML>,<BODY>,<HEAD>等標(biāo)示符號，因為Excel工作表格通常無法正確這些標(biāo)示符號。