【４０1分求助】各位请出招。顶者送分。

wxylvmnn 2005-07-21 09:09:30

另外400分在这2个贴子，详情请到这2贴来看一眼。

http://community.csdn.net/Expert/topic/4154/4154598.xml?temp=7.693118E-02
http://community.csdn.net/Expert/topic/4154/4154602.xml?temp=.366543

现在的问题（也是我唯一想到的方法）是一次性把CSV数据全部通过FSO读入。

使用FSO代码如下：
----------------------------------------------------------------
<script language="VBScript">

Set FS = CreateObject("Scripting.FileSystemObject")

ErrInfo1 = "<div class=" & "red" & "><b>"
ErrInfo2 = "<b></div><br>"

...'此处省略判断是否存在文件的代码

Set fileName = FS.OpenTextFile(readFile)

Do While (Not fileName.AtEndOfStream)
Do While (Not fileName.AtEndOfLine)
readText = fileName.ReadLine

aryFileInfo = Split(readText,",")

For intIndex = 0 To Ubound(aryFileInfo)
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex))," ","　")
aryFileInfo(intIndex) = Replace(Trim(aryFileInfo(intIndex)),">","＞")
Next

Data = Data & "<input type=""hidden"" value=" & Join(aryFileInfo,",") & _
" name=""strFileInfo"" size=""100"">"

Loop
If Not fileName.AtEndOfStream And fileName.AtEndOfLine Then
readText = fileName.ReadLine
End If
Loop

If Data <> "" Then
window.HidSpan.innerHTML = Data
End If

set FS = nothing

window.document.form1.action = "B.asp"
window.document.form1.target = "_self"
window.document.form1.submit()

</script>
------------------------------------------------------------

测试数据：6000条。

耗时：超过30秒

我哭啊......

...全文

164 21 打赏收藏转发到动态举报

写回复

用AI写文章

21 条回复

切换为时间正序

请发表友善的回复…

发表回复

R_Kill 2005-07-27

打赏
举报

...............

xtpdcyygy 2005-07-27

打赏
举报

uhopenet 2005-07-27

打赏
举报

顶一下

wxylvmnn 2005-07-27

打赏
举报

哎``

越搞越麻烦。

因为DLL放在SERVER端，dll的fso读的时候，判断路径不可能去客户端判断。

所以，需要先把客户端的CSV先copy到SERVER端特定的路径下，然后dll读fso，然后再删除server端的csv。

大家觉得这样合理不？

把csv从客户端copy到server端，不使用脚本的fso，有没有其它方法，没有吧~~~

wxylvmnn 2005-07-27