亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > ASP > 正文

如何在瀏覽文件夾下面瀏覽所有圖片

2024-05-04 11:05:08
字體:
來源:轉載
供稿:網友
計算機是每個人生活中不可缺少的一部分,它給我們帶來了很多便利和樂趣,但是有一部分朋友不熟悉這些操作,例如如何在瀏覽文件夾下面瀏覽所有圖片,錯新技術頻道小編帶你了解!

<%
'+-----------------------------------+
'|?????變量設置
'+-----------------------------------+
cTitle?=???"所有上傳圖片(注:以下為圖片文件夾下面所有圖片,并非全部為有效圖片!)"???'名字
cPicType?=???"jpeg,jpg,gif,png,bmp"???'圖片類型???(使用","將圖片格式分開)
cHeight?=???120???'縮圖高度
cWidth?=???120???'縮圖寬度
cEachLineMax?=???5?'每行顯示圖片數
cEachPageMax?=???20???'每頁顯示圖片數目
pic_path="/uploadpic/"?'設定圖片所在路徑
'+-----------------------------------+
'|?????定義函數
'+-----------------------------------+
Function???getExt(name)
getExt???=???right(name,???3)
End???Function

Function???isPIC(fileName,???picType)
ext???=???getExt(fileName)
isPIC???=???False
typeList???=???split(picType,???",")
For???ii???=???LBound(typeList)???To???UBound(typeList)
If???UCase(ext)???=???UCase(typeList(ii))???Then
isPIC???=???True
Exit???For
End???If
Next
End???Function

Function???pageBar(page,???pageTotal)
response.Write???"[???上一頁???]?"
response.Write???"
<<???"
i???=???pageStart
Do???while???i???<???page
response.Write???"
["???&???i???&???"]?"
i???=???i???+???1
Loop
response.Write???"["???&???page???&???"]"
i???=???pageMiddle
Do???while???i???<=???pageEnd
response.Write???"
["???&???i???&???"]?"
i???=???i???+???1
Loop
response.Write???"...
["???&???pageTotal???&???"]"
response.Write???"???
>>"
response.Write???"[???
下一頁???]?共???"???&???pageTotal???&???"???color=red>???頁??當前所在第???"???&???page???&???"???color=red>???頁???圖片數???:???"???&???picTotal???&???"???color=red>"
End???Function
'+-----------------------------------+
'|?????取圖片尺寸類
'+-----------------------------------+
Class???possible
??dim???aso
??Private???Sub???Class_Initialize
????set???aso=CreateObject("Adodb.Stream")
????aso.Mode=3???
????aso.Type=1???
????aso.Open???
??End???Sub
??Private???Sub???Class_Terminate
????set???aso=nothing
??End???Sub
??Private???Function???Bin2Str(Bin)
????Dim???K,???Str
????For???K=1???to???LenB(Bin)
??????clow=MidB(Bin,K,1)
??????if???ASCB(clow)<128???then
????????Str???=???Str???&???Chr(ASCB(clow))
??????else
????????K=K+1
????????if???K???<=???LenB(Bin)???then???Str???=???Str???&???Chr(ASCW(MidB(Bin,K,1)&clow))
??????end???if
????Next???
????Bin2Str???=???Str
??End???Function

??Private???Function???Num2Str(num,base,lens)
????dim???ret
????ret???=???""
????while(num>=base)
??????ret???=???(num???mod???base)???&???ret
??????num???=???(num???-???num???mod???base)/base
????wend
????Num2Str???=???right(string(lens,"0")???&???num???&???ret,lens)
??End???Function

??Private???Function???Str2Num(str,base)
????dim???ret
????ret???=???0
????for???k=1???to???len(str)
??????ret???=???ret???*base???+???cint(mid(str,k,1))
????next
????Str2Num=ret
??End???Function

??Private???Function???BinVal(bin)
????dim???ret
????ret???=???0
????for???k???=???lenb(bin)???to???1???step???-1
??????ret???=???ret???*256???+???ascb(midb(bin,k,1))
????next
????BinVal=ret
??End???Function

??Private???Function???BinVal2(bin)
????dim???ret
????ret???=???0
????for???k???=???1???to???lenb(bin)
??????ret???=???ret???*256???+???ascb(midb(bin,k,1))
????next
????BinVal2=ret
??End???Function

??Private???Function???getImageSize(filespec)???
????dim???ret(3)
????aso.LoadFromFile(filespec)
????bFlag=aso.read(3)
????select???case???hex(binVal(bFlag))
????case???"4E5089":
??????aso.read(15)
??????ret(0)="PNG"
??????ret(1)=BinVal2(aso.read(2))
??????aso.read(2)
??????ret(2)=BinVal2(aso.read(2))
????case???"464947":
??????aso.read(3)
??????ret(0)="GIF"
??????ret(1)=BinVal(aso.read(2))
??????ret(2)=BinVal(aso.read(2))
????case???"535746":
??????aso.read(5)
??????binData=aso.Read(1)
??????sConv=Num2Str(ascb(binData),2???,8)
??????nBits=Str2Num(left(sConv,5),2)
??????sConv=mid(sConv,6)
??????while(len(sConv)????????binData=aso.Read(1)
????????sConv=sConv&Num2Str(ascb(binData),2???,8)
??????wend
??????ret(0)="SWF"
??????ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
??????ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
????case???"FFD8FF":
??????do???
????????do:???p1=binVal(aso.Read(1)):???loop???while???p1=255???and???not???aso.EOS
????????if???p1>191???and???p1<196???then???exit???do???else???aso.read(binval2(aso.Read(2))-2)
????????do:p1=binVal(aso.Read(1)):loop???while???p1<255???and???not???aso.EOS
??????loop???while???true
??????aso.Read(3)
??????ret(0)="JPG"
??????ret(2)=binval2(aso.Read(2))
??????ret(1)=binval2(aso.Read(2))
????case???else:
??????if???left(Bin2Str(bFlag),2)="BM"???then
????????aso.Read(15)
????????ret(0)="BMP"
????????ret(1)=binval(aso.Read(4))
????????ret(2)=binval(aso.Read(4))
??????else
????????ret(0)=""
??????end???if
????end???select
????ret(3)="width="""???&???ret(1)???&"""???height="""???&???ret(2)???&""""
????getimagesize=ret
??End???Function?
Function???readX(pic_path)
??????Set???fso1???=???server.CreateObject("Scripting.FileSystemObject")
??????Set???f1???=???fso1.GetFile(pic_path)
??????ext=fso1.GetExtensionName("."&pic_path)
??????select???case???UCase(ext)
??????????case???"GIF","BMP","JPG","PNG":
????????arr=getImageSize(f1.path)
????????readX???=???arr(1)
??????????case???"swf"
????????arr=pp.getimagesize(f1.path)
????????readX???=???arr(1)
??????end???select
??????Set???f1=nothing
??????Set???fso1=nothing
??End???Function
??Function???readY(pic_path)
??????Set???fso1???=???server.CreateObject("Scripting.FileSystemObject")
??????Set???f1???=???fso1.GetFile(pic_path)
??????ext=fso1.GetExtensionName("."&pic_path)
??????select???case???UCase(ext)
??????????case???"GIF","BMP","JPG","PNG":
????????arr=getImageSize(f1.path)
????????readY???=???arr(2)
??????????case???"swf"
????????arr=pp.getimagesize(f1.path)
????????readY???=???arr(2)
??????end???select
??????Set???f1=nothing
??????Set???fso1=nothing
??End???Function
End???Class
'+-----------------------------------+
'|?????數據處理
'+-----------------------------------+
Dim???fileArray()
reDim???fileArray(0)
Set???fileObj?=???Server.CreateObject("Scripting.FileSystemObject")
Set???folderObj?=???fileObj.GetFolder(server.MapPath("."&pic_path))
i???=???0
For???Each???file???in???folderObj.Files
If???isPIC(file.Name,???cPicType)???Then
fileArray(i)???=???file.Name
i???=???i???+???1
reDim???Preserve???fileArray(i)
End???If?
Next
Set???FileObj?=???Nothing
Set???FolderObj?=???Nothing
picTotal???=???UBound(fileArray)
'+-----------------------------------+
'|?????分頁處理
'+-----------------------------------+
page???=???int(Request.QueryString("page"))
pageTotal???=???-(int(-(picTotal/cEachPageMax)))
If???page???=???Empty???or???page???<???0???Then???page???=???1
If???page???>???pageTotal???Then???page???=???pageTotal
offset???=???cEachPageMax???*???page
start???=???offset???-???cEachPageMax
If???start???<???0???Then???start???=???0
If???offset???>???picTotal???Then???offset???=???picTotal
pageStart???=???page???-???cEachPageMax
If???pageStart???<=???0???Then???pageStart???=???1
pageMiddle???=???page???+???1
pageEnd???=???pageMiddle???+???cEachPageMax
If???page???<=???cEachPageMax???Then???pageEnd???=???cEachPageMax???*???2
If???pageEnd???>???pageTotal???Then???pageEnd???=???pageTotal
'+-----------------------------------+
'|?????輸出部分
'+-----------------------------------+
%>




???type='text>



");
function???showPopupText(){
var???o=event.srcElement;
MouseX=event.x;
MouseY=event.y;
if(o.alt!=null???&&???o.alt!="")???{???o.pop=o.alt;o.alt=""???}
if(o.title!=null???&&???o.title!=""){???o.pop=o.title;o.title=""???}
if(o.pop)???{???o.pop=o.pop.replace("/n","
");???o.pop=o.pop.replace("/n","
");???}
if(o.pop!=sPop)???{
sPop=o.pop;
clearTimeout(curShow);
clearTimeout(tFadeOut);
clearTimeout(tFadeIn);
clearTimeout(tFadeWaiting);?
if(sPop==null???||???sPop=="")???{
popLayer.innerHTML="";
popLayer.style.filter="Alpha()";
popLayer.filters.Alpha.opacity=0;?
}???else???{
if(o.dyclass!=null)???popStyle=o.dyclass???
else???popStyle="cPopText";
curShow=setTimeout("showIt()",tPopWait);
}
}
}
function???showIt()???{
popLayer.className=popStyle;
popLayer.innerHTML='
??'+sPop+'??

';
popWidth=popLayer.clientWidth;
popHeight=popLayer.clientHeight;
if(MouseX+12+popWidth>document.body.clientWidth)???popLeftAdjust=-popWidth-24
else???popLeftAdjust=0;
if(MouseY+12+popHeight>document.body.clientHeight)???popTopAdjust=-popHeight-24
else???popTopAdjust=0;
popLayer.style.left=MouseX+12+document.body.scrollLeft+popLeftAdjust;
popLayer.style.top=MouseY+12+document.body.scrollTop+popTopAdjust;
popLayer.style.filter="Alpha(Opacity=0)";
fadeOut();
}
function???fadeOut(){
if(popLayer.filters.Alpha.opacitypopLayer.filters.Alpha.opacity+=showPopStep;
tFadeOut=setTimeout("fadeOut()",1);
}
}
document.onmouseover=showPopupText;





?


<%=cTitle%>



<%???pageBar???page,???pageTotal???%>





<%
'+-----------------------------------+
'|?????循環輸出圖片
'+-----------------------------------+
j???=???1
i???=???start
Set???pp???=???New???possible
Do???While???i???<???offset
thisPicPath???=???server.mappath("."&pic_path??&???fileArray(i))
x???=???pp.readX(thisPicPath)
y???=???pp.readY(thisPicPath)
If???x???>???cWidth???or???y???>???cHeight???Then
tWidth???=???x???/???cWidth???:???tHeight???=???y???/???cHeight
If???tWidth???>???tHeight???Then
w???=???cWidth
h???=???y???/???tWidth
Elseif???tWidth???<???tHeight???Then
h???=???cHeight
w???=???x???/???tHeight
Else
w???=???cWidth
h???=???cHeight
End???If
Else
w???=???x
h???=???y
End???If
If???j???>???cEachLineMax???Then
j???=???1
response.Write???""
End???If
response.Write???"??尺寸:"???&???x???&???"???×???"???&???y???&???"??"">"
j???=???j???+???1
i???=???i???+???1
Loop
Set???pp???=???Nothing
%>




<%???pageBar???page,???pageTotal???%>
???>


通過錯新技術頻道小編介紹的內容,相信大家都有了一定的了解,想要了解更多的技術內容,請繼續關注錯新技術頻道吧!

?

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
爱福利视频一区| 亚洲欧美日韩在线一区| 欧美老肥婆性猛交视频| 成人一区二区电影| 亚洲精品电影在线观看| 欧美xxxwww| 欧美日韩一区二区在线播放| 中文字幕欧美日韩在线| 欧美电影免费观看高清完整| 亚洲欧美国产另类| 亚洲的天堂在线中文字幕| 91久久在线观看| 欧美最猛性xxxxx(亚洲精品)| 亚洲视频综合网| 国产精品美女主播| 欧美精品videosex极品1| 国产精品一区电影| 久久久久久有精品国产| 国产精品亚洲精品| 国产精品久久一| 欧美日韩亚洲激情| 久久久亚洲精选| 国产精品免费视频久久久| 欧美夜福利tv在线| 51视频国产精品一区二区| 亚洲成人激情视频| 91在线观看免费高清完整版在线观看| 国产精品丝袜一区二区三区| 久久精品男人天堂| 九九热99久久久国产盗摄| 欧美成人免费在线视频| 日本视频久久久| 8050国产精品久久久久久| 久久视频这里只有精品| 欧美性猛交xxxx免费看久久久| 久久全国免费视频| 中文字幕成人精品久久不卡| 欧美日韩精品在线观看| 久久九九国产精品怡红院| 欧洲成人在线观看| 日韩av在线精品| 亚洲香蕉成人av网站在线观看| 日韩精品免费视频| 91精品国产乱码久久久久久蜜臀| 日本高清不卡的在线| 欧美日韩国产123| 中文字幕最新精品| 亚洲天堂av在线免费| 国产精品久久久久7777婷婷| 亚洲国内精品视频| 国产成人亚洲综合青青| 亚洲国产精品久久久久久| 国产精品88a∨| 日本91av在线播放| 久久中文字幕一区| 91免费高清视频| 成人久久久久久久| 激情亚洲一区二区三区四区| 国产精品国产亚洲伊人久久| 欧美成人黄色小视频| 日本欧美中文字幕| 欧美大全免费观看电视剧大泉洋| 成人免费自拍视频| 色偷偷综合社区| 欧美日韩高清区| 中文字幕日韩精品有码视频| 亚洲欧洲一区二区三区在线观看| 亚洲一二三在线| 国产亚洲精品久久久| 国产日韩欧美在线播放| 97久久精品人搡人人玩| 色综合影院在线| 国产精品一区二区三区毛片淫片| 日本高清视频精品| 亚洲激情久久久| 国产午夜精品全部视频播放| 国产国语刺激对白av不卡| 欧美大成色www永久网站婷| 精品久久久精品| 日韩福利伦理影院免费| 97超碰色婷婷| 午夜精品一区二区三区视频免费看| 欧美日韩成人在线视频| 国产日韩欧美电影在线观看| 欧美性生交大片免网| 国产日韩精品在线播放| 日韩视频免费在线| 久久综合久久88| 欧美精品videossex性护士| 欧美日韩成人黄色| 国产精品99久久久久久久久| 日日骚久久av| 91av在线看| 欧美麻豆久久久久久中文| 日韩免费在线视频| 欧美国产高跟鞋裸体秀xxxhd| 亚洲精品国产综合久久| 中文综合在线观看| 成人自拍性视频| 国产性猛交xxxx免费看久久| 国产精品吊钟奶在线| 国产精品都在这里| 国产婷婷色综合av蜜臀av| 成人妇女免费播放久久久| 大胆人体色综合| 91久久久精品| 日韩在线观看电影| 日韩欧美一区二区三区| 伊人久久久久久久久久| 久久久久久久成人| 国产在线精品一区免费香蕉| 在线电影中文日韩| 久久久视频精品| 久热精品视频在线观看一区| 国产视频精品自拍| 亚洲性生活视频在线观看| 欧美大肥婆大肥bbbbb| 欧美日韩精品在线播放| 久久久久这里只有精品| 亚洲一区二区三区视频播放| 日韩欧美福利视频| 色妞一区二区三区| 成人伊人精品色xxxx视频| 国产精品久久久久高潮| 日本不卡免费高清视频| 国产精品视频地址| 亚洲精选一区二区| 亚洲成人久久一区| 欧美一级在线亚洲天堂| 国产www精品| 91久久国产婷婷一区二区| 欧美性xxxxxxxxx| 欧美第一黄网免费网站| 国产日韩欧美视频| 国产欧亚日韩视频| 亚洲成人激情在线观看| 久久久久中文字幕| 亚洲人成电影在线播放| 91精品国产91久久久久福利| 亚洲网站视频福利| 久久成人一区二区| 亚洲色图第一页| 欧美性视频网站| 亚洲精品www久久久| 国内精品国产三级国产在线专| 精品国产乱码久久久久久天美| 亚洲电影av在线| 国产视频一区在线| 欧美日韩一区二区免费视频| 亚洲视频在线免费观看| 欧美性videos高清精品| 色婷婷成人综合| 国产精品美女午夜av| 国产精品大陆在线观看| 91免费在线视频网站| 午夜精品久久久久久久99黑人| 国产成人精品最新| 亚洲18私人小影院| 亚洲美女av在线播放| 欧美丰满老妇厨房牲生活| 亚洲人成电影网站色| 中文字幕国内精品| 日韩**中文字幕毛片| 久久精品免费播放|