Загрузить Excel не работает должным образом в ASP

Question

Я новичок в ASP.I нужно написать скрипт для загрузки Excel в ASP.I, но он загружает весь контент страницы, но мне нужно загрузить таблицу из базы данных.

Вот мой код:

 <%@Language="VBScript"%> 
    <form name="form1" id="form1" method="post"> 
    <input type="hidden" name="action" value="sel"> 
    <table> 
    <tr> 
    <td><input type="submit" name="submit" id="submit" value="Download Excel"></td> 
    </tr> 
    </table> 
    Hello World 
    <% 
    action = Request.Form("action") 

    If action="sel" Then 
    Response.ContentType = "application/octet-stream" 
    Response.ContentType = "application/vnd.ms-excel" 

    SET Conn = Server.CreateObject("ADODB.Connection") 
    Conn.OPEN "PROVIDER=SQLOLEDB;DATA SOURCE=10.1.1.1;UID=sa;PWD=root;DATABASE=Student" 
    dim Conn,Rs 
    set Rs=server.createobject("ADODB.recordset") 
    Rs.open "SELECT * FROM studentdetails",Conn 
    Response.AddHeader "Content-Disposition", "attachment; filename=xl_data.xls" 
    %> 
    <TABLE BORDER=1> 
     <TR> 
     <% 
     j = 2 
     For i = 0 to RS.Fields.Count - 1 
     %> 
     <TD width="18"><B> 
     <% = RS(i).Name %></B></TD> 
     <% Next %> 
     <TD width="42"></TD> 
     <TD width="53"></TD> 
     </TR> 
     <% 
     Do While Not RS.EOF 
     %> 
     <TR> 
     <% For i = 0 to RS.Fields.Count - 1 
     %> 
     <TD VALIGN=TOP><% = RS(i) %></TD> 
     <% Next %> 
     </TR> 
     <% 
     RS.MoveNext 
     j = j + 1 
     Loop 
     RS.Close 
    End If 
     %> 
     </TABLE> 

В этой программе я включил Hello World линию при загрузке он загружает, что also.So Пожалуйста, дайте мне несколько suggestions.THANKS ЗАРАНЕЕ.

Answer 1

заменить

Response.ContentType = "application/octet-stream" 

с

Response.Clear 

в противном случае вы отправляете форму и таблицу в Excel