select如何读取文本文件再转换为excel(200分)

select如何读取文本文件再转换为excel
以下是我再网上找到的，提示为“HTTP 500 - 内部服务器错误”
<%Dim oRs
Dim oConn
Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot
oConn.Open &quot;DBQ=&quot;+server.mappath(&quot;/test.txt&quot+&quot;;DefaultDir=;DRIVER={Microsoft Text Driver (*.txt;
*.csv)};Extensions=asc,csv,tab,txt;&quot;
'oConn.Open &quot;Driver={Microsoft Text Driver (*.txt;
*.csv)};Dbq=&quot;
&Server.Mappath(&quot;/&quot & &quot;;Extensions=asc,csv,tab,txt;&quot;
'DB_name=&quot;DBQ=&quot;+server.mappath(&quot;/crct.asa&quot+&quot;;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};&quot;
Sql = &quot;Select * From test.txt&quot;
Set oRs = Server.CreateObject(&quot;ADODB.RecordSet&quot
oRs.Open Sql,oConn,1,1
Response.Write &quot;<table border=1 width=400>&quot;
Response.Write &quot;<tr><td>编号</td><td>用户名</td><td>密码</td></tr>&quot;
Do While Not oRs.Eof
Response.Write &quot;<tr><td>&quot;
& oRs(0) & &quot;
</td><td>&quot;
& oRs(1) & &quot;
</td><td>&quot;
& oRs(2) & &quot;
</td></tr>&quot;
oRs.MoveNext
Loop
Response.Write &quot;</table>&quot;
%>

將文本文件再轉換為CSV逗號分隔就是EXCEL文件了。

我决得这个网址大全很实用的,请大家多多支持
http://16311.855.com

xx