Code
USE AdventureWorks ;
GO
-- =============================================
-- Author: <qiangguo>
-- Create date: <2009-01-08>
-- Description: <把表中的内容导出为HTML>
-- =============================================
DECLARE @body VARCHAR(MAX)
SET @body = CAST(( SELECT td = CAST(ContactID AS VARCHAR(30)) + '</td><td>'
+ LastName + '</td><td>' + EmailAddress
FROM ( SELECT TOP 10
ContactID,
LastName,
EmailAddress
FROM Person.Contact
) AS d
FOR
XML PATH('tr'),
TYPE
) AS VARCHAR(MAX))
SET @body = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>把表中的内容导出为HTML</title></head>
<body>' + '<table cellpadding="2" cellspacing="2" border="1">'
+ '<tr><th>ContactID</th><th>LastName</th><th>EmailAddress</th></tr>'
+ REPLACE(REPLACE(@body, '<', '<'), '>', '>') + '<table>'
+ '</body></html>'
PRINT @body