<% @ LANGUAGE="VBSCRIPT" %>
<%
Dim txtname(10)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
path=Server.MapPath("txt")
Set myfolder=fso.GetFolder(path)
i=0
For Each thing In myfolder.files
txtname(i)=fso.GetFileName(thing)
i=i+1
Next
For I=0 to UBound(txtname)-1
truename=myfolder & "\" & txtname(i)
set ts=fso.opentextfile(truename)
txt=txt & ts.ReadAll
Next
ts.close
set fso=nothing
Set DataConn=Server.CreateObject("ADODB.Connection")
DataConn.Open "DSN=Database;Uid=sa;Pwd="
strSQL="INSERT INTO Table(txtContent) VALUES('" & txt & "')"
DataConn.Execute strSQL
Set DataConn=Nothing
%>
不明白再问,我没写注释!!!:)
<% @ LANGUAGE="VBSCRIPT" %>
<%
Dim txtname(10)
Set fso=Server.CreateObject("Scripting.FileSystemObject")
path=Server.MapPath("txt")
Set myfolder=fso.GetFolder(path)
i=0
For Each thing In myfolder.files
txtname(i)=fso.GetFileName(thing)
i=i+1
Next
For I=0 to UBound(txtname)-1
truename=myfolder & "\" & txtname(i)
set ts=fso.opentextfile(truename)
txt=txt & ts.ReadAll
Next
ts.close
set fso=nothing
Set DataConn=Server.CreateObject("ADODB.Connection")
DataConn.Open "DSN=Database;Uid=sa;Pwd="
strSQL="INSERT INTO Table(txtContent) VALUES('" & txt & "')"
DataConn.Execute strSQL
%>
不明白再问,我没写注释!!!:)
set fso=server.createobject("scripting.filesystemobject")
set folds=fso.getfolder(foldspath)
i =0
for each thing in folds.files
file(i)=thing
response.write "<br>"&file(i)
i=i+1
next
运行时出现“类型不匹配:‘file'”的错误。
请xtra兄指点。
xtra兄:感谢您的回复。
您的方法实现起来似乎有点困难,比如:
set fso=server.createobject("scripting.filesystemobject")
set myfolds=fso.getfolder(foldsPath)
for each thing in myfolds.files
{处理程序}
next
显然处理程序中对每一个文件进行读入,并将读入的数据存入数据库,但问题就在
这儿,比如:
set conn=server.createobject("adodb.connection")
conn.open ……
set rs=server.createobject("adodb.recordset")
rs.open ……
(以下略)