如何直接列印取出的數據而不需再重新取過

[Rocket]

在asp + sql server中,取出了一些數據,想將這些數據直接列印出來而不需再重新取過,請問是否有好的辦法?

如重新取過數據,使用javascript:
&nbsp; &nbsp; &nbsp;<a href="javascript:PrintOut()">預覽列印</a>
&nbsp; &nbsp; &nbsp;<form name=Helpform target=_blank ID="Form1">
   <input type=hidden value="<%=mSQL%>" name=strSQL ID="Hidden1">
</form>

<script language=javascript>
   function PrintOut()
   {
      window.location.href = "printout.asp";
      //document.Helpform.submit();
   }
</script>

其中: mSQL未傳遞去Printout.asp的SQL語句

這樣做也是不成功,根本就不執行Printout.asp
請問錯在哪裡?

[小誌]

首先,請尊重論壇規則
發新文章請用明確的主題，勿僅使用如 求助、救命、請教... 等無意義的詞語當作主題。

解決方法如下

程式碼:

<form action="printout.asp" name=Helpform target=_blank ID="Form1">
<input type=hidden value="<%=mSQL%>" name=strSQL ID="Hidden1">
<input type=submit value="預覽列印">
</form>

[Rocket]

還是不行,可能不是該個asp的問題,因為SQL語句是有往下面傳遞,
只是發現Printout.asp根本沒有執行!

謝謝斑主!

這是Printout.asp:
<!-- METADATA TYPE="TypeLib" UUID="{這是excel writer}" -->
<!-- #include file="ado.asp"-->
<!-- #include file="List.asp"-->

<%   
--------這里根本就沒有執行
   mSQL = Request("strSQL")   
   Response.Write mSQL

   Connection_Open nConn

   Set adoRecordSet = Server.CreateObject("ADODB.RecordSet")
   adoRecordset.Open mSQL, nConn,0

   if not adoRecordset.EOF then
         mTemplatePath = Server.MapPath("YarnFactory.xls")

         Set objTemplate = Server.CreateObject("SoftArtisans.ExcelTemplate")

         objTemplate.Open mTemplatePath

         set objXls = objTemplate.Process("", saProcessOpenForScripting,true)

         set objWorksheet = objXls.worksheets(1)
         
         mRowNo = 3
         do until adoRecordset.EOF
            objWorksheet.Cells(mRowNo, 1).value = adoRecordset("Group_Name").value
            objWorksheet.Cells(mRowNo, 2).value = adoRecordset("Factory_GroupMark").value
            objWorksheet.Cells(mRowNo, 3).value = FormatNumber(adoRecordset("Factory_Amount"),0,0,0,-1)
            objWorksheet.Cells(mRowNo, 4).value = adoRecordset("Factory_StyleNO").value
            objWorksheet.Cells(mRowNo, 5).value = adoRecordset("Yarn_Name").value
            objWorksheet.Cells(mRowNo, 6).value = adoRecordset("Customer_Name").value
            objWorksheet.Cells(mRowNo, 7).value = adoRecordset("Agent_Name").value
            objWorksheet.Cells(mRowNo, .value = adoRecordset("Employee_Name").value
            objWorksheet.Cells(mRowNo, 9).value = FormatDisplay(adoRecordset("Factory_GoodsDate").value,7)
            objWorksheet.Cells(mRowNo, 10).value = adoRecordset("Knitting_Name").value
            objWorksheet.Cells(mRowNo, 11).value = adoRecordset("Back_Name").value
            objWorksheet.Cells(mRowNo, 12).value = adoRecordset("Process_Name").value
            objWorksheet.Cells(mRowNo, 13).value = adoRecordset("Technics_Name").value
            
            mRowNo = mRowNo + 1
            
            adoRecordset.movenext
         loop
         
         dim mFileName, mFileNameLong

         mFileName = "daily_prod_progress_" & gen_uid() & ".xls"

         mFileName_Long = Server.MapPath( "temp\" & mFileName )

         objXls.Save mFileName_Long, saOpenInPlace

         set objTemplate = nothing

         Response.Redirect "temp/" & mFileName
         
      End if
   
      adoRecordset.Close
      set adoRecordset = nothing

      Connection_Close nConn
   
%>

[小誌]

有錯誤訊息嗎?有可能是INCLUDE檔案(ado.asp,list.asp)有問題

先不要include檔案,把include檔案的內容先搬進來測試

[Rocket]

做到了!!!

是多include了前面傳遞SQL語句過來的那個ASP~~~

多謝塞!!

請問斑主有MSN嗎?

[小誌]

我常在論壇中,論台中高手很多的
有問題可在論壇中發表

記得下次發文標題別再使用無意義的字句了

[Rocket]

明白!

謝謝!