我用下列代码读取一个上传到临时文件夹的excel文件,读取的数据对应很正常,可是有的数据却出现了空值.
比如:
原本的数据是 读取后的数据是
id number name id number name
1 001 小张 1 001 小张
2 002 小王 2 002 小王
3 003 小李 3 003 小李
4 004 小飞 4 小飞 这里出现空值
5 005 小赵 5 小赵 这里也出现了空值
这样到底是什么原因?我看了我上传的excel文件,数据完全没有问题
下面是我的代码.请大家帮帮我看看,十分感谢!!
<%Dim conn
Dim StrConn
Dim Rs
Dim Sql
Dim i
Dim ExName
Dim ExTName
ExName = Request.Form("ExName")
ExTName = Request.Form("ExTName")
Set conn =Server.CreateObject("ADODB.Connection")
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath(""&Request.Form("url1")) Server.MapPath(Request.Form("url1"))
StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="&Server.MapPath("../"&Request.Form("url1"))
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ=D:\电力学校\200772738814437.xls"\\cqep\excel\linshi\
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="&Request.Form("file1")
conn.Open StrConn
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from ["&ExTName&"$]"
rs.Open Sql,conn,3,3
%>
<title>显示数据</title>
<!--p align="center">请确认excel表中的字段与ACC表中的字段相同！ </p-->
<form id="form1" name="form1" method="post" action="save.asp?id=<%=request.querystring("id")%>"> <table width=100% border=1 bordercolor=#000000 align=center cellspacing=0 bgcolor=#6699CC valign=top>
<tr>
<%
for ii=0 to rs.Fields.Count-1
%>
<td align=center><input name=piaoy<%=ii%> value="<%=Rs(ii).Name%>" size="10"></td>
<%Next%>
</tr>
</table>
<input name="recCnt" type="hidden" id="recCnt" maxlength="1" value="<%=rs.RecordCount%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" valign=top>
<tr>
<% Response.Write "<table width=100% border=1 align=center cellspacing=0 bgcolor=#6699CC bordercolor=#000000>"
'Response.Write "<tr bgcolor=white><td align=center>"
Response.Write "<tr bgcolor=white>"
Dim a
a=0
do while not rs.eof
for i=0 to rs.Fields.Count-1
if i mod rs.Fields.Count = 0 then
'Response.Write "<br>"
End if
%>
<td align=center bgcolor=white><input name=<%=Rs(i).Name%> value="<%=Rs(i)%>" size="10"></td>
<%
a = a +1
next
rs.MoveNext
Response.Write "</tr>"
Loop
Response.Write "<tr><td align=center colspan=3><input type=submit value=筛选未补课学员></td></tr></table>"
Response.Write "</form>"
rs.close
set rs=nothing
conn.close
set StrConn=nothing
Response.End
%>
</tr>
</table>
</form>
