asp读取文件夹所有文件名更新到sql数据库对应字段中

来源:百度知道 编辑:UC知道 时间:2024/07/03 04:49:47
<!--#include file="**.inc" -->
<%

dim fso,mydir,dname,cc
Set Fso=server.createobject("Scripting.FileSystemObject")
set mydir=fso.getfolder(server.mappath("/YLCN/Shop/personPhotos/"))

for each item in mydir.files

dname=item.path

htmfile=replace(dname,mydir&"\","")
cc=left(htmfile,len(htmfile)-4)
sql="select * from btype "'where usercode =&cc
rs.open sql,conn,1,3
rs("picturename")=cc
rs.update
rs.close
Set rs = Nothing
response.write "<a href=""&server.URLEncode(cc)&"" target=_blank>"&cc&"</a><br>"
next
%>
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'
/x1.asp, 第 15 行
上面变更为sql="select * from btype where usercode"=&cc
语法错误
/x1.asp, line 14, column 41
sql="select * fro

<!--#include file="**.inc" -->
<%

dim fso,mydir,dname,cc
set rs=server.createobject("adodb.recordset")
Set Fso=server.createobject("Scripting.FileSystemObject")
set mydir=fso.getfolder(server.mappath("/YLCN/Shop/personPhotos/"))

for each item in mydir.files

dname=item.path

htmfile=replace(dname,mydir&"\","")
cc=left(htmfile,len(htmfile)-4)
sql="select * from btype "'where usercode =&cc
rs.open sql,conn,1,3
rs("picturename")=cc
rs.update
rs.close
Set rs = Nothing
response.write "<a href=""&server.URLEncode(cc)&"" target=_blank>"&cc&"</a><br>"
next
%>

Set rs=server.createobject("adobe.recordset")

你都没有建立记录集