📄 lbbs_pic v1.0.asp
字号:
BORDER-RIGHT: #99CCFF 1px solid; BORDER-TOP: #99CCFF 1px solid; BORDER-LEFT: #99CCFF 1px solid; BORDER-BOTTOM: #99CCFF 1px solid
}
.tdbg {
BACKGROUND: #F1F5FC; LINE-HEIGHT: 120%
}
.topbg {
COLOR: #ffffff
}
.bgcolor {
BACKGROUND-COLOR: #F1F5FC
}
.style1 {
background-color: #FFFFCC;
BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid
}
.style2 {
text-align: left;
}
.style3 {
color: #000000;
}
</STYLE>
</head>
<SCRIPT language=javascript>
<!--
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
//----------------------
//图片等比例缩图
flag=false
function DrawImage(ImgD)
{
var image=new Image();
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= <%=c_picwidth%>/<%=c_picheight%>){
if(image.width><%=c_picwidth%>){
ImgD.width=<%=c_picwidth%>;
ImgD.height=(image.height*<%=c_picwidth%>)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
//ImgD.alt="规格："+image.width+"x"+image.height+" [点击图片在新窗口打开查看]";
}else{
if(image.height><%=c_picheight%>){
ImgD.height=<%=c_picheight%>;
ImgD.width=(image.width*<%=c_picheight%>)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
//ImgD.alt="规格："+image.width+"x"+image.height+" [点击图片在新窗口打开查看]";
}
}
}
//-------------------------
//鼠标悬停在图片上时提示框（注：样式未加入）
var pltsPop=null;
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
var pltsPopbg="#FFFFEE"; //背景色
var pltsPopfg="#111111"; //前景色
var pltsTitle="";
document.write('<div id=pltsTipLayer style="display: none;position: absolute; z-index:10001"></div>');
function pltsinits()
{
document.onmouseover = plts;
document.onmousemove = moveToMouseLoc;
}
function plts()
{ var o=event.srcElement;
if(o.alt!=null && o.alt!=""){o.dypop=o.alt;o.alt=""};
if(o.title!=null && o.title!=""){o.dypop=o.title;o.title=""};
pltsPop=o.dypop;
if(pltsPop!=null&&pltsPop!=""&&typeof(pltsPop)!="undefined")
{
pltsTipLayer.style.left=-1000;
pltsTipLayer.style.display='';
var Msg=pltsPop.replace(/\n/g,"<br>");
Msg=Msg.replace(/\0x13/g,"<br>");
var re=/\{(.[^\{]*)\}/ig;
if(!re.test(Msg))pltsTitle="提示";
else{
re=/\{(.[^\{]*)\}(.*)/ig;
pltsTitle=Msg.replace(re,"$1")+" ";
re=/\{(.[^\{]*)\}/ig;
Msg=Msg.replace(re,"");
Msg=Msg.replace("<br>","");}
var attr=(document.location.toString().toLowerCase().indexOf("list.asp")>0?"nowrap":"");
var content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#bbbbbb,direction=135);" id=toolTipTalbe border=0><tr><td width="100%"><table class=tableborder1 cellspacing="1" cellpadding="0" style="width:100%">'+
'<tr id=pltsPoptop><th height=18 valign=bottom><b><p id=topleft align=left>↖'+pltsTitle+'</p><p id=topright align=right style="display:none">'+pltsTitle+'↗</font></b></th></tr>'+
'<tr><td "+attr+" class=tablebody1 style="padding-left:14px;padding-right:14px;padding-top: 6px;padding-bottom:6px;line-height:135%">'+Msg+'</td></tr>'+
'<tr id=pltsPopbot style="display:none"><th height=18 valign=bottom><b><p id=botleft align=left>↙'+pltsTitle+'</p><p id=botright align=right style="display:none">'+pltsTitle+'↘</font></b></th></tr>'+
'</table></td></tr></table>';
pltsTipLayer.innerHTML=content;
toolTipTalbe.style.width=Math.min(pltsTipLayer.clientWidth,document.body.clientWidth/2.2);
moveToMouseLoc();
return true;
}
else
{
pltsTipLayer.innerHTML='';
pltsTipLayer.style.display='none';
return true;
}
}
function moveToMouseLoc()
{
if(pltsTipLayer.innerHTML=='')return true;
var MouseX=event.x;
var MouseY=event.y;
//window.status=event.y;
var popHeight=pltsTipLayer.clientHeight;
var popWidth=pltsTipLayer.clientWidth;
if(MouseY+pltsoffsetY+popHeight>document.body.clientHeight)
{
popTopAdjust=-popHeight-pltsoffsetY*1.5;
pltsPoptop.style.display="none";
pltsPopbot.style.display="";
}
else
{
popTopAdjust=0;
pltsPoptop.style.display="";
pltsPopbot.style.display="none";
}
if(MouseX+pltsoffsetX+popWidth>document.body.clientWidth)
{
popLeftAdjust=-popWidth-pltsoffsetX*2;
topleft.style.display="none";
botleft.style.display="none";
topright.style.display="";
botright.style.display="";
}
else
{
popLeftAdjust=0;
topleft.style.display="";
botleft.style.display="";
topright.style.display="none";
botright.style.display="none";
}
pltsTipLayer.style.left=MouseX+pltsoffsetX+document.body.scrollLeft+popLeftAdjust;
pltsTipLayer.style.top=MouseY+pltsoffsetY+document.body.scrollTop+popTopAdjust;
return true;
}
pltsinits();
//-----------------------------------------
//-->
</script>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" style="font-size: 9pt">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td colspan=2 style="background-color: #99CCFF; height: 28px;" class="style2">
<%response.write "<a href='"&c_HomeUrl&"' title='"&c_HomeName&"'><u>"&c_HomeName&"</u></a>" '首页链接%> <font color="#000000"><b><%=c_title%></b></font></td>
</tr>
<tr class="tdbg">
<td height="24" style="width: 238px" <%If c_cook="是" Then response.write "rowspan='2'"%>><strong>图片目录导航</strong>
</td>
<td height="24" style="width: 800px; height: 12px;"><strong>当前位置：</strong><font color=#0066FF><%If Trim(forder)<>"" then response.write replace(UploadDir,c_UploadDirg,"总目录") Else response.write"总目录/"%></font>
</td>
</tr>
<!--自定义开始-->
<%If c_cook = "是" then%>
<form method="POST" action="<%=JoinChar(c_strFileName)%>action_cook=cookies">
<tr class="tdbg">
<td height="30" width="756">
<p align="left">
<b>自定义：</b><span class="style3">每页图片数</span><input type="text" name="cook_MaxPerPage" size="5" value="<%=c_MaxPerPage%>" style="border: 1px solid #808000; width: 25px;" title="输入1-30之间的数字！"><span class="style3">
每行图片数</span><input type="text" name="cook_Page" size="12" value="<%=c_Page%>" style="border: 1px solid #808000; width: 21px;" title="输入1-10之间的数字！">
图片宽<input type="text" name="cook_picwidth" size="10" value="<%=c_picwidth%>" style="border: 1px solid #808000; width: 42px;" title="输入20-800之间的数字！">
高<input type="text" name="cook_picheight" size="10" value="<%=c_picheight%>" style="border: 1px solid #808000; width: 39px;" title="输入20-800之间的数字！"></font>
<select size="1" name="CookieTime" class="input">
<option selected value="0">是否记忆</option>
<option value="1">记忆一天</option>
<option value="2">记忆一周</option>
<option value="3">记忆一月</option>
<option value="4">记忆一年</option>
</select>
<input type="submit" value="提交" name="B1">
<input type="button" value="默认值" name="B3" onClick="window.location.href='<%=JoinChar(c_strFileName)%>action_cook=con'">
</p>
</td>
</tr>
</form>
<%End if%>
<!--自定义结束-->
<tr class="tdbg">
<td height="30" style="width: 238px;" valign="top">
<a title='返回总目录' href='<%=c_strFileName2%>'><img alt='' border='0' src='images/alllist.gif' width='16' height='16'>总目录</a><br><%if forder<>"" then response.write"<a title='↑返回上层目录' href='"&c_strFileName2&"?forder="&upforder2&"'><img alt='' border='0' src='images/up.gif' width='16' height='16'>返回上层目录</a><br>"%>
<font size="2"><%=ShowFolderList(TruePath)%></font>
</td>
<td height="30" style="height: 15px; width: 800px;" valign="top">
<!--图片列表-->
<%
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能显示文件</font></b>"
Else
set fso=CreateObject("Scripting.FileSystemObject")
call main()
end if
%>
<!--图片列表-->
</td>
</tr>
</table><p></p>
<%
sub main()
if fso.FolderExists(TruePath)=False then
response.write "找不到文件夹！可能是配置有误！"
exit sub
end if
FileCount=0
TotalSize=0
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
FileCount=FileCount+1
TotalSize=TotalSize+theFile.Size
next
totalPut=FileCount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*c_MaxPerPage>totalput then
if (totalPut mod c_MaxPerPage)=0 then
currentpage= totalPut \ c_MaxPerPage
else
currentpage= totalPut \ c_MaxPerPage + 1
end if
end if
if currentPage=1 then
Call showpage(c_strFileName,totalput,c_MaxPerPage)
call showContent()
Call showpage(c_strFileName,totalput,c_MaxPerPage)
else
if (currentPage-1)*c_MaxPerPage<totalPut then
call showpage(c_strFileName,totalput,c_MaxPerPage)
call showContent()
call showpage(c_strFileName,totalput,c_MaxPerPage)
else
currentPage=1
call showpage(c_strFileName,totalput,c_MaxPerPage)
call showContent()
call showpage(c_strFileName,totalput,c_MaxPerPage)
end if
end if
end sub
sub showContent()
dim c
FileCount=0
TotalSize_Page=0
%>
<table width='100%' border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" class="border">
<tr class="tdbg">
<%
For Each theFile In theFolder.Files
c=c+1
if FileCount>=Int(c_MaxPerPage) then
exit for
elseif c>Int(c_MaxPerPage)*(CurrentPage-1) then
strFileType=lcase(mid(theFile.Name,instrrev(theFile.Name,".")+1))
%>
<td>
<table width="100%" height="100%" border="0" cellpadding="0">
<tr>
<td align="center" width="<%=c_picwidth%>" height="<%=c_picheight+10%>" class="style1">
<%
select case strFileType
case "jpg","gif","bmp","png","JPG","GIF","BMP","PNG"
response.write "<a href='" & UploadDir & theFile.Name & "' target='_blank'><img src='" & UploadDir & theFile.Name & "' alt='[文件]"&theFile.Name&Chr(10)&"[大小]"&round(theFile.size/1024)&"K "&Chr(10)&"[类型]"&theFile.type&"' border='0' onmouseover=""this.style.cursor='hand';"" onload='javascript:DrawImage(this);' width="&c_picwidth&" height="&c_picheight&"></a>"
case else
response.write "<a href='" & UploadDir & theFile.Name & "' target='_blank'>文件：" & theFile.Name & "<BR>（此文件不是图片）</a>"
end Select
%>
</td>
</tr>
</table>
</td>
<%
FileCount=FileCount+1
if FileCount mod c_Page=0 then response.write "</td><tr class='tdbg'>"
TotalSize_Page=TotalSize_Page+theFile.Size
end If
Next
%>
</tr>
</table>
</td></tr></table>
<%
end sub
'------------------------------------------------
'------------------------------------------------
'系统版本信息
response.write "<CENTER>"
response.write " <span lang='zh-cn'>powered by lbbspic"&c_poweredby&" 乐学图片目录直读系统"&c_poweredby&" (ASP)</span> "
dim endtime
endtime=timer()
if isempty(starttime) then
response.write "没有程序被执行"
else
if cstr(FormatNumber((endtime-starttime)*1000,3))=".000" then
response.write "没有程序被执行"
else
response.write FormatNumber((endtime-starttime)*1000,3)&"毫秒"
end if
end if
response.write"</CENTER>"
'-----------------------------------------
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -