<% Response.ContentType = [Content Type] Ex: .asp ContentType = "text/asp" .htm,.html ContentType = "text/html" .rtf ContentType = "application/rtf" .mpeg,.mpg ContentType = "video/mpeg" .mp3 ContentType = "audio/mpeg3" .wav ContentType = "audio/wav" .jpeg,.jpg ContentType = "image/jpeg" .gif ContentType = "image/gif" .xls ContentType = "application/vnd.ms-excel" .zip ContentType = "application/zip" .doc ContentType = "application/msword" .avi ContentType = "video/avi" .asf ContentType = "video/x-ms-asf" %>
<%@ Language=VBScript %> <% Option Explicit Response.Buffer = TRUE Response.ContentType = "application/vnd.ms-excel" %> <html> <head> </head> <body> <% Dim Conn,strSQL,objRec Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("MyXls/mydatabase.mdb"),"" , "" strSQL = "SELECT * FROM customer " Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 %> <table width="600" border="1"> <tr> <th width="91"> <div align="center">CustomerID </div></th> <th width="98"> <div align="center">Name </div></th> <th width="198"> <div align="center">Email </div></th> <th width="97"> <div align="center">CountryCode </div></th> <th width="59"> <div align="center">Budget </div></th> <th width="71"> <div align="center">Used </div></th> </tr> <% While Not objRec.EOF %> <tr> <td><div align="center"><%=objRec.Fields("CustomerID").Value%></div></td> <td><%=objRec.Fields("Name").Value%></td> <td><%=objRec.Fields("Email").Value%></td> <td><div align="center"><%=objRec.Fields("CountryCode").Value%></div></td> <td align="right"><%=objRec.Fields("Budget").Value%></td> <td align="right"><%=objRec.Fields("Used").Value%></td> </tr> <% objRec.MoveNext Wend %> </table> <% objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
