asp读取excel表时，如何格式化输出？-CSDN论坛

论坛帮助

CSDN论坛 > Web 开发 > ASP

asp读取excel表时，如何格式化输出？ [问题点数：20分，结帖人Abo]

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243 结帖率 100%: 0 2001-07-19 10:23:37 回复次数20

引用・举报・楼主

即：1、在输出的表格中数值<1的显示为.1、.53等等，如何正常输出成0.1、0.53；
2、表格中字段长短不一时，文字方向容易由水平变为垂直，如何避免这种情况。
难题解决，酌情加分！

问题点数：20分

CSDN推荐

CSDN今日推荐

⋅怎样把NT系统上的数据库搬迁到AIX小型机上去？ ⋅写了个程序通过支持AT指令的手机来发短信，现在发联通和移动的都没问题，小灵通怎么发不了？ ⋅关联两个表查询的问题（主表中25万条数据，从表中有60多万条数据），现在查询很慢，有什么优化办法？ 更多帖子 关注空间博客 gyhongjun 本版专家分：56: 0 2001-07-19 11:36:21

引用・举报・ #1 得分：0

下面的代码供你参考一下吧

<%
Response.ContentType = "application/vnd.ms-excel"
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table border="1" width="100%" bordercolorlight="#000080" bordercolordark="#0000FF" height="190">
  <tr>
    <td width="100%" colspan="12" height="30">
      <p align="center"><b>由ASP页面转换成EXCEL报表</b></td>
  </tr>
  <%for i=1 to 8%>
  <tr>
    <td width="8%" height="16" align="center"><%=1*i%></td>
    <td width="8%" height="16" align="center"><%=2*i%></td>
    <td width="8%" height="16" align="center"><%=3*i%></td>
    <td width="8%" height="16" align="center"><%=4*i%></td>
    <td width="8%" height="16" align="center"><%=5*i%></td>
    <td width="8%" height="16" align="center"><%=6*i%></td>
    <td width="8%" height="16" align="center"><%=7*i%></td>
    <td width="8%" height="16" align="center"><%=8*i%></td>
    <td width="9%" height="16" align="center"><%=9*i%></td>
    <td width="9%" height="16" align="center"><%=10*i%></td>
    <td width="9%" height="16" align="center"><%=11*i%></td>
    <td width="9%" height="16" align="center"><%=12*i%></td>
  </tr>
  <%next%>
  <tr>
   <td>=sum(a2:a9)</td>
    <td>=sum(b2:b9)</td>
    <td>=sum(c2:c9)</td>
    <td>=sum(d2:d9)</td>
    <td>=sum(e2:e9)</td>
    <td>=sum(f2:f9)</td>
    <td>=sum(g2:g9)</td>
    <td>=sum(h2:h9)</td>
    <td>=sum(i2:i9)</td>
    <td>=sum(j2:j9)</td>
    <td>=sum(k2:k9)</td>
    <td>=sum(l2:l9)</td>

  </tr>
</table>
<P align=center> </P>
</BODY>
</HTML>

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-07-19 12:45:53

引用・举报・ #2 得分：0

感谢gyhongjun(红军)回答,我的意思是客户端并不启动excel,我已用asp读取excel中的数据, 通过Response.Write"<TD>"&rs.Fields(i).Value&"</TD>"生成web表格,就是不知如何将"."前的"0"加上去?

⋅此用户还没有发表过任何帖子 关注空间博客 xurui_cn 本版专家分：0: 0 2001-07-19 15:34:54

引用・举报・ #3 得分：0

看看 asp函数中 format* 一系列函数的用法

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-07-19 16:49:19

引用・举报・ #4 得分：0

感谢xurui_cn(xurui_cn)回答,formatnumber用上它似乎老是出错,它好象不能解决数值和字符串混合的情况,请给个示例怎么样?

⋅用winsock怎么访问另一台硬件设备发送信息？ ⋅用winsock怎么访问另一台硬件设备发送信息？ ⋅vb如何读取写入到通过网卡连接的另外一台硬件 更多帖子 关注空间博客 飞沙 本版专家分：30: 0 2001-07-19 16:56:24

引用・举报・ #5 得分：0

.NumberFormat="00000.00"

不如把数据定义为字符类型把"0"写进去然后格式为
objWorkSheet.Cells(J + 1, I + 1).NumberFormat = "@"

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-07-19 17:21:39

引用・举报・ #6 得分：0

数据已被读到recordset中了,还能进行数据定义?,我干脆把源程序上来,给我修改一下如何?<%       Dim conn
         Dim rs,dbPath
      Set conn=server.CreateObject("ADODB.Connection")
     dbPath=server.MapPath("book1.xls")
     conn.Open "driver={Microsoft Excel Driver (*.xls)};DriverID=790;dbq=" & dbPath
     Set rs=Server.CreateObject("ADODB.Recordset")
     rs.Open "[sheet$]", conn, 0.5 %>
     <html> <head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"> <meta name="GENERATOR"

content="Microsoft FrontPage Express 2.0">
<title> 浏览Excel数据表</title>
     </head>
     <body bgcolor="#FFFFFF" >
     <h2 align="center">浏览Excel数据表</h2>
      <CENTER><TABLE border="0" style="font-size: 10pt"  style="border: 2 groove #000000">
        <%Response.Write "<TR BGCOLOR=#008000><TD>编号</TD>"
              For i=0 to rs.Fields.Count-1
               Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
              Next
                   Response.Write "</TR>"
                        RecNo=1
     Do While Not rs.EOF Response.Write "<TR bgColor=#e6e6e6>"
                  Response.Write"<TD>"&RecNo&"</TD>"
          for i=0 to rs.fields.count-1
                   Response.Write"<TD>"&rs.Fields(i).Value&"</TD>"
               Next
                   Response.Write "</TR>"
                     rs.MoveNext
                      RecNo=RecNo+1
                     Loop
rs.close%>
</TABLE></CENTER>
</body> </html>
上面已通过(win2k server),就是格式让人烦

网上飞飞 本版专家分：10: 0 2001-08-08 13:36:44

引用・举报・ #7 得分：0

look

⋅在JEditorPane中发生HyperlinkEvent时如何取消对MouseEvent的响应？ ⋅在JPanel上画图时为何paint()方法会被多次调用？ ⋅志愿军老兵沿街讨饭那一刻，我泪流满面 更多帖子 关注空间博客 梦之旅 本版专家分：22119 黄花 2001年8月 Web 开发大版内专家分月排行榜第二: 0 2001-08-08 13:43:04

引用・举报・ #8 得分：0

1.修改WEB SERVER机器上的控制面板--->区域选项--->数字--->零起始显示
2.用<td>标签的width属性

defore 本版专家分：1119: 0 2001-08-08 15:32:48

引用・举报・ #9 得分：0

gz

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-08-09 09:01:49

引用・举报・ #10 得分：0

感谢梦之旅回答,似乎仍不管用。

⋅在线高分求，怎样解决分栏打印！ ⋅在同一个域里面，为什么有些机器可以管理，有些不能呢？谢谢，在线等待。。。 ⋅太忙,skyonline拿份 更多帖子 关注空间博客 魚 本版专家分：106: 0 2001-08-09 10:11:06

引用・举报・ #11 得分：0

看看這段代碼!

<%

      set cn=server.createobject("adodb.connection")
    stropen="driver={microsoft excel driver (*.xls)}; dbq="& server.mappath("book1.xls")
    cn.open stropen
    Set rs=Server.CreateObject("ADODB.Recordset")
    rs.Open "Select * From [sheet1$]", cn, 2, 2%>
    <html> <head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"> <meta name="GENERATOR"

content="Microsoft FrontPage Express 2.0">
<title>Excel</title>
    </head>
    <body bgcolor="#FFFFFF" >
    <h2 align="center">Excel</h2>
      <CENTER><TABLE border="0" style="font-size: 10pt"  style="border: 2 groove #000000">
        <%Response.Write "<TR BGCOLOR=#008000><TD width=100>0</TD>"
              For i=0 to rs.Fields.Count-1
              Response.WRITE "<TD width=100>" & rs.Fields(i).Name & "</TD>"
              Next
                  Response.Write "</TR>"
                        RecNo=1
    Do While Not rs.EOF Response.Write "<TR bgColor=#e6e6e6>"
                  Response.Write"<TD width=100>"&RecNo&"</TD>"
          for i=0 to rs.fields.count-1
                  Response.Write"<TD width=100>"&rs.Fields(i).Value&"</TD>"
              Next
                  Response.Write "</TR>"
                    rs.MoveNext
                      RecNo=RecNo+1
                    Loop
rs.close%>
</TABLE></CENTER>
</body> </html>

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-08-09 17:22:25

引用・举报・ #12 得分：0

唉！haveno 不管用，再想想办法。

⋅在线高分求，怎样解决分栏打印！ ⋅在同一个域里面，为什么有些机器可以管理，有些不能呢？谢谢，在线等待。。。 ⋅太忙,skyonline拿份 更多帖子 关注空间博客 魚 本版专家分：106: 0 2001-08-09 17:28:32

引用・举报・ #13 得分：0

不可能呀,加我qq9511389和我聯系

⋅在线高分求，怎样解决分栏打印！ ⋅在同一个域里面，为什么有些机器可以管理，有些不能呢？谢谢，在线等待。。。 ⋅太忙,skyonline拿份 更多帖子 关注空间博客 魚 本版专家分：106: 0 2001-08-10 09:17:17

引用・举报・ #14 得分：0

你不是說0-1之間的數,小數點之前的"0"不顯示嗎?我這可以呀.

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-08-10 10:24:16

引用・举报・ #15 得分：0

有没有重新启动,或者还有其它设置吗?与tripofdream(梦之旅)说的有没有关系?
真奇怪?你是用上面的代码,你说还有其它的可能吗？

⋅在线高分求，怎样解决分栏打印！ ⋅在同一个域里面，为什么有些机器可以管理，有些不能呢？谢谢，在线等待。。。 ⋅太忙,skyonline拿份 更多帖子 关注空间博客 魚 本版专家分：106: 0 2001-08-10 10:42:42

引用・举报・ #16 得分：0

不可能呀,我用的就是上面的代碼"0.1"照樣輸出呀

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-08-10 10:47:33

引用・举报・ #17 得分：0

haveno(魚)兄，这也太邪了！我怎么就是出“.1”，你用的是nt,or 2000？

魚 本版专家分：106: 0 2001-08-10 10:55:02

引用・举报・ #18 得分：20

我用的是win2k

⋅求助谁能发给我一个4.71版的sapcar.exe ⋅delphi编译的文件怪不得这么大 ⋅烦恼问题 更多帖子 关注空间博客 忍者 本版专家分：243: 0 2001-08-10 11:10:23

引用・举报・ #19 得分：0

我不弄了，给你加分吧，给了个联系信箱怎么样？

⋅在线高分求，怎样解决分栏打印！ ⋅在同一个域里面，为什么有些机器可以管理，有些不能呢？谢谢，在线等待。。。 ⋅太忙,skyonline拿份 更多帖子 关注空间博客 魚 本版专家分：106: 0 2001-08-10 11:13:39

引用・举报・ #20 得分：0

haveno@163.net

收藏帖子

其他相关推荐

在ASP中把EXCEL导入ACCESS 的方法: demo.asp Dim cn,oConn,connstr 打开XLS. Set cn = Server.CreateObject("ADODB.Connection") cn.Provider = "Microsoft.Jet.OLEDB.4.0 " cn.ConnectionString = "Data Source=" & Server.MapPath("data.xls") & ";"

OLEDB方式读取Excel丢失数据的原因和解决方法: 学习笔记 OLEDB方式读取Excel丢失数据的原因和解决方法 OLEDB方式读取Excel丢失数据的原因我到网上找到的解决方法以下为互联网原文原文地址：http://www.douban.com/note/18510346/ 正文 1 引言　　在应用程序的设计中，经常需要读取Excel数据或将Excel数据导入转换到其他数据载体中，例如将Excel数据通

关于java读取Excel表格数据流出现的一系列报错问题的解决方案，含辛茹苦磨砺总结得出！: 最近在实习，公司给安排了一个功能模块要实现，做的是自定义创建投票的的功能，里面就涉及了对评委和被评选人的一键导入的功能。想到这，当然是想到上传，获取Excel表中的数据即可，由于是新手，踩在这上面的坑可是一个又一个！！！痛苦至极啊，最后万幸，百度各路答案，最后给解决了，极度怀疑，我这次出现的问题几乎就是所有会犯错的问题！立贴总结，同时方便以后学习！项目说明：ssh+maven+easyUI ...

java读取excel表格并格式化输出: 首先是需要poi jar包 import org.apache.poi.hssf.usermodel.HSSFCell; import org.apache.poi.hssf.usermodel.HSSFWorkbook; import org.apache.poi.ss.usermodel.Cell; import org.apache.poi.ss.usermodel.Row;

服务器端无法读取EXCEL文件: 服务器端无法读取EXCEL文件 2012-02-24 10:29:35| 分类： C# CSV | 标签： |举报 |字号大中小订阅【问题】在C#.net中，读取客户端EXCEL文件中的内容时，先将客户端文件上传至服务器一指定目录（当前目录的安全设置为ASP.NET完全控制权限），然后在服务端打开一个EXCEL进程，读取EXCE

ASP.NET中使用Excel导入数据到数据库: Excel导入数据到数据库 2013-03-06 16:05 by Commander lang, 3092 阅读, 0 评论, 收藏, 编辑两年前大费周章的写了个导入程序，现在要用到想直接拿来用。却找不到了。于是重新写了一遍，这里记录一下用Excel导入到数据库的过程。为下次节省时间... 思路： 1、上传Excel文件到服务器 2、将Excel内容读取出来填充

用c#读取excel文件缺少第一行数据解决方法: @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" "HDR=Yes;" indicates that the first row contains columnnames, not data "IMEX=1;" te

Asp.net 从Excel读取图片并保存，无法从内存读取图片，Excel组件和相关IIS的配置及解决办法: Asp.net 从Excel读取图片并保存，无法从内存读取图片，Excel组件和相关IIS的配置及解决办法

asp.net读取Excel文件的两种方法，NPOI方法: 第一种方法：传统方法，采用OleDB读取EXCEL文件, 优点：写法简单，缺点：服务器必须安有此组件才能用，不推荐使用 private DataSet GetConnect_DataSet2(string fileName) { DataSet myDataSet = new DataSet(); //创建一个数据链接

Unity 读取Excel表的内容: 在我们的项目开发过程中，策划们可能会配置很多的数据在一些文本文本中，例如商城物品，随机名称等，往往这些数据会放在不同的Excel当中。那么我们程序就需要通过读取Excel的内容，已供程序使用。所以这一篇就讲讲Unity如何读取Excel的内容的。准备首先我们要用到Excel.dll，ICSharpCode.SharpZipLib.dll，System.Data.dll这些库，具体的下载地址如下：h...

关闭