近一万条记要的EXCEL，采用ASP读取，数据不能显示完整-ASP教程-爱易网页

近一万条记要的EXCEL，采用ASP读取，数据不能显示完整

日期：2014-05-17　浏览次数：20992 次

近一万条记录的EXCEL，采用ASP读取，数据不能显示完整
近一万条记录的EXCEL，采用ASP读取，数据不能显示完整，但是EXCEL记录减少到几百条都是正常显示的，请问如何办？
代码：

VBScript code


If Request.QueryString("action")="do" Then 
Dim conn 
Dim StrConn 
Dim Rs 
Dim Sql 
Dim i 
Dim ExName 
ExName = Request.Form("ExName") 
ExTName = Request.Form("ExTName") 
Set conn =Server.CreateObject("ADODB.Connection") 
'开始使用的StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("excel/"&ExName)
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("excel/"&ExName)";& Extended Properties="&Excel 8.0;HDR=Yes;IMEX=1"   
 '读取所有数据,这个稳定
 StrConn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("excel/"&ExName)&";Extended Properties='Excel 8.0;HDR=1;IMEX=1'"
conn.Open StrConn 

Set rs = Server.CreateObject("ADODB.Recordset")  
Sql="select * from ["&ExTName&"$]" 
rs.Open Sql,conn,1,1 
if Err.Number <> 0 then
response.write "<p><p><p><p><p><br><br><br><br><br><center><br><br>对不起，发生错误。<br><br>错误提示:请确认您选择的EXCEL数据表格式是否标准！</center>"
response.write "<p><p><p><p><br><br><br><center><a href='javascript:history.back(-1)'>点击返回</a></center>"
response.end
End if
%> 
  <body bgcolor="#C3DAF9">

  <form method=post action="in.Asp" name=form1 onSubmit="return chk(this)"> 
<div align="center">
<table width="80%" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr align=center height=20>  
      <td bgcolor="#698CC3"><font size="5" face="楷体_GB2312">程序已经读出的Excel中的数据列表，请点击
        最下面的  导入到数据库  按钮</font></td> 
  </tr> 
  <tr> 
<td align="center"> 
<input name=Count type=hidden value="<%=rs.Fields.Count%>" size="4"> 
<% 
for i=0 to rs.Fields.Count-1  
%> 
<input name="ExFName<%=i%>" value="<%=Rs(i).Name%>" readonly size="7" Class="fr2" align=center> 
<% 
Next 
Response.Write "</td></tr></table><table width=80%  border=1 cellspacing=0 cellpadding=4 align=center bordercolordark=#FFFFFF bordercolorlight=#CCCCCC>" 
Response.Write "<tr bgcolor=white><td align=center>" 
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 
%> 
<input name="ExCName<%=a%>" value="<%=Rs(i)%>" size="7" Class="fr2"> 

<% 
a = a +1 
next 
rs.MoveNext 
Loop 
Response.Write "</td></tr><tr><td align=center><input name='A' type=hidden value="&a&"><input type=submit value=导入到数据库 Class=fr2></td></tr></table>" 
Response.Write "<input type='hidden' name='ExTname' value="&ExTname&">"
Response.Write "</form>" 
rs.close 
set rs=nothing 
conn.close 
set StrConn=nothing 
Response.End 
End if

------解决方案--------------------
分段记录吧
------解决方案--------------------
用分页显示，或者动态加载参考 http://topic.csdn.net/u/20101217/01/723b746e-a62e-408d-b76c-3800d8f9d05f.html

免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。

近一万条记要的EXCEL，采用ASP读取，数据不能显示完整

相关资料更多>

推荐阅读更多>