x
Yes
No
Do you want to visit DriveHQ English website?
首页
产品服务
价格
免费试用
下载客户端
关于我们
云文件服务
|
云备份服务
|
FTP服务
|
企业邮箱服务
|
网站托管
|
客户端软件
云文件服务
云备份服务
FTP服务
企业级邮箱服务
网站托管
客户端软件
images.pl - Hosted on DriveHQ Cloud IT Platform
返回上层目录
上传
下载
共享
发布
新建文件夹
新建文件
复制
剪切
删除
粘贴
评论
升级服务
路径: \\LITTLELEV\ImageFolioLite\admin\images.pl
旋转
特效
属性
历史版本
############################################################################### # BizDesign ImageFolio Lite Edition 4.2 (Four-dot-Two) ############################################################################### # # ## ### VERSION : 4.2 # #### ## ## RELEASED ON : 02/15/2007 # ## ## ## LAST MODIFIED : 02/15/2007 # ########## ## # ## ### ## # ## ### ######## # ############################################################################### # Released by BizDesign, Inc. # written by Dirk Koppers and Greg Raaum of BizDesign # # Purchasing : http://imagefolio.com/purchase/ # Support : http://imagefolio.com/support/ # Phone : (214) 642-9787 # Email : sales@bizdesign.com ############################################################################### # COPYRIGHT AND LICENSE INFORMATION : # # Copyright (c) 1999-2007 BizDesign, Inc. All rights reserved. # # Selling or distributing the code for this program without prior written # consent is expressly forbidden. # # One licensed copy of the program may reside on a single server, in use by a # single domain. For each installed instance of the program, a separate # license is required. # # Licensed users may alter or modify this software, at their own risk, of # course. They may also hire others to modify their own copy of the code, as # long as the code is not transferred to or retained by the individual who is # hired (unless he/she is also a license holder). Although license-holders # may modify the code for their use, modified code may NOT be resold or # distributed. # # THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED WARRANTIES, # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND # FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BIZDESIGN, # INC. OR ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR # BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER # IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE # POSSIBILITY OF SUCH DAMAGE. # # BizDesign, Inc. is not liable for any conduct associated with image gallery # activity, nor for any binary media posted using this program, including but # not imited to images, photographs, movies, and clipart. # # The user must assume the entire risk of using the program. Although this # program has been thoroughly tested on BizDesign's servers, BizDesign does not # warrant that it works on all servers and will not be held liable for anything, # including but not limited to, misusage, error, or loss of data. ANY # LIABILITY OF THE SELLER WILL BE LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT # OR REFUND OF PURCHASE PRICE. Use at your own risk! ############################################################################### # Do not modify below this line unless you know what you are doing. ############################################################################### $UPLOADFILES = "active"; ############################################################################### # UPLOAD IMAGE # Here we upload an image to the image directory ############################################################################### sub iBULC_iframe { &get_catlist; print "Content-type: text/html\n\n"; print qq||; print qq|
<$admin_small_font>
U P L O A D L O C A T I O N
$catlist
|; print ""; exit; } sub upload_image { $pagetitle = "Upload Files"; &get_header; &get_catlist; # &find_images; #NOT needed at the moment. Will be usefull when we integrate it into UBB or # IKON BOARD since the administrator can the set $max_upload_per. Since this is not integrated yet # we set: $Number_Files = 0; $max_upload_per = 1; $ucount = 1; while ($ucount != 4) { if ($FORM{"image$ucount"}) { if (!$run_once) { $run_once = 1; $comment = qq|<$admin_font>
The following files were upload and renamed if necessary:
|; } $comment .= qq|-
$FORM{"image$ucount"}
|; } $ucount++; } if ($run_once) { $comment .= qq|to the category:
$FORM{'savecat'}
|; } print qq|$comment|; if (!$iBULC_upload) { if ($use_single_file_upload) { print qq|
|; $imalign = " align=center"; } else { print qq|
|; $noimcolspan = " colspan=2"; } print qq|
<$admin_big_font>
Upload Files
<$admin_big_font>
Step 1 of 1
|; if ($use_single_file_upload) { if ($use_fullsize) { $temp_extension = lc($myextension_fullsize); } else { $temp_extension = "jpg or
tif"; } my $media_text = qq| (Must be a
$temp_extension
image!)|; print qq|
<$admin_small_font>
U P L O A D F I L E
$media_text
|; } else { print qq|
<$admin_small_font>
L I N K E D ;F I L E
<$admin_small_font>
T H U M B N A I L I M A G E
(Must be a
jpg
image!)
|; if ($use_fullsize) { my $temp_extension = lc($myextension_fullsize); print qq|
<$admin_small_font>
F U L L S I Z E D O W N L O A D F I L E
(Must be had a
$temp_extension
file!)
|; } print qq|
|; } print qq|
<$admin_small_font>
U P L O A D L O C A T I O N
$catlist
|; } else { print qq|
<$admin_big_font>
Upload Files
<$admin_big_font>
Step 1 of 1
|; } &get_footer; } 1; sub find_images { @directories = "$image_directory/$usercat"; $totaldir = 1; $slash = '/'; for ($i=0; $i<$totaldir; $i++) { $directory = @directories[$i]; opendir(DIR,$directory); @listings = readdir(DIR); closedir(DIR); foreach $listing (@listings) { next if (($listing eq ".") or ($listing eq "..") or ($listing =~ /_vti_cnf/i) or ($listing =~ /$mypattern/i) or ($listing =~ /index.html/i)); $fullpath = $directory . $slash . $listing; if (-d $fullpath) { push(@directories,$fullpath); $totaldir++; } else { push(@THUMBS,$fullpath); } } } $Number_Files = @THUMBS; }
images.pl
网页地址
文件地址
上一页
14/27
下一页
下载
( 8 KB )
Comments
Total ratings:
0
Average rating:
无评论
of 10