?? 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 + -