📄 lbbs_pic v1.05.asp
字号:
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5=LCase(WordToHex(b) & WordToHex(c))
End Function
'Md5结束
'==========================================
%>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title><%=c_title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE>
BODY {
FONT-SIZE: 9pt; BACKGROUND: #ffffff; LINE-HEIGHT: 150%; FONT-FAMILY: "宋体";TEXT-DECORATION: none
}
TD {
FONT-SIZE: 9pt; FONT-FAMILY: "宋体"
}
INPUT {
FONT-SIZE: 9pt; HEIGHT: 20px
}
BUTTON {
FONT-SIZE: 9pt; HEIGHT: 20px
}
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
}
.style2 {
text-align: left;background-color: #99CCFF; height: 28px;
}
.style3 {
color: #000000;
}
.style4 {
color: #0066FF;
}
#copyright em { color: #FF9D25; }
#copyright em { font-weight: bold; }
em { font-style: normal; font-weight: normal; }
.style5 {
text-align: left;
background-color: #CCFFCC;
color: #000000;
}
.pic_showstyle {
background-color: #FFFFCC;
BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid
}
.pic_delstyle {
border: 1px solid #c0c0c0;
background-color: #CCFFFF;
}
.imgmid {
vertical-align: middle;
}
/*鼠标悬停在图片上时提示框样式*/
.TableBody {
BACKGROUND: #E3E6FD; LINE-HEIGHT: 150%
}
TH {
FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #FFFFFF; HEIGHT: 18px; BACKGROUND-COLOR: #3399FF
}
TD.TableBody1 {
LINE-HEIGHT: normal; BACKGROUND-COLOR: #FFFFFF
}
/*鼠标悬停在图片上时提示框样式*/
.style6 {
border: 1px solid #99CCFF;
background-color: #F7F7F7;
}
.style7 {
border: 1px solid #99CCFF;
background-color: #FAF8E2;
}
</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;
image.alt=ImgD.alt;
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.alt+"\n[尺寸] "+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.alt+"\n[尺寸] "+image.width+"x"+image.height+" 像素";
}
}
}
//-------------------------
//鼠标悬停在图片上时提示框
var pltsPop=null;
var pltsoffsetX = 10; // 弹出窗口位于鼠标左侧或者右侧的距离；3-12 合适
var pltsoffsetY = 15; // 弹出窗口位于鼠标下方的距离；3-12 合适
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 content =
'<table style="FILTER:alpha(opacity=90) shadow(color=#FFFFFF,direction=135);" id=toolTipTalbe border=0 class="TableBody"><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 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 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>
<%If admin_login=True Then%>
<tr class="topbg">
<td colspan=2 class="style5" style="height: 28px">
【 管理员<B><%=Session("lbbs_pic_UserName")%></B>已登录 <A HREF='?action=logout' class='style4'><U>退出</U></A> 】
<font color=#0000FF><B>|</B></font>
<a href="?action=admin">系统设置</a>
<font color=#0000FF><B>|</B></font>
<a href="?forder=<%=forder%>&action=nodelpic&page=<%=picPage%>">浏览图片</a> |
<a href="?forder=<%=forder%>&action=upload">上传图片</a> |
<a href="?forder=<%=forder%>&action=delpic&page=<%=picPage%>">删除图片</a>
<font color=#0000FF><B>|</B></font>
<a href="?forder=<%=forder%>&action=adddir">创建目录</a> |
<a href="?forder=<%=forder%>&action=moddir">修改目录</a> |
<a href="?forder=<%=forder%>&action=deldir">删除目录</a>
<font color=#0000FF><B>|</B></font>
</td>
</tr>
<%
End if
'==========================================
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 "delpic"
'显示删除选项
Call admincheck() '登录检测
Session("lbbs_pic_delpic")="delpic"
response.redirect (JoinChar(c_picurl)&"page="&picPage)
Case "nodelpic"
'不显示删除选项
Session("lbbs_pic_delpic")=""
response.redirect (JoinChar(c_picurl)&"page="&picPage)
Case "del"
'删除选中文件
call DelFiles()
Case "delall"
'删除当前目录所有文件
call DelAll()
Case "moddir"
'修改目录
call Moddir()
Case "moddirsave"
'保存修改的目录
call Moddirsave()
Case "adddir"
'创建新目录
call adddir()
Case "adddirsave"
'保存新创建的目录
call adddirsave()
Case "deldir"
'创建新目录
call deldir()
Case "deldirsave"
'保存新创建的目录
call deldirsave()
Case "upload"
'上传文件选择
call upload()
Case "uploadsave"
'处理上传文件
call uploadsave()
Case Else
'浏览图片
call showpic()
end Select
set fso = Nothing
%>
</table>
<%
call copyright() '版本信息
end If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -