|
建立HTML表格
首先建立ASP主頁(yè)，將該主頁(yè)添加到Visual InterDev項(xiàng)目中，文件名為ContentType.asp， 如同圖 A
。然后將代碼A所顯示的代碼添加到主頁(yè)中，第一行代碼可以將所涉及主頁(yè)的mime type轉(zhuǎn)變?yōu)镋xcel mime type。下面幾行代碼將啟動(dòng)我們?cè)缦冉⒌慕M件以獲取ADOR記錄區(qū)的數(shù)據(jù)。 這些代碼如同ListingA中所顯示將在記錄區(qū)循環(huán)處理并建立一個(gè)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>
完成輸入代碼后， 保存并瀏覽該主頁(yè)。該主頁(yè)如同圖 B 。注意該電子表格中的所有行并未實(shí)行任何格式化處理。當(dāng)我們使用Excel VBA組件創(chuàng)立工作表格時(shí)，我們可以利用VBA方式對(duì)表格加以調(diào)整。 但是，在使用HTML方式下對(duì)表格加以通常的格式化處理是比較困難的，除非你能方便地顯示和讀取HTML表格的有關(guān)數(shù)據(jù)。利用ASP主頁(yè)技術(shù)我們能夠做到這一點(diǎn)，而且可以實(shí)現(xiàn)目前Microsoft Excel所支持的所有功能， 其中包括SUM功能。需要注意的是，利用HTML創(chuàng)立的工作表格中沒(méi)有包括一些標(biāo)準(zhǔn)的標(biāo)示符號(hào)，例如<HTML> 及<BODY>。當(dāng)我們建立與Excel工作表格互換數(shù)據(jù)的HTML表格時(shí)，盡量不要在ASP主頁(yè)中使用<HTML>,<BODY>,<HEAD>等標(biāo)示符號(hào)，因?yàn)镋xcel工作表格通常無(wú)法正確這些標(biāo)示符號(hào)。
|
溫馨提示：喜歡本站的話(huà)，請(qǐng)收藏一下本站！
