求大神解释下这段代码是几个意思

显示全部楼层 · 2021-1-27 05:54:13

iffile.FileSize>0then''如果FileSize>0说明有文件数据
setrs=server.CreateObject("Adodb.recordset")
sql="select*fromuser_infowhereuser_id="&session("user_id")
rs.opensql,conn,1,3
ifrs("shop_img")""then
tempfpath=rs("shop_img")
FiLePaTh=Server.MapPath(tempfpath)
Setfso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Setfso=nothing
endif
newname=user_id&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName,".")+1)
file.SaveAsServer.mappath(formPath&newname)''保存文件
iCount=iCount+1
else
response.write"未找到文件返回"
response.end
endif
next
rs("shop_img")="uploadfiles/"&newname
rs.Update
rs.close

rs("shop_img")="uploadfiles/"&newname这句最后输出的值会是什么
分 -->

千问 · 2021-1-27 05:54:13

file有内容》从Database中取得图片路径，路径不为空则删除图片》取得新文件名并保存文件；
file无内容，输出“未找到文件”。
不明确的东西太多，还有一个循环，你最后的问题回答不了。

千问 · 2021-1-27 05:54:13

iffile.FileSize>0then''如果FileSize>0说明有文件数据
setrs=server.CreateObject("Adodb.recordset")
sql="select*fromuser_infowhereuser_id="&session("user_id")
rs.opensql,conn,1,3
ifrs("shop_img")""then
’删除原来保存的文件
tempfpath=rs("shop_img")
FiLePaTh=Server.MapPath(tempfpath)
Setfso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(FiLePaTh)
Setfso=nothing
endif
newname=user_id&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName,".")+1)
file.SaveAsServer.mappath(formPath&newname)''保存文件
iCount=iCount+1
else
response.write"未找到文件返回"
response.end
endif
'next'这个next放的位置不对！
'将新文件名存入表中
rs("shop_img")="uploadfiles/"&newname
rs.Update
rs.close

千问 · 2021-1-27 05:54:13

引用楼主lzy1610的回复:rs("shop_img")="uploadfiles/"&newname这句最后输出的值会是什么
意思是根据原用户名读取他对对应的一个图片文件，并判断其是否存在，存在就删除。
感觉这貌似是一个修改用户名和图像的程序
接下来是读取新的用户名，关根据用户名生成对应的图片，再将生成的文件名，更新到对应的表里。