|
#2
nicechlk2010-04-03 19:47
|
大家看我的代码：
dim FSO,Path,FS,ObjFile
set FSO=Server.CreatObject("Scripting.FileSystemObject")
Path=Server.MapPath("./Upload")
set FS=FSO.GetFolder(Path)
For each ObjFile in FS.Files
dim f_name,f_date,f_size,f_url
f_name=ObjFile.name
f_date=ObjFile.DateLastModified
f_size=f_size\1024
f_size=f_size&"k"
f_url="Upload"&"/"&f_name
dim rs
set rs=conn.execute("select * from product where img_url='"&f_url&"'")
dim pro_id,pro_name,pro_img,pro_BigClass,pro_SmallClass
pro_id=rs("id")
pro_name=rs("product_name")
pro_img=rs("img_url")
pro_BigClass=rs("BigClassName")
pro_SmallClass=rs("SmallClassName")
response.write "<table><tr>"
response.write "<td>"&pro_id&"</td><td>"&pro_name&"</td><td>"&pro_size&"</td><td>"&pro_img&"</td>"
response.write "<td>"&pro_BigClass&"</td><td>"&pro_SmallClass&"</td>"
response.write "</tr></table>"
next
rs.close
set rs=nothing
FS.close
set FS=nothing
FSO.close
set FSO=nothing
这段代码有错误吗？
为何循环出来的结果图片文件和大类pro_BigClass和pro_SmallClass不是一一对应呢？（文件名称、大小都是对的）
也就是说，有些图片根本就没有大小类，但是也会出现大小类。还有的图片对应的都是同一个产品，这不是很奇怪吗？
[ 本帖最后由 nicechlk 于 2010-4-4 13:46 编辑 ]