📄 lbbs_pic v1.02.asp
字号:
}
SELECT {
FONT-SIZE: 9pt; HEIGHT: 20px
}
A {
COLOR: #000000; TEXT-DECORATION: none
}
.title {
}
.border {
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;
}
.style4 {
color: #0066FF;
}
#copyright em { color: #FF9D25; }
#copyright em { font-weight: bold; }
em { font-style: normal; font-weight: normal; }
* { word-wrap: break-word; }
</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>
<%If Session("lbbs_pic_UserName")=c_admin_name And Session("lbbs_pic_password")=c_admin_password Then
response.write "<font color='#000000'>【 管理员<B>"&Session("lbbs_pic_UserName")&"</B>已登录 <A HREF='?action=logout' class='style4'><U>退出</U></A> 】</font>"
End if
%>
</td>
</tr>
<%
'==========================================
If not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能显示文件</font></b>"
Else
set fso=CreateObject("Scripting.FileSystemObject")
Select Case Action
Case "admin"
'管理设置
call admin()
Case "adminsave"
'保存设置
call adminsave()
Case "login"
'管理登录
call adminlogin()
Case "logincheck"
'检查登录
call logincheck()
Case "logout"
'退出登录
call adminlogout()
Case "Del"
'删除选中文件
call DelFiles()
Case "DelAll"
'删除当前目录所有文件
call DelAll()
Case Else
%>
<tr class="tdbg">
<td height="24" style="width: 238px" <%If c_cook="YES" 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 = "YES" 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='<%=strFileName%>'><img alt='' border='0' src='images/alllist.gif' width='16' height='16'>总目录</a><br><%if forder<>"" then response.write"<a title='↑返回上层目录' href='"&strFileName&"?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">
<!--图片列表-->
<%
call main()
%>
<!--图片列表-->
</td>
</tr>
</table><p></p>
<%
end select
end If
'========================================
'========================================
'图片列表
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
If instr(LCase(c_PicType),LCase(Right(Trim(theFile.name),3)))>0 Then
FileCount=FileCount+1
TotalSize=TotalSize+theFile.Size
End if
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>
<form name="myform" method="Post" action="?forder=<%=forder%>" onsubmit="return confirm('确定要删除选中的文件吗？');">
<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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -