随机图片代码

尘封的记忆

Trackbacks

发表评论

日志分类

搜索文章

最新评论

友情链接

CGI的

Code:

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
#########################
# Chinasaint汉化     #         
#########################
# 安装: 
# 设置下面2个变量.
# 用SSI调用程序:
#
#或 
#
# 或直接从浏览器访问:
# [url]http://www.yourdomain.com/cgi-bin/freeware/random.cgi[/url]
########################################################
#设置:
# 图片路径
$photo_path = "/home/you/public_html/images";
# 图片路径URL
$photo_url = "[url]http://www.you.com/images[/url]";
#######################################################
#下面不要动

&Main;
###########################################################################
sub Main{
       my(@dirs, $file, $number);
       print "Content-type: text/html

";
     opendir(DIR,"$photo_path")|| &error ("Cannot Open $photo_path, reason: $!");
     foreach $file (sort readdir(DIR)){
         if (($file =~ /.gif/) || ($file =~ /.tif/) || ($file =~ /.jpg/) || ($file =~ /.GIF/) || ($file =~ /.TIF/) || ($file =~ /.JPG/)){
               push (@dirs, "$file");
         }
     }
     closedir(DIR);
     srand(time ^ $$);
     $number = rand(@dirs);
     print qq|<img src="$photo_url/$dirs[$number]" border=0">
|;
     exit;
}
###########################################################################
sub error{
     print "Content-type: text/html

";
     print qq|
         <BOLD>Error: $_[0] 
     |;
     exit;
}
###########################################################################

[Ctrl+A Select All]

PHP的

Code:

[Ctrl+A Select All]

getRandomImage()
This function will take a random image from a directory and display it in your webpage. It can be modified to do many other things and list various other file types besides just images. All this does is print a random file name from your directory, you can do whatever you like with it.
这个感觉最好，我翻译下：
这个功能可以从某目录里读出随机图片显示到你页面里，它可以被修改成很多其他东西，除了图片外也可以列出各种类型的文件。所有这些所做的就是从你的一个目录打印出一个随机文件名，可以用他来做你想要的任何事情：）

Code:

[Ctrl+A Select All]

Essentially choosing a random image with PHP is pretty easy. In the above snippet of code, eregi looks for images ending with gif,jpg,jpeg or png ... don't hesitate to add others. It's also good to call srand() only once per script call, so if you have multiple random images per page, adjust the function (maybe this should be taken into account).
实际上用PHP选择一个随机图片很简单，在上面代码里，可以寻找gif,jpg,jpeg or png 结尾的图片。还可以加其他的后缀：）

Of course it doesn't write HTML, that's your job. Here's an example:
当然，它不写HTML，那是你自己的事情，这里是例子

Code:

[Ctrl+A Select All]
刷一次变一次图的ASP代码

Code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<% 
---------------------------------------------------------------------------------------- 
转发时请保留版权，这段声明不并会影响你的显示速度! 
************************* 随机图片显示 **************************** 
使用实例:img.asp?list=图片存放目录 
使用注意:图片目录放于本文件同目录下!需要FSO支持! 
说明：只要将变化图片放于一个目录下，修改下面程序的（需要修改的地方）成你的目录名称！ 
上传本程序和图片文件夹到同一目录下，在发帖时候使用UBB代码形如：即可！ 
---------------------------------------------------------------------------------------- 
Function AllPath() 
Dim Domain,GFilePath 
Domain = Request.ServerVariables("SERVER_NAME") 
GFilePath = Request.ServerVariables("PATH_INFO") 
GFilePath = lcase(left(GFilePath,instrRev(GFilePath,"/"))) 
AllPath = "http://"&Domain&GFilePath 
End Function

Function ShowFileList(folderspec) 
Dim Path,objFSO,objFolder,count,objFile,nume,S 
Path = Server.MapPath(folderspec) 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
If objFSO.FolderExists(Path) Then 
Set objFolder = objFSO.GetFolder(Path) 
count = 0 
For Each objFile in objFolder.Files 
count = count+1 
Next 
randomize 
nume = Int((count*rnd)+1) 
S = 0 
ShowFileList = "" 
For Each objFile in objFolder.Files 
S = S + 1 
If S = nume Then 
ShowFileList = objFile.Name 
Exit For 
End If 
Next 
Set objFolder = Nothing 
Else 
ShowFileList = "NO" 
End If 
Set objFSO = Nothing 
End Function

Dim list,filename,address,str

list = trim(Request.QueryString("list")) 
if list = "" then 
Response.write "本页需要正确参数引入,您缺少相关的参数！正确格式如下："&AllPath&"img.asp?list=（需要修改的地方）" 
Response.End() 
end if

filename = ShowFileList("./"&list&"/") 
if filename = "NO" then 
Response.write "您指定的目录"&list&"不存在，请重新指定！" 
Response.End() 
end if

if filename = "" then 
Response.write "您指定的目录"&list&"没有相关的图片文件存在，请重新指定！" 
Response.End() 
end if

str = right(filename,3) 
if str<>"jpg" and str<>"gif" then 
filename = "erro.gif" 
end if

address = AllPath&list&"/" 
address = address&filename 
%> 
<%Response.redirect(address)%>

[Ctrl+A Select All]

« 2024年04月 »