aspexcel源代码（开源webexcel）

今天给各位分享aspexcel源代码的知识，其中也会对开源webexcel进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、asp导出excel源码
• 2、asp 把表格导出excel表源码
• 3、支持EXCEL导入的ASP源码

asp导出excel源码

根据你的表格样子，初步判断原因是原始HTML的表格本身就是这种合并行的，所以导致如此。

如果是你自己用，我建议你不要改变你现在的代码，另外写一段和asp语法完全相同的vbs脚本删除多余行。

但是你要注意一点，单个单元格的字数是有限制的，不同版本超过一定字数就会被删除，你要注意别因为需要合并格子把内容给误删除了。

asp 把表格导出excel表源码

一、用Excel对象，但要有Excel模板。速度略慢

!--#include file="../conn.asp"--

%

dim s,sql,filename,fs,myfile,x

Set fs = server.CreateObject("scripting.filesystemobject")

'--假设你想让生成的EXCEL文件做如下的存放

filename = Server.MapPath("users.xls")

'--如果原来的EXCEL文件存在的话删除它

if fs.FileExists(filename) then

    fs.DeleteFile(filename)

end if

'--创建EXCEL文件

set myfile = fs.CreateTextFile(filename,true)

strSql = "select djh,bmmc,jihua,mubiao from scheme "

Set rstData =conn.execute(strSql)

if not rstData.EOF and not rstData.BOF then

    dim trLine,responsestr

    strLine=""

    For each x in rstData.fields

        strLine = strLine  x.name  chr(9)

    Next

'--将表的列名先写入EXCEL

    myfile.writeline strLine

    Do while Not rstData.EOF

        strLine=""

        for each x in rstData.Fields

            strLine = strLine  x.value  chr(9)

        next

        myfile.writeline strLine

        rstData.MoveNext

    loop

end if

Response.Write "生成EXCEL文件成功，点击a href=""users.xls"" target=""_blank""下载/a！"

rstData.Close

set rstData = nothing

Conn.Close

Set Conn = nothing

%

二、生成假的Excel，文件本身的格式是TXT，但扩展名使用的是XLS，用Excel也可以打开。速度快

!--#include file="../conn.asp"--

%

Response.ContentType="application/vnd.ms-excel "    

%

table border="1"  style="border-collapse:collapse;"

    tr align="center"

        td编号/td

        td日期/td

        td部门/td

        td工作计划/td

        td工作目标/td

    /tr

%

set rs=server.createobject("adodb.recordset")

sql="select djh,rq,bmmc,jihua,mubiao from scheme where bmmc='"session("bmmc")"'"

rs.open sql,conn,1,1

do while not rs.eof

%

    tr

        td%=rs("djh")%/td

        td%=rs("rq")%/td

        td%=rs("bmmc")%/td

        td%=rs("jihua")%/td

        td%=rs("mubiao")%/td

    /tr

%

    rs.movenext

loop

%

/table

%

rs.close

Conn.Close

Set Conn = nothing

%

支持EXCEL导入的ASP源码

假设你的EXCEL都已经是标准格式的文件了，那么你可以使用以下代码进行操作:

变量定义及ADO对象创建

....

strConn

=

"Provider=Microsoft.Jet.OLEDB.4.0;"

_

"Data

Source="

strExcelFile

_

";Extended

Properties=Excel

8.0"

strToDBConn

=

"odbc;Driver={SQL

Server};Server=IP地址;Database=数据库名;UID=登录用户;PWD=密码"

'//

以记录集的形式打开

Excel

文件

adoConn.Open

strConn

'//

将数据插入到指定的表中

strSQL

=

"INSERT

INTO

["

strToDBConn

"].SQL数据库中的表名

SELECT

EXCEL中的字段名(第一行)

FROM

EXECL工作表名"

adoConn.Execute

strSQL,

,

adExecuteNoRecords

'//

这里有可能会产生一个错误，“系统不支持所选择的排序。(-2147467259)”

'//

但实际上已经有执行成功了，所以忽略此错误

If

Err.Number

=

-2147467259

Then

Err.Clear

End

If

aspexcel源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于开源webexcel、aspexcel源代码的信息别忘了在本站进行查找喔。