📄 uppic.asp
字号:
<%On Error Resume Next
Set fs=CreateObject("Scripting.FileSystemObject")
picpath=server.Mappath("../../images/pic/")
Set f=fs.GetFolder(picpath)
Set fc=f.Files
dim show()
MaxPerPage=12
Redim Preserve show(0)
i=1
For Each f1 in fc
Redim Preserve show(i)
show(i)=f1.name
i=i+1
next
Set fc=nothing
Set f=nothing
Set fs=nothing
page=request("page")
maxpage=int(UBound(show)/MaxPerPage)
if UBound(show)-maxpage*MaxPerPage>0 then maxpage=maxpage+1
if page="" then
page=1
else
page=cint(page)
end if
if page<1 then page=1
if page>maxpage then page=maxpage
pagebegin=(page-1)*MaxPerPage+1
pagecount=0
Response.Write"<Html><HEAD><TITLE>选择图片</TITLE>"
Response.Write"<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=gb2312"">"
Response.Write"<LINK HREF=""../../inc/main.css"" REL=""stylesheet"" TYPE=""text/css"">"
Response.Write"<SCRIPT language=""JavaScript"" src=""../../Inc/title.js""></SCRIPT>"
Response.Write"</HEAD>"
Response.Write"<Body background=""../images/mainbg.gif"" LEFTMARGIN=""0"" TOPMARGIN=""0"">"
Response.Write"<Center>"
Response.Write"第"
FOR I=1 TO MAXPAGE
if page=i then
Response.Write i
else
Response.Write"<A HREF=UPPIC.ASP?PAGE="&I&"><u>["&I&"]</u></A> "
END IF
NEXT
Response.Write"页"
Response.Write"<TABLE width='90%' border='0' cellpadding='0' cellspacing='0'>"
Response.Write"<TR>"
tnum=6
J=0
for i=pagebegin to UBound(show)
pagecount=pagecount+1
if pagecount>MaxPerPage then exit for
if show(i)<>"Thumbs.db" then
j=j+1
Response.Write"<TD align=""center"" width=""35"" height=""25"">"
Response.Write"<Img Src=""../../images/pic/"&show(i)&""" align=""absmiddle"" Width=""30"" Height=""20"" style=""cursor:hand;border:1px solid #000000"" onclick=""selpic('"&show(i)&"')""></TD>"
if j mod tnum =0 then Response.Write"</TR><TR>"
end if
NEXT
for s=1 to (tnum-j mod tnum)
Response.Write"<TD Width=""35""></TD>"
next
Response.Write"</TR>"
Response.Write"</TABLE>"
Response.Write"</Center>"
Response.Write"</Body>"
Response.Write"</Html>"%>
<SCRIPT LANGUAGE=JavaScript>
function selpic(picname){
window.returnValue = "../../images/pic/"+picname;
window.close();
}
</SCRIPT>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -