1: Imports System.Text
2:
3: Partial Class CreateExcel
4: Inherits System.Web.UI.Page
5:
6: Dim sbHTML As New System.Text.StringBuilder("") 7:
8: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
9: Response.Clear()
10: Response.Buffer = True
11: Response.ContentType = "application/vnd.ms-excel"
12: Response.Charset = ""
13: Response.AddHeader("Content-Disposition", "attachment; filename=Form Collection.xls") 14: Page.EnableViewState = False
15:
16: sbHTML.Append("<table border=""0"" cellpadding=""3"" style='"border-collapse: collapse"" width=""100%"" bordercolor=""#000000"" id=""table1"">" & Environment.NewLine) 17: sbHTML.Append("<tr>" & Environment.NewLine) 18: sbHTML.Append("<td bgcolor=""black"" colspan=""2""><b><font face=""Arial"" color=""white"" size=""4"">Form Collection</font></b></td>" & Environment.NewLine) 19: sbHTML.Append("</tr>" & Environment.NewLine) 20: sbHTML.Append("<tr>" & Environment.NewLine) 21: sbHTML.Append("<th>Name</th>" & Environment.NewLine) 22: sbHTML.Append("<th>Value</th>" & Environment.NewLine) 23: sbHTML.Append("</tr>" & Environment.NewLine) 24:
25: Dim i As Integer
26: For i = 0 To Request.Form.Count - 1
27: sbHTML.Append("<tr>" & Environment.NewLine) 28: sbHTML.Append("<td height=19>" & Request.Form.AllKeys(i) & "</td>" & Environment.NewLine) 29: sbHTML.Append("<td height=19>" & Request.Form(i) & "</td>" & Environment.NewLine) 30: sbHTML.Append("</tr>" & Environment.NewLine) 31: Next
32:
33: sbHTML.Append("</table>" & Environment.NewLine) 34: 'Debug.WriteLine(sbHTML.ToString())
35: Response.Write(sbHTML.ToString())
36: Response.End()
37: End Sub
38: End Class