asp中表格导出到EXCEL的方法
asp中表格导出到EXCEL的方法
一、第一种
表格导出到Word代码、导出到EXCEL代码
11 | 11 |
22 | 22 |
33 | 33 |
44 | 44 |
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i { for (j=0;j { oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText; } } oXL.Visible = true; https://www.360docs.net/doc/92680439.html,erControl = true; } //--> 导出到Word代码 Sub buildDoc set table = document.all.data row = table.rows.length column = table.rows(1).cells.length Set objWordDoc = CreateObject("Word.Document") 'objWordDoc.Application.Documents.Add theTemplate, False objWordDoc.Application.Visible=True Dim theArray(20,10000) for i=0 to row-1 for j=0 to column-1 theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT next next objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题 objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range With rngPara .Bold = True //将标题设为粗体 .ParagraphFormat.Alignment = 1 //将标题居中 https://www.360docs.net/doc/92680439.html, = "隶书" //设定标题字体 .Font.Size = 18 //设定标题字体大小 End With Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) for i = 1 to column objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAf ter theArray(i,1) objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Paragrap hFormat.alignment=1 next For i =1 to column For j = 2 to row objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAf ter theArray(i,j) objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.Paragrap hFormat.alignment=1 Next Next End Sub 二、第二种 如何在asp脚本里做个按钮可以将数据导出到excel表里 ------------------------------------------------------------------------------- - 作者:迅鹰下载来源: 发布日期:2006-4-6 点击次数: 128 方法一11 11 22 22 33 33 44 44
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i { for (j=0;j { oSheet.Cells(i+1,j+1).Value = table.rows(i).cells(j).innerText; } } oXL.Visible = true; https://www.360docs.net/doc/92680439.html,erControl = true; } //--> 方法二 <%@ LANGUAGE="VBSCRIPT" %> <%option explicit%> <% %>
<%
dim rs,sql,filename,fs,myfile,x,link
Set fs = server.CreateObject("scripting.filesystemobject")
filename = "f:\online.xls"
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
set myfile = fs.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from table"
rs.Open sql,conn
if rs.EOF and rs.BOF then
else
dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & https://www.360docs.net/doc/92680439.html, & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
%>
//是从数据库里直接读出来再转到EXCEL中.要在页面上显示稍改下就成. 如何关闭excel进程
dim excelapp
set excelapp=createobject("excel.application")
......
......
excelapp.quit'必备,建议上面加上on error resume next防止未知错误不能执行到此行
set excelapp = nothing
三、强人介绍的四种方法
一、使用OWC 什么是OWC OWC是Office Web Compent的缩写,即Microsoft的Office Web 组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5和Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。
<%Option Explicit
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset
Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub
Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub
Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property
Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
'opulates the Excel worksheet based on a Recordset's contents 'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = https://www.360docs.net/doc/92680439.html, objSpreadsheet.Columns(iCol).AutoFitColumns
'设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中
iCol = iCol + 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next 'objField
objRS.MoveNext
Loop
End Sub Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM xxxx", "rovider=SQLOLEDB.1ersist Security
Info=True;User ID=xxxx assword=xxxx;Initial Catalog=xxxx;Data source=xxxx;" Dim SaveName
SaveName = Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath = "Excel\" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
'Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件.
<a href='" & server.URLEncode(ExcelPath) & "'>下载</a>"
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%>
二、用Excel的Application组件在客户端导出到Excel或Word
注意:两个函数中的“data“是网页中要导出的table的 id
<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">
<input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint">
导出到Excel代码
<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
// Add table headers going cell by cell.
for (i=0;i<hang;i++)
{
for (j=0;j<lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
https://www.360docs.net/doc/92680439.html,erControl = true;
}
//-->
</SCRIPT>
导出到Word代码
<script language="vbscript">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
objWordDoc.Application.Documents.Add theTemplate, False
objWordDoc.Application.Visible=True
Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
https://www.360docs.net/doc/92680439.html, = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAf ter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.Paragrap hFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAf ter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.Paragrap
hFormat.alignment=1
Next
Next
End Sub
</SCRIPT>
三、直接在IE中打开,再存为EXCEL文件
把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL 表在客客户端显示。
<%response.ContentType ="application/vnd.ms-excel"%>
注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。
四、导出以半角逗号隔开的csv
用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)
CSV文件介绍(逗号分隔文件)
选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。
请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。
如果您把浏览器配置为将您的电子表格软件与文本(TXT)/逗号分隔文件(CSV)相关联,当您下载该文件时,该文件将自动打开。下载下来后,如果本地已安装EXCEL,点击此文件,即可自动用EXCEL软件打开此文件。
asp操作excel方法
asp操作excel方法 代码如下: <% ‘************************************************* ****************** ‘使用说明 ‘dim a ‘set a=new createexcel ‘a.savepath=x ‘保存路径 ‘a.sheetname=工作簿名称‘多个工作表a.sheetname=array(工作簿名称一,工作簿名称二) ‘a.sheettitle=表名称‘可以为空多个工作表a.sheetname=array(表名称一,表名称二) ‘a.data =d ‘二维数组‘多个工作表 array(b,c) b 与c为二维数组 ‘dim rs ‘set rs=server.createobject(adodb.recordset) ‘rs.open select id, classid, classname from [class] ,conn, 1, 1 ‘a.adddbdata rs, 字段名一,字段名二, 工作簿名称, 表名称, true ‘true自动获取表字段名
‘a.adddata c, true , 工作簿名称, 表名称‘c二维数组 true 第一行是否为标题行 ‘a.addtdata e, sheet1 ‘按模板生成c=array(array(aa1, 内容), array(aa2, 内容2)) ‘a.create() ‘https://www.360docs.net/doc/92680439.html,edtime 生成时间,毫秒数 ‘a.savepath 保存路径 ‘set a=nothing ‘设置com组件的操作权限。在命令行键入“dcomcnfg”,则进入com组件配置界面,选择microsoftexcel后点击属性按钮,将三个单选项一律选择自定义,编辑中将everyone 加入所有权限 ‘************************************************* ****************** class createexcel private createtype_ private savepath_ private readpath_ private authorstr rem 设置作者 private versionstr rem 设置版本 private systemstr rem 设置系统名称
ASP直接调用EXCEL数据
ASP直接调用EXCEL数据的例子(不用ODBC) 例子: 在"c:excelbook1.xls"存在一个EXCEL表book1.xsl,表的结构如下: 1 序号名称金额 2 1 张三100 3 2 李四200 4 3 王五300 序号字段不为空 注意:excel 起始行是1而不是为0 <%@language=vbscript %> <% Set xlApp = server.CreateObject("Excel.Application") strsource = "c:excelbook1.xls" Set xlbook = xlApp.Workbooks.Open(strsource) Set xlsheet = xlbook.Worksheets(1) i=1 response.write "
" & xlsheet.Cells(i, 1) & " | " response.write "" & xlsheet.Cells(i, 2) & " | " response.write "" & xlsheet.Cells(i, 3) & " | " response.write "
asp数据库成excel文件代码
asp数据库数据生成excel文件:
<% if Request("act") = "" then Response.Write "生成EXCEL文件实例" else dim conn,strconn strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test" set conn=server.CreateObject("adodb.connection") conn.Open strconn dim rs,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath("online.xls") '--如果原来的EXCEL文件存在的话就删除 if fs.FileExists(filename) then fs.DeleteFile(filename) end if '--创建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) Set rs = Server.CreateObject("ADODB.Recordset") '--从数据库中把你想放到EXCEL中的数据读出来 sql = "select * from Tb_Execl order by id desc" rs.Open sql,conn,1,1 if rs.EOF and rs.BOF then else dim strLine,responsestr strLine="" For each x in rs.fields strLine = strLine & https://www.360docs.net/doc/92680439.html, & chr(9) Next '--将表的列名先写入EXCEL myfile.writeline strLine Do while Not rs.EOF strLine=""
告别ASPNET操作EXCEL的烦恼(总结篇)
Copy From 告别https://www.360docs.net/doc/92680439.html,操作EXCEL的烦恼(总结篇) 公元19XX年前,关于EXCEL的操作就如滔滔江水,连绵不绝,真正操作EXCEL我也是从去年下半年开始的,有些比较复杂的年度报表之类的,做起来也有点费力,不过还是都能画出来了,关于EXCEL的报表导出,考虑到导出耗时的问题我主要采用AJAX来做的,分别捕捉几个起止状态,给客户端提示3个状态:正在检索数据。。。---》准备导出数据。。。(只是从数据库成功取出,还没有读写excel文件)--》正在读写文件--》导出数据成功,当然如果哪一过程出错,都有对应的提示,只所以想到写这篇文章,主要是因为今年有个系统的部分EXCEL的操作也让我做,顺便结合之前操作EXCEL的经验作一下总结,可能也算不上什么,对于绝大多数来说也没什么技术含量,网上一搜一大把,但我想还是有必要总结一下,至少能给园子里的新手些许帮助,OK,Let's Go... 一. 程序操作EXCEL的应用主要还是在统计报表方面,您可能会考虑读EXCEL模板,也可能会考虑没必要读模板,其实读不读模板都能达到一样的效果,看实际情况而用了。 1. 读模板的话,首先模板存放在某个路径下,根据模板把从数据库里取出的数据写回EXCEL然后生成一个新的EXCEL存放都另一个路径以供下载,模板不变。 我这里的EXCEL操作主要是在VS2005里的,VS2003也可以的,不过没怎么研究03里的操作(文章最后我会把05,03的示例下载地址贴上)vs05中操作EXCEL直接引用.NET自带的COM组件 ,添加后项目的bin目录下会自动出现 Interop.Excel.dll这个DLL(需安装office2003 excel,下面的说明及示例都是基于office2003的,版本不同调用可能会不一样) 页面的命名空间引用using Excel; 下面是调用模板的一段代码 1#region使用模板导出Excel表 2case"ReportByTemp": 3 { 4 5 DataView dv = Cache["ReportByTemp"] as DataView; 6//建立一个Excel.Application的新进程 7 Excel.Application app =new Excel.Application(); 8if (app ==null) 9 { 10return; 11 } 12 app.Visible =false; 13 https://www.360docs.net/doc/92680439.html,erControl =true; 14 Workbooks workbooks = app.Workbooks; 15 _Workbook workbook = workbooks.Add(template_path +"\\EXCEL测试模板.xls");//这
ASP实例代码 asp操作Excel类
ASP实例代码asp操作Excel类 asp操作Excel类: <% '******************************************************************* '使用说明 'Dim a 'Set a=new CreateExcel 'a.SavePath="x" '保存路径 'a.SheetName="工作簿名称" '多个工作表 a.SheetName=array("工作簿名称一","工作簿名称二") 'a.SheetTitle="表名称" '可以为空多个工作表a.SheetName=array("表名称一","表名称二") 'a.Data =d '二维数组'多个工作表array(b,c) b与c为二维数组 'Dim rs 'Set rs=server.CreateObject("Adodb.RecordSet") 'rs.open "Select id, classid, className from [class] ",conn, 1, 1 'a.AddDBData rs, "字段名一,字段名二", "工作簿名称", "表名称", true 'true自动获取表字段名 'a.AddData c, true , "工作簿名称", "表名称" 'c二维数组true 第一行是否为标题行 'a.AddtData e, "Sheet1" '按模板生成c=array(array("AA1", "内容"), array("AA2", "内容2")) 'a.Create() 'https://www.360docs.net/doc/92680439.html,edTime 生成时间,毫秒数 'a.SavePath 保存路径 'Set a=nothing '设置COM组件的操作权限。在命令行键入“DCOMCNFG”,则进入COM组件配置界面,选择MicrosoftExcel后点击属性按钮,将三个单选项一律选择自定义,编辑中将Everyone 加入所有权限 '******************************************************************* Class CreateExcel Private CreateType_ Private savePath_ Private readPath_ Private AuthorStr Rem 设置作者 Private VersionStr Rem 设置版本 Private SystemStr Rem 设置系统名称 Private SheetName_ Rem 设置表名 Private SheetTitle_ Rem 设置标题 Private ExcelData Rem 设置表数据 Private ExcelApp Rem Excel.Application Private ExcelBook Private ExcelSheets
https://www.360docs.net/doc/92680439.html,中上传并读取Excel文件数据示例_6
如何打开Excel数据库文件,想必有很多朋友都不清楚吧,下面通过一个简单的例子,实现读取Excel数据文件 在CSDN中,经常有人问如何打开Excel数据库文件。本文通过一个简单的例子,实现读取Excel数据文件。 首先,创建一个Web应用程序项目,在Web页中添加一个DataGrid控件、一个文件控件和一个按钮控件。 代码如下: <INPUTid="File1"type="file"name="File1"runat="server"> <asp:Buttonid="Button1"runat="server"Text="Button"></asp:Button> <asp:DataGridid="DataGrid1"runat="server"></asp:DataGrid> 在代码视图中首先导入OleDb命名空间: usingSystem.Data.OleDb; 在按钮的单击事件中输入如下代码: 代码如下: stringstrPath="c://test//"+DateTime.Now.ToString("yyyyMMddhhmmss")+".xls"; File1.PostedFile.SaveAs(strPath); stringmystring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource='"+strPath+"';ExtendedPropertie s=Excel8.0"; OleDbConnectioncnnxls=newOleDbConnection(mystring); OleDbDataAdaptermyDa=newOleDbDataAdapter("select*from[Sheet1$]",cnnxls); DataSetmyDs=newDataSet(); myDa.Fill(myDs); DataGrid1.DataSource=myDs.Tables[0]; DataGrid1.DataBind(); 其中C:/test对ASPNET用户要有读写的权限. 更多信息请查看IT技术专栏
如何用asp读取Excel文件(比较全面)
1.ASP对Excel的基本操作 (1) 建立Excel对象 创建Excel对象可以通过下面的代码来实现: <% set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false '不显示警告objExcelApp.Application = false '不显示界面 %> (2) 新建Excel文件 新建Excel文件可以通过以下代码来实现: <% objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) %> (3) 读取已有的Excel文件 读取已有的Excel文件可以通过下面的代码来实现 <% strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.WorkSheets(1) %> (4) 另存Excel文件 另存Excel文件可以通过以下代码来实现 <% objExcelBook.SaveAs strAddr & "templateTables.xls" %> (5) 保存Excel文件 保存Excel文件可以通过以下代码来实现: <% objExcelBook.Save %> (6) 退出Excel操作 <%
ASP将Excel导入到Access数据库的方法实例
Excel中的数据导入到Access中,前提是在Access中的表已经建好。 dim conn dim conn2 set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb" set conn2=CreateObject("ADODB.Connection") conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls" sql = "select * FROM [Sheet1$]" set rs = conn2.execute(sql) while not rs.eof sql = "insert into xxx([a],[bb],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" conn.execute(sql) rs.movenext wend conn.close set conn = nothing conn2.close set conn2 = nothing function fixsql(str) dim newstr newstr = str if isnull(newstr) then newstr = "" else newstr = replace(newstr,"'","'") end if fixsql = newstr end function 导入到Sql Server数据库中时,如果Excel文件和数据库不在同一台服务器上时,请参考上面的代码。在同一机器上可以参考下面代码(不需要先把表建表,程序会自己动建表,用Excel 中的第一行数据做为表的字段名): dim conn set conn=CreateObject("ADODB.Connection")
asp写入excel
<%@ LANGUAGE="VBSCRIPT" %> <%option explicit%>
<% if Request("act") = "" then Response.Write "生成EXCEL文件" else dim conn,strconn strconn="driver={SQL Server};server=xxx;uid=sa;pwd=;database=DB_Test" set conn=server.CreateObject("adodb.connection") conn.Open strconn dim rs,sql,filename,fs,myfile,x Set fs = server.CreateObject("scripting.filesystemobject") '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.MapPath("online.xls") '--如果原来的EXCEL文件存在的话删除它 if fs.FileExists(filename) then fs.DeleteFile(filename) end if '--创建EXCEL文件 set myfile = fs.CreateTextFile(filename,true) Set rs = Server.CreateObject("ADODB.Recordset") '--从数据库中把你想放到EXCEL中的数据查出来 sql = "select * from Tb_Execl order by sort desc" rs.Open sql,conn if rs.EOF and rs.BOF then Response.Write "库里暂时没有数据!"
Asp连接读取excel内容并导入到数据库
Asp连接读取excel内容并导入到数据库asp连接excel Set connnew = Server.CreateObject("ADODB.Connection") 'hdr取值yes,no ,表示第一行是否为字段名 connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(“test.xls”)&";Extended Properties='Excel 8.0;HDR=No;IMEX=1';" connnew.open connstr Set rsnew=Server.CreateObject("ADODB.Recordset") 'Sheet1为excel里面的表名,表名后面一定要加$ sqlnew = "select * from [Sheet1$]" rsnew.open sqlnew,connnew,1,1 'rows是读取的excel里面数据的行数 rows=rsnew.recordcount 'cells是读取excel里面数据的列数 cells=rsnew.Fields.Count 输出记录集rsnew里面的数据,规则是这样的: 如果HDR赋值是No的话 rsnew(0)输出的是excel里第一行第一列的内容 如果HDR赋值是Yes的话 rsnew(0)输出的是excel里第二行第一列的内容
如果想输出第二行的内容,只需在语句前加rsnew.movenext 输出就这么简单的完成了! 连接网站数据库,相信各位程序猿都已经会了。要做的就是用sql语句判断要导入的数据是否存在,存在用update修改一下。不存在的话addnew重新插入一条即可。 如果想要实现上传excel后导入的话,可以加上一个上传程序,将上传后的excel 路径传输到asp连接excel的字符串里面。 asp读取excel并导入数据库就完成了,如果有不明白的可以联系作者! 注意事项 ? 注意excel里的表名是不是Sheet1.不是话注意和程序保持一致 程序只适合固定模板excel使用。如果excel格式不同,无法使用这个程序统一导入。
ASP生成Excel文件方法
ASP生成Excel文件方法 方法一:导出到csv文件,存放在服务器端任一路径,然后给客户下载优点: 1、可以进行身份认证后给客户下载,如果放到非web目录就没有对应的url,客户无法随时下载。 2、也是因为生成了文件,所以占用了服务器的空间,但是可以把文件名存放到数据库,再次给客户下载的时候不需要重复生成文件。 3、csv文件是文本文件,逗号隔开字段,回车隔开行,易于数据导入导出。 实现方法: SqlConnection conn=new SqlConnection("conn"]); SqlDataAdapter da=new SqlDataAdapter("select*from tb1",conn); DataSet ds=new DataSet(); da.Fill(ds,"table1"); DataTable dt=ds.Tables["table1"]; string name="downloadurl"].ToString()+"yyyyMMdd")+new Random(".csv";//存放到web.config中downloadurl指定的路径,文件格式为当前日期+4位随机数 FileStream fs=new FileStream(name,FileMode.Create,FileAccess.Write); StreamWriter sw=new StreamWriter(fs,"gb2312")); sw.WriteLine("自动编号,姓名,年龄"); foreach(DataRow dr in dt.Rows) { sw.WriteLine(dr["ID"]+","+dr["vName"]+","+dr["iAge"]); } sw.Close();
用ASP连接读写ACCESS数据库实例
(一)数据库的选择: 有许多的数据库你可以选择,SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。那么到底选择什么数据库最合适呢?其中SQL SERVER是服务器级的,足以应付每天上万次的访问量。对于非服务器级的数据库建议使用ACCESS97。 因为: (1)只要安装了PWS或IIS4肯定有ACCESS的ODBC驱动,即你的系统肯定支持ACCESS数据库的存取。 (2)ACCESS支持的SQL指令非常齐全。 (3)ACCESS ODBC驱动程序的效率非常高。虽然它不是服务器级的数据库,但是作为中小型企业内部网的数据库支持还是绰绰有余的。 (4)ACCESS97在OFFICE97中就有,非常方便得到和使用。 本文就以ACCESS数据库为准介绍基于WEB的数据库存取方法。 (二)例子:我们建立一个“客户”数据库,需要保存如下的客户资料:客户名称、联络人姓名、所在城市、电话号码。 (1)首先建立ACCESS数据库customer.mdb(今后有用的)。 建立如下字段:客户名称、联络人姓名、所在城市、电话号码、客户编号、时间。将表保存为" 客户"(今后有用的,===>看看图)。注意:建立字段时多作了2个(客户编号、时间),因为在今后排序时要用到它们。建议今后做数据库时最好都加上这2项,不会没用的。此外,在保存表时ACCESS 会询问是否建立一个住关键字,我们不需要它所以不必建立。还有:时间字段的"默认值"设成"now()",即去系统当时的时间。同时将索引项设成"有(允许重复)",含义:WEB上极有可能同时存取数据,所以允许重复,索引设成"有"可以加快排序速度。===>看看图 (2)建立递交表单add.htm: 源代码如下:
添加数据库记录