-
本版专家分：243结帖率 100% -
即：1、 在输出的表格中数值<1的显示为.1、.53等等，如何正常输出成0.1、0.53；
2、 表格中字段长短不一时，文字方向容易由水平变为垂直，如何避免这种情况。
难题解决，酌情加分！
-
本版专家分：56 -
下面的代码供你参考一下吧
<%
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>
-
本版专家分：243
-
感谢gyhongjun(红军)回答,我的意思是客户端并不启动excel,我已用asp读取excel中的数据, 通过Response.Write"<TD>"&rs.Fields(i).Value&"</TD>"生成web表格,就是不知如何将"."前的"0"加上去?
-
本版专家分：243
-
感谢xurui_cn(xurui_cn)回答,formatnumber用上它似乎老是出错,它好象不能解决数值和字符串混合的情况,请给个示例怎么样?
-
本版专家分：30
-
.NumberFormat="00000.00"
不如把数据定义为字符类型 把"0"写进去然后格式为
objWorkSheet.Cells(J + 1, I + 1).NumberFormat = "@"
-
本版专家分：243
-
数据已被读到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
-
look
-
本版专家分：22119
-
- 黄花 2001年8月 Web 开发大版内专家分月排行榜第二
-
-
1.修改WEB SERVER机器上的控制面板--->区域选项--->数字--->零起始显示
2.用<td>标签的width属性
-
本版专家分：106
-
看看這段代碼!
<%
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>
-
本版专家分：243
-
有没有重新启动,或者还有其它设置吗?与tripofdream(梦之旅)说的有没有关系?
真奇怪?你是用上面的代码,你说还有其它的可能吗？