📄 lbbs_pic v1.06.asp
字号:
<input name="Action" type="hidden" id="Action" value="Del">
<input name="forder" type="hidden" id="forder" value="<%=forder%>">
<input type="submit" name="Submit" value="删除选中的文件">
<!--<input type="submit" name="Submit2" value="删除当前目录所有文件" onClick="document.myform.Action.value='DelAll';">-->
<%elseIf Session("lbbs_pic_show")="smallpic" Then '生成缩图选择%>
<input name="Action" type="hidden" id="Action" value="small">
<input name="forder" type="hidden" id="forder" value="<%=forder%>">
<input type="submit" name="Submit" value="选中的文件生成缩略图">
<%end if%>
</td>
</tr>
</table>
<BR> <BR>
<%end if%>
</td></tr></table>
<%
end sub
'------------------------------------------------
'---------------------------------------
'删除单个文件或选中文件
sub DelFiles()
Call admincheck() '登录检测
dim whichfile,whichfile_small,arrFileName,i,UploadDir2
whichfile=trim(Request("FileName"))
if whichfile="" then exit sub
if instr(whichfile,",")>0 then
arrFileName=split(whichfile,",")
for i=0 to ubound(arrFileName)
if left(trim(arrFileName(i)),3)<>"../" and left(trim(arrFileName(i)),1)<>"/" Then
whichfile=server.MapPath(forder &"/"& trim(arrFileName(i)))
set thisfile=fso.GetFile(whichfile)
thisfile.Delete True
whichfile_small=Replace(trim(arrFileName(i)),Right(trim(arrFileName(i)),4),"_[small]"& Right(trim(arrFileName(i)),4)) '缩略图
If fso.FileExists(Server.Mappath(forder &"/"&whichfile_small)) Then '检查缩略图是否存在，存在则删除
fso.deleteFile(Server.Mappath(forder &"/"&whichfile_small)),true
End if
end if
Next
else
if left(whichfile,3)<>"../" and left(whichfile,1)<>"/" then
Set thisfile = fso.GetFile(server.MapPath(forder &"/"& whichfile))
thisfile.Delete True
whichfile_small=Replace(whichfile,Right(whichfile,4),"_[small]"& Right(whichfile,4)) '缩略图
If fso.FileExists(Server.Mappath(forder &"/"&whichfile_small)) Then '检查缩略图是否存在，存在则删除
fso.deleteFile(Server.Mappath(forder &"/"&whichfile_small)),true
End if
end if
end If
forder=Replace(forder,"\","/")
Response.Write("<script>alert('所选文件删除成功！（对应的缩略图也随之删除了）');location.href='?forder="&forder&"&page="&picPage&"';</script>")
Response.end
end sub
'删除所有文件
sub DelAll()
Call admincheck() '登录检测
Set theFolder=fso.GetFolder(TruePath)
For Each theFile In theFolder.Files
theFile.Delete True
next
Response.Write("<script>alert(""本目录所有文件删除成功！"");location.href='"&c_picurl&"';</script>")
Response.end
end Sub
'---------------------------------------
'---------------------------------------
'生成缩略图，单个文件或选中文件
sub smallFiles()
Call admincheck() '登录检测
If IsObjInstalled("Persits.Jpeg")=false Then
Response.Write("<script>alert('没有AspJpeg组件，无法生成缩略图！');location.href='?forder="&forder&"&page="&picPage&"';</script>")
exit Sub
End if
dim whichfile,whichfile_small,arrFileName,i,UploadDir2
whichfile=trim(Request("FileName"))
if whichfile="" then exit sub
if instr(whichfile,",")>0 then
arrFileName=split(whichfile,",")
for i=0 to ubound(arrFileName)
if left(trim(arrFileName(i)),3)<>"../" and left(trim(arrFileName(i)),1)<>"/" Then
whichfile_small=Replace(trim(arrFileName(i)),Right(trim(arrFileName(i)),4),"_[small]"& Right(trim(arrFileName(i)),4)) '缩略图
If fso.FileExists(Server.Mappath(forder &"/"&whichfile_small))=false Then '检查缩略图是否存在，不存在则生成
call pic_small(forder&"/",trim(arrFileName(i)))
End if
end if
Next
else
if left(whichfile,3)<>"../" and left(whichfile,1)<>"/" then
whichfile_small=Replace(whichfile,Right(whichfile,4),"_[small]"& Right(whichfile,4)) '缩略图
If fso.FileExists(Server.Mappath(forder &"/"&whichfile_small))=false Then '检查缩略图是否存在，不存在则生成
call pic_small(forder &"/",whichfile)
End if
end if
end If
forder=Replace(forder,"\","/")
Response.Write("<script>alert('所选图片生成缩略图成功！');location.href='?forder="&forder&"&page="&picPage&"';</script>")
Response.end
end sub
'-----------------------------------------
'-----------------------------------------
'如果有缩图组件、则生成缩图
sub pic_small(formPath,sSaveFileName)
Dim n_sSaveFileName,jpegs
If IsObjInstalled("Persits.Jpeg") then
Set jpegs = Server.CreateObject("Persits.Jpeg")
Jpegs.Open Server.MapPath(""&formPath & sSaveFileName &"") ' 打开上传图片
'生成的缩图大小
if Jpegs.OriginalWidth>con_pic_small_w then
Jpegs.Width = con_pic_small_w
Jpegs.Height = (Jpegs.Originalheight/Jpegs.OriginalWidth)*con_pic_small_w
elseif Jpegs.OriginalWidth>con_pic_small_h Then
Jpegs.Width = (Jpegs.OriginalWidth/Jpegs.Originalheight)*con_pic_small_h
Jpegs.Height = con_pic_small_h
else
Jpegs.Width = Jpegs.OriginalWidth
Jpegs.Height = Jpegs.Originalheight
end If
n_sSaveFileName=Replace(sSaveFileName,Right(sSaveFileName,4),"_[small]"& Right(sSaveFileName,4)) '缩图文件名
Jpegs.Save Server.MapPath(""& formPath & n_sSaveFileName &"")' 保存文件
Jpegs.Close
Set jpegs = Nothing ' 注销对象
End If
End sub
'-----------------------------------------
'-----------------------------------------
'管理员登录
Sub adminlogin()
%>
<form method="POST" action="?action=logincheck" name="F1">
<table border="0" width="100%" class="border">
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><span lang="zh-cn"><b>管理登录</b></span></td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"><span lang="zh-cn">用户名：</span></td>
<td height="21"><input type="text" name="username" size="20" value=""></td>
</tr>
<tr>
<td width="220" align="right">密 码：</td>
<td><input type="password" name="password" size="20"></td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr>
</table>
</form>
<%
End Sub
'----------------------------------------
'----------------------------------------
'登录
sub logincheck()
If trim(Request.form("username"))<>c_admin_name Then
Response.write "<script language='javascript'>alert('管理用户名不正确！');history.go(-1);</script>"
response.End
Exit Sub
End If
If md5(trim(Request.form("password")))<>c_admin_password Then
Response.write "<script language='javascript'>alert('密码不正确！');history.go(-1);</script>"
response.End
Exit Sub
End If
Session("lbbs_pic_UserName")=trim(Request("username"))
Session("lbbs_pic_password")=md5(trim(Request("password")))
response.redirect ("?action=admin")
response.end
End sub
'----------------------------------------
'----------------------------------------
'退出登录
sub adminlogout()
Session("lbbs_pic_UserName")=""
Session("lbbs_pic_password")=""
Session("lbbs_pic_show")=""
response.redirect (picurl)
response.end
End sub
'----------------------------------------
'----------------------------------------
'登录检测
Sub admincheck()
If Session("lbbs_pic_UserName")<>c_admin_name or Session("lbbs_pic_password")<>c_admin_password Then
Response.write "<script language='javascript'>location.href='?action=login';</script>"
response.End
Exit Sub
End If
End Sub
'---------------------------------------
'---------------------------------------
'管理/参数设置
Sub admin()
Call admincheck() '登录检测
%>
<script>
<!--
function ascheck()
{
if (document.admin.password.value!=""){
if (document.admin.password.value!=document.admin.password_again.value) {
alert("两次输入的密码不相同。请重设。");
admin.password_again.focus();
return false;
}
}
return true;
}
//-->
</script>
<form method="POST" action="?action=adminsave" name="admin" onSubmit="return ascheck()">
<table border="0" width="100%" class="border">
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><span lang="zh-cn"><b>参数设置</b></span></td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"><span lang="zh-cn">登录用户名 ：</span></td>
<td height="21"><input type="text" name="username" size="20" value="<%=c_admin_name%>"></td>
</tr>
<tr>
<td width="220" align="right">登录密码 ：</td>
<td><input type="password" name="password" size="20"> <font color='#009900'>留空表示不作修改。</font></td>
</tr>
<tr>
<td width="220" align="right">再次确认密码：</td>
<td><input type="password" name="password_again" size="20"> <font color='#009900'>留空表示不作修改。</font></td>
</tr>
<tr>
<td width="220" align="right">网站首页链接名称：</td>
<td><input type="text" name="HomeName" size="30" value="<%=c_HomeName%>">（空值则不显示)</td>
</tr>
<tr>
<td width="220" align="right">网站首页链接地址：</td>
<td><input type="text" name="HomeUrl" size="30" value="<%=c_HomeUrl%>"></td>
</tr>
<tr>
<td width="220" align="right">标题名：</td>
<td><input type="text" name="title" size="30" value="<%=c_title%>"></td>
</tr>
<tr>
<td width="220" align="right">图片所在文件夹：</td>
<td><input type="text" name="UploadDirg" size="30" value="<%=c_UploadDirg%>">如“lbbs_pic/pic”,开头与结尾不能带“/”</td>
</tr>
<tr>
<td width="220" align="right">图片类型：</td>
<td><input type="text" name="PicType" size="30" value="<%=c_PicType%>"><font color='#009900'>(使用<font color='#FF00CC'>|</font>将图片格式分开)</font></td>
</tr>
<tr>
<td width="220" align="right">非图片文件类型：</td>
<td><input type="text" name="TxtType" size="30" value="<%=c_TxtType%>"><font color='#009900'>(使用<font color='#FF00CC'>|</font>将文件格式分开)</font></td>
</tr>
<tr>
<td width="220" align="right">图片下显示文件名：</td>
<td><INPUT TYPE="radio" value="是" NAME="shownane" <%If c_shownane="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="shownane" <%If c_shownane<>"YES" Then response.write"checked"%>>不显示</td>
</tr>
<tr>
<td width="220" align="right">左则当前目录下文件：</td>
<td><INPUT TYPE="radio" value="是" NAME="filelb" <%If c_filelb="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="filelb" <%If c_filelb<>"YES" Then response.write"checked"%>>不显示 </td>
</tr>
<tr>
<td width="220" align="right">图片自定义显示功能：</td>
<td><INPUT TYPE="radio" value="是" NAME="cook" <%If c_cook="YES" Then response.write"checked"%>>开启 <INPUT TYPE="radio" value="否" NAME="cook" <%If c_cook<>"YES" Then response.write"checked"%>>关闭</td>
</tr>
<tr>
<td width="220" align="right">鼠标悬停在链接上的JS提示信息：</td>
<td><INPUT TYPE="radio" value="是" NAME="showmouseover" <%If c_showmouseover="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="showmouseover" <%If c_showmouseover<>"YES" Then response.write"checked"%>>不显示</td>
</tr>
<tr>
<td width="220" align="right">用Server.URLEncode编码图片路径：</td>
<td><INPUT TYPE="radio" value="是" NAME="URLEncode" <%If c_URLEncode="YES" Then response.write"checked"%>>开启 <INPUT TYPE="radio" value="否" NAME="URLEncode" <%If c_URLEncode<>"YES" Then response.write"checked"%>>关闭 (编码以便显示特殊文件名的图片，如不需编码请关闭)</td>
</tr>
<tr>
<td width="220" align="right">默认列表显示图片数：</td>
<td>每页：<input type="text" name="MaxPerPage" size="5" value="<%=con_MaxPerPage%>">张 每行：<input type="text" name="Page" size="5" value="<%=con_Page%>">张</td>
</tr>
<tr>
<td width="220" align="right">默认列表图片尺寸：</td>
<td>宽度：<input type="text" name="picwidth" size="5" value="<%=con_picwidth%>">像素 高度：<input type="text" name="picheight" size="5" value="<%=con_picheight%>">像素</td>
</tr>
<tr>
<td width="220" align="right">上传图片生成缩略图尺寸：</td>
<td>宽度：<input type="text" name="pic_small_w" size="5" value="<%=con_pic_small_w%>">像素 高度：<input type="text" name="pic_small_h" size="5" value="<%=con_pic_small_h%>">像素
(文件名以“_[small]”结尾的图片被视为缩略图)</td>
</tr>
<tr>
<td width="220" align="right">上传图片生成缩略图所用组件：</td>
<td>AspJpeg组件（Persits.Jpeg）<%ShowObjectInstalled("Persits.Jpeg")%> <font color="#009900">(打</font><b><font color="#0094D8">√</font></b><font color="#009900">表示服务器已安装该组件，可以生成缩图)</font></td>
</tr>
<tr>
<td width="220" align="right"></td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr>
</table>
</form>
<%
End Sub
'-----------------------------------------
'-----------------------------------------
'保存参数设置
Sub adminsave()
Call admincheck() '登录检测
dim fso,hf,hf2,all
Dim n_admin_name,n_admin_password,n_HomeName,n_HomeUrl,n_title,n_UploadDirg,n_PicType,n_filelb,n_cook,n_shownane,n_TxtType,n_showmouseover,n_URLEncode
Dim n_MaxPerPage,n_Page,n_picwidth,n_picheight,n_con_pic_small_w,n_con_pic_small_h
If trim(Request.form("password"))<>"" And trim(Request.form("password_again"))<>trim(Request.form("password")) Then
Response.write "<script language='javascript'>alert('两次输入的密码不一致！');history.go(-1);</script>"
response.end
End if
If trim(Request.form("username"))<>"" then
n_admin_name = chr(34) & trim(Request.form("username"))& chr(34)
Session("lbbs_pic_UserName")=trim(Request.form("username"))
Else
n_admin_name = chr(34) &c_admin_name &chr(34)
End If
If trim(Request.form("password"))<>"" then
n_admin_password = chr(34) & md5(trim(Re⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -