把文件夹中的文件名写到数据库

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% '&:数据库名data 表zp 字段zp_zp
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb") '数据库连接
Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例
FF = Server.MapPath("/s") '定义文件夹
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") '建立FSO对象
If objFSO.FolderExists(ff) Then '判断文件夹中是否有文件存在
Response.write "文件夹 "&ff&" 里所有的文件：<br>" '显示文件夹所在的路径
Set objFolder = objFSO.GetFolder(ff) '建立文件读取
For Each objFile in objFolder.Files '判断文件夹有多少条记录再循环
wj=objFile.Name
set rs=conn.execute("select * from zp where zp_zp='"&wj&"'") '查询数据库是否有相同记录
if rs.eof and rs.bof then
conn.execute("insert into zp (zp_zp) values ('"&wj&"')") '写入数据库
Response.Write wj& "<br>"
else
response.Write("数据库有同名")
response.end()
end if
Next
Else
Response.Write "文件夹"&ff&"不存在，无法读取相关信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>

 

原文标题：把文件夹中的文件名写到数据库--QQ技术交流群:90991311
原文网址：http://www.jixinfz.cn/asp/6.asp?id=198