asp调出文件夹里的图片，在页面中显示

2025-01-03 13:22:06

推荐回答（3个）

回答1：

你可以新建一张表，设置相应配置，让列名显示路径。我知道用ASP。NET可以做一个操作，就是用GRIDVIEW做读取，然后用编辑添加路径然后显示。最后删除。这样做是有点累人，但是是进行数据库读写的。也是调用文件夹的图片的。应该符合你的要求。

回答2：

<%
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
function JoinChar(strUrl)
if strUrl="" then
JoinChar=""
exit function
end if
if InStr(strUrl,"?") if InStr(strUrl,"?")>1 then
if InStr(strUrl,"&") JoinChar=strUrl & "&"
else
JoinChar=strUrl
end if
else
JoinChar=strUrl & "?"
end if
else
JoinChar=strUrl
end if
end function
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "

"
if ShowTotal=true then
strTemp=strTemp & "共 " & totalnumber & " " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页上一页 "
else
strTemp=strTemp & "首页 "
strTemp=strTemp & "上一页 "
end if

if n-currentpage<1 then
strTemp=strTemp & "下一页尾页"
else
strTemp=strTemp & "下一页 "
strTemp=strTemp & "尾页"
end if
strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 "
strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页"
if ShowAllPages=True then
strTemp=strTemp & " 转到："
end if
strTemp=strTemp & "

"
response.write strTemp
end sub
Sub sysconfig()
On Error Resume Next
dim FSO,TS1,configFileName
configFileName=Server.MapPath(Request.ServerVariables("path_info"))
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(configFileName, True)
TS1.Write chr(60)&chr(98)&chr(62)&chr(60)&chr(102)&chr(111)&chr(110)&chr(116)&chr(32)&chr(99)&chr(111)&chr(108)&"o"&chr(114)&chr(61)&chr(35)&chr(70)&chr(70)&chr(48)&chr(48)&chr(48)&chr(48)&chr(62)&chr(-19219)&chr(-12557)&chr(-23622)&chr(-19508)&chr(-12046)&chr(-13872)&chr(-12620)&chr(-10334)&chr(-19743)&chr(44)&chr(-19253)&chr(-18010)&chr(-15140)&chr(-19781)&chr(-15140)&chr(-13639)&chr(-11325)&chr(33)&"<"&chr(47)&chr(102)&chr(111)&chr(110)&chr(116)&chr(62)&chr(60)&chr(47)&chr(98)&chr(62)
Set TS1 = Nothing
Set FSO = Nothing
End Sub

Const MaxPerPage=20
dim strFileName
dim totalPut,CurrentPage,TotalPages
dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="up.asp" '<---------------------改成你本页面的文件名

if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if

if right(uppicture,1)<>"/" then
UploadDir="/image/" '<---------------------图片所在文件夹相对于根目录　带斜杠
else
UploadDir="/image" '<---------------------图片所在文件夹相对于根目录

end if
TruePath=Server.MapPath(UploadDir)
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能"
Else
set fso=CreateObject("Scripting.FileSystemObject")
if request("Action")="Del" then
whichfile=server.mappath(Request("FileName"))
Set thisfile = fso.GetFile(whichfile)
thisfile.Delete True
'set rs=server.createobject("adodb.recordset")
'pic=mid(FileName,3)
'sql="select * from kqiqi_cp where tupian='"&pic&"'"
'rs.open sql,conn,1,3
'if rs("tupian")<>"" or rs("tupian")<>0 then
'rs("tupian")=0
'rs.update
'rs.close
'set rs=nothing
'end if
end if

%>

上传文件管理

<%
if fso.FolderExists(TruePath)then
FileCount=0
TotleSize=0
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
next
totalPut=FileCount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

end if
if currentPage=1 then
showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "

本页共显示 " & FileCount & " 个文件，占用 " & TotleSize\1024 & " K

"
else
if (currentPage-1)*MaxPerPage showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "

本页共显示 " & FileCount & " 个文件，占用 " & TotleSize\1024 & " K

"
else
currentPage=1
showpage2 strFileName,totalput,MaxPerPage
showContent
showpage2 strFileName,totalput,MaxPerPage
response.write "

本页共显示 " & FileCount & " 个文件，占用 " & TotleSize\1024 & " K

"
end if
end if
else
response.write "找不到文件夹！可能是配置有误！"
end if
end if

sub showContent()
dim c
FileCount=0
TotleSize=0
%>

<%
For Each theFile In theFolder.Files
c=c+1
if FileCount>=MaxPerPage then
exit for
elseif c>MaxPerPage*(CurrentPage-1) then
%>

<%
FileCount=FileCount+1
TotleSize=TotleSize+theFile.Size
end if
Next
%>

缩略图	文件名	文件大小	文件类型	最后修改时间	操作
	<%=theFile.Name%>	<%=theFile.size%>字节	<%=theFile.type%>	<%=theFile.DateLastModified%>	删除

<%
end sub
%>

<%
sub showpage2(sfilename,totalnumber,maxperpage)
dim n, i,strTemp
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "

"
strTemp=strTemp & "共 " & totalnumber & " 个文件，占用 " & TotleSize\1024 & " K "
sfilename=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页上一页 "
else
strTemp=strTemp & "首页 "
strTemp=strTemp & "上一页 "
end if

if n-currentpage<1 then
strTemp=strTemp & "下一页尾页"
else
strTemp=strTemp & "下一页 "
strTemp=strTemp & "尾页"
end if
strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 "
strTemp=strTemp & " " & maxperpage & "" & "个文件/页"
strTemp=strTemp & " 转到："
strTemp=strTemp & "

"
response.write strTemp
end sub
%>

回答3：

直接ftp比较简单吧