⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 利用asp制作execl报表方法（二） .htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
字号:
🔍 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=49566 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="NB联盟13.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position 
width=773>
  <TBODY>
  <TR>
    <TD class=shadow colSpan=2 height=20 width=262>&nbsp;&nbsp;<A 
      href="http://www.51base.com/"><IMG border=0 
      src="NB联盟13.files/logo1.gif"></A> </TD>
    <TD align=right width=505>
      <P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
  <TBODY>
  <TR>
    <TD class=tdlbr vAlign=top>
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome 
      style="TABLE-LAYOUT: fixed" width="98%">
        <TBODY>
        <TR>
          <TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" 
            vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>: 
            利用ASP制作EXECL报表方法（二） </B></FONT>
            <HR noShade SIZE=1>
            <BR>废话少说，请看代码：<BR>runquery.asp
            <P></P>
            <P>&lt;%@ LANGUAGE="VBSCRIPT" %&gt;<BR>&lt;%<BR>'DSNless connection 
            to Access Database<BR>strDSNPath = 
            "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" 
            &amp; Server.MapPath("testDB.mdb")<BR>%&gt;<BR>&lt;!--#include 
            file="adovbs.inc" --&gt; 请自己COPY这个文件<BR>&lt;% 
            <BR>server.scripttimeout=1000<BR>Response.Buffer = 
            True<BR><BR>if(Request.Form("ReturnAS") = "Content") 
            then<BR>Response.ContentType = "application/msexcel"<BR>end 
            if<BR>Response.Expires = 0<BR><BR>dim oConn<BR>dim oRS<BR>dim 
            strSQL<BR>dim strFile<BR><BR>Set oConn = 
            Server.CreateObject("ADODB.Connection")<BR>Set oRS = 
            Server.CreateObject("ADODB.Recordset")<BR>strSQL = 
            BuildSQL()<BR><BR>oRS.Open strSQL, strDSNPath, adOpenForwardOnly, 
            adLockReadOnly, adCmdText<BR>%&gt;<BR>&lt;!DOCTYPE HTML PUBLIC 
            "-//W3C//DTD HTML 4.0 Transitional//EN"&gt;</P>
            <P>&lt;html&gt;<BR>&lt;head&gt;<BR>&lt;title&gt;Excel Export 
            Demo&lt;/title&gt;<BR>&lt;/head&gt;<BR>&lt;body&gt;<BR>&lt;%<BR>if(Request.Form("ReturnAS") 
            = "CSV") then<BR>CreateCSVFile()<BR>else if(Request.Form("ReturnAS") 
            = "Excel") then<BR>CreateXlsFile() <BR>else 
            if(Request.Form("ReturnAS") = "HTML") then<BR>GenHTML()<BR>else 
            if(Request.Form("ReturnAS") = "Content") then<BR>GenHTML() <BR>end 
            if<BR>end if<BR>end if<BR>end if<BR><BR>Set oRS = Nothing<BR>Set 
            oConn = Nothing 
            <BR>Response.Flush<BR>%&gt;<BR>&lt;/body&gt;<BR>&lt;/html&gt;<BR>&lt;SCRIPT 
            LANGUAGE=vbscript RUNAT=Server&gt;<BR>Function BuildSQL()<BR>dim 
            strSQL <BR>dim strTemp<BR><BR>strTemp = ""<BR>strSQL = "select year, 
            region, sales_amt from sales"<BR><BR>if(Request.Form("Year") 
            &lt;&gt; "ALL") then<BR>strTemp = " where Year = "<BR>strTemp = 
            strTemp &amp; Request.Form("Year")<BR>end 
            if<BR><BR>if(Request.Form("Region") &lt;&gt; "ALL") 
            then<BR>if(Len(strTemp) &gt; 0) then<BR>strTemp = strTemp &amp; " 
            and Region = "<BR>else<BR>strTemp = strSTL &amp; " where Region = 
            "<BR>end if<BR>strTemp = strTemp &amp; "'"<BR>strTemp = strTemp 
            &amp; Request.Form("Region")<BR>strTemp = strTemp &amp; "'"<BR>end 
            if</P>
            <P>BuildSQL = strSQL &amp; strTemp<BR>End Function</P>
            <P>Function GenFileName()<BR>dim fname<BR><BR>fname = 
            "File"<BR>systime=now()<BR>fname= fname &amp; cstr(year(systime)) 
            &amp; cstr(month(systime)) &amp; cstr(day(systime))<BR>fname= fname 
            &amp; cstr(hour(systime)) &amp; cstr(minute(systime)) &amp; 
            cstr(second(systime))<BR>GenFileName = fname<BR>End Function</P>
            <P>Function GenHTML()<BR>Response.Write("&lt;DIV 
            ALIGN=center&gt;&lt;FONT SIZE=+1&gt;Sales 
            Reporting&lt;/FONT&gt;&lt;/DIV&gt;")<BR>Response.Write("&lt;TABLE 
            WIDTH=100% BORDER=1 CELLSPACING=1 
            CELLPADDING=1&gt;")<BR>Response.Write("&lt;TR&gt;")<BR>Response.Write(" 
            &lt;TD&gt;Year&lt;/TD&gt;")<BR>Response.Write(" 
            &lt;TD&gt;Region&lt;/TD&gt;")<BR>Response.Write(" 
            &lt;TD&gt;Sales&lt;/TD&gt;")<BR>Response.Write("&lt;/TR&gt;")<BR>if(oRS.BOF 
            = True and oRS.EOF = True) then<BR>Response.Write("Database 
            Empty")<BR>else<BR>oRS.MoveFirst<BR>Do While Not 
            oRS.EOF<BR>Response.Write("&lt;TR&gt;")<BR>Response.Write("&lt;TD&gt;")<BR>Response.Write(oRS.Fields("Year").Value)<BR>Response.Write("&lt;/TD&gt;")<BR>Response.Write("&lt;TD&gt;")<BR>Response.Write(oRS.Fields("Region").Value)<BR>Response.Write("&lt;/TD&gt;")<BR>Response.Write("&lt;TD&gt;")<BR>Response.Write(oRS.Fields("Sales_Amt").Value)<BR>Response.Write("&lt;/TD&gt;")<BR>Response.Write("&lt;/TR&gt;")<BR>oRS.MoveNext<BR>Loop<BR>Response.Write("&lt;/TABLE&gt;")<BR>End 
            if<BR>End Function</P>
            <P>Function CreateCSVFile()</P>
            <P>strFile = GenFileName() <BR>Set fs = 
            Server.CreateObject("Scripting.FileSystemObject")<BR>Set a = 
            fs.CreateTextFile(server.MapPath(".") &amp; "\" &amp; strFile &amp; 
            ".csv",True)<BR>If Not oRS.EOF Then<BR>strtext = chr(34) &amp; 
            "Year" &amp; chr(34) &amp; ","<BR>strtext = strtext &amp; chr(34) 
            &amp; "Region" &amp; chr(34) &amp; ","<BR>strtext = strtext &amp; 
            chr(34) &amp; "Sales" &amp; chr(34) &amp; 
            ","<BR>a.WriteLine(strtext)<BR>Do Until oRS.EOF <BR>For i = 0 To 
            oRS.fields.Count-1<BR>strtext = chr(34) &amp; oRS.fields(i) &amp; 
            chr(34) &amp; 
            ","<BR>a.Write(strtext)<BR>Next<BR>a.Writeline()<BR>oRS.MoveNext<BR>Loop<BR>End 
            If<BR>a.Close<BR>Set fs=Nothing <BR>Response.Write("Click &lt;A 
            HRef=" &amp; strFile &amp; ".csv&gt;Here&lt;/A&gt; to to get CSV 
            file") <BR>End Function<BR>Function CreateXlsFile()<BR>Dim 
            xlWorkSheet ' Excel Worksheet object<BR>Dim xlApplication<BR><BR>Set 
            xlApplication = 
            CreateObject("Excel.application")<BR>xlApplication.Visible = 
            False<BR>xlApplication.Workbooks.Add<BR>Set xlWorksheet = 
            xlApplication.Worksheets(1)<BR>xlWorksheet.Cells(1,1).Value = 
            "Year"<BR>xlWorksheet.Cells(1,1).Interior.ColorIndex = 5 
            <BR>xlWorksheet.Cells(1,2).Value = 
            "Region"<BR>xlWorksheet.Cells(1,2).Interior.ColorIndex = 
            5<BR>xlWorksheet.Cells(1,3).Value = 
            "Sales"<BR>xlWorksheet.Cells(1,3).Interior.ColorIndex = 
            5<BR><BR>iRow = 2<BR>If Not oRS.EOF Then<BR>Do Until oRS.EOF <BR>For 
            i = 0 To oRS.fields.Count-1<BR>xlWorksheet.Cells(iRow,i + 1).Value = 
            oRS.fields(i)<BR>xlWorkSheet.Cells(iRow,i + 1).Interior.ColorIndex = 
            4<BR>Next<BR>iRow = iRow + 1<BR>oRS.MoveNext<BR>Loop<BR>End 
            If<BR>strFile = GenFileName()<BR>xlWorksheet.SaveAs 
            Server.MapPath(".") &amp; "\" &amp; strFile &amp; 
            ".xls"<BR>xlApplication.Quit ' Close the Workbook<BR>Set xlWorksheet 
            = Nothing<BR>Set xlApplication = Nothing<BR>Response.Write("Click 
            &lt;A HRef=" &amp; strFile &amp; ".xls&gt;Here&lt;/A&gt; to get XLS 
            file") <BR>End Function<BR>&lt;/script&gt;<BR>%&gt;</P>
            <P>main.htm</P>
            <P>&lt;!-- frames --&gt;<BR>&lt;FRAMESET 
            ROWS="20%,*"&gt;<BR>&lt;FRAME NAME="Request" SRC="request.html" 
            MARGINWIDTH="10" MARGINHEIGHT="10" SCROLLING="auto" 
            FRAMEBORDER="yes"&gt;<BR>&lt;FRAME NAME="Result" SRC="welcome.html" 
            MARGINWIDTH="10" MARGINHEIGHT="10" SCROLLING="auto" 
            FRAMEBORDER="yes"&gt;<BR>&lt;/FRAMESET&gt;</P>
            <P>request.htm</P>
            <P>&lt;html&gt;<BR>&lt;head&gt;<BR>&lt;title&gt;Sales Report 
            Demo&lt;/title&gt;<BR>&lt;/head&gt;</P>
            <P>&lt;body&gt;</P>
            <P>&lt;DIV ALIGN="center"&gt;&lt;FONT SIZE="+1"&gt;Sales 
            Reporting&lt;/FONT&gt;&lt;/DIV&gt;<BR>&lt;FORM ACTION="runquery.asp" 
            METHOD="POST" target=Result&gt;<BR>Year &lt;SELECT 
            NAME="Year"&gt;<BR>&lt;OPTION 
            VALUE="ALL"&gt;ALL&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="1995"&gt;1995&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="1996"&gt;1996&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="1997"&gt;1997&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="1998"&gt;1998&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="1999"&gt;1999&lt;/OPTION&gt;<BR>&lt;/SELECT&gt;<BR>&nbsp; 
            <BR>Region &lt;SELECT NAME="Region"&gt;<BR>&lt;OPTION 
            VALUE="ALL"&gt;ALL&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="North"&gt;North&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="East"&gt;East&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="South"&gt;South&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="West"&gt;West&lt;/OPTION&gt;<BR>&lt;/SELECT&gt;<BR>&nbsp;<BR>Return 
            Results Using<BR>&lt;SELECT NAME="ReturnAS"&gt;<BR>&lt;OPTION 
            VALUE="HTML"&gt;HTML Table&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="Content"&gt;Content Type&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="CSV"&gt;CSV&lt;/OPTION&gt;<BR>&lt;OPTION 
            VALUE="Excel"&gt;Native 
            Excel&lt;/OPTION&gt;<BR>&lt;/SELECT&gt;<BR>&nbsp; 
            <BR>&nbsp;<BR>&lt;INPUT TYPE="Submit" NAME="Submit" 
            VALUE="Submit"&gt; 
            <BR>&lt;/FORM&gt;<BR>&lt;/body&gt;<BR>&lt;/html&gt;</P>
            <P>welcome.htm<BR>&lt;html&gt;<BR>&lt;head&gt;<BR>&lt;title&gt;Sales 
            Report Demo&lt;/title&gt;<BR>&lt;/head&gt;</P>
            <P>&lt;body&gt;</P>
            <P></P>
            <P>&lt;/body&gt;<BR>&lt;/html&gt;</P>
            <P>数据库结构<BR>testDB.Mdb<BR>表sales<BR>year 数字<BR>Region 
            文本<BR>Sales_Amt 货币</P>
            <P>本文原始出处为国外一网站，并经过BATMAN的休正。<BR><BR></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
  <TBODY>
  <TR>
    <TD align=middle class=tdt>
      <P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -