超好玩的百变图。。。回复什么就出现什么。。。

z35626768

网址在此
http://tieba.baidu.com/f?z=979304020&ct=335544320&lm=0&sc=0&rn=30&tn=baiduPostBrowser&word=%C0%CFe&pn=0

我试过了  真的很有趣很好玩  只要注册一个账号就行了
我太无聊了所以就回复了个凤姐   。。。。。居然真的出现了。。

绝无别的意思    再说谁可以把那张百变图拿下来啊？？我超想要！

谜团

实验失败。。

马甲君

Renee

真实就是真实不真实就是不真实，99%真实完全就是个伪命题。

z35626768

我觉得挺好玩的

1136496547

太像广告了.....

z35626768

真的好好玩    我想回复鬼的   可是我怕。。。。

谜团

额，不知道这个是不是。

一、UBB代码法：

使用实例:img.asp?list=图片存放目录 (例如:ttp://www.dalang.com.cn/testpic/pics.asp?list=imgs&fname这个地址把代码中的img.asp改成了pics.asp)

图片目录放于本文件同目录下!需要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,2004528115924.htm,address,str

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

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

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

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

address = AllPath&list&"/"
address = address&2004528115924.htm
%>
<%Response.redirect(address)%>
二、PHP代码法：
1。选择好相关的图片（最好是一个主题的图片，不要太杂）
2。裁剪成尺寸相同的图片，否则会变形的（看到PW也有人用类似的头像，但因为尺寸不一，搞的严重变形，实在是不堪入目啊）
3。新建一个php文件，在里面写：
<?php
$url='tx';
$files=array();
if ($handle=opendir("$url")) {
while(false !== ($file = readdir($handle))) {
  if ($file != "." && $file != "..") {
  if(substr($file,-3)=='gif' || substr($file,-3)=='jpg') $files[count($files)] = $file;
}
}
}
closedir($handle);
$random=rand(0,count($files)-1);
readfile("$url/$files[$random]");
?>
4。将此php文件放在空间某目录下（这个空间当然要支持php)，然后在同目录下创建目录tx，将相关图片放在tx目录下。
这样就搞定了。
调用方法：500)this.style.width=500;" onmousewheel="return bbimg(this)">php" border=0 >
以上两种做法你认为那种简单就学那种,不过这两中做法都有一点限制,大家根据你上传的空间的情况选择,上传完以后就得到了会变图片的绝对地址.例如tp://www.dalang.com.cn/testpic/pics.asp?list=imgs&fname
有了这个图片地址,我们就可以到处贴我们做的回复一次变一次的图了。

z35626768

原来是这样  怪不得回复一些很奇怪的内容  是显示不一样的图片

谜团

[ img ]http://www.globechinese.net:8018/img/img.ashx?name=zilong.jpg[/img]
图片的地址是这个，看来就是上面所说的了……

z35626768

哈哈~~~~谢谢  那些图片是我的电脑里的还是制作这张图片的人的电脑里的

谜团

其实我也不知道到底它是什么原理，你看2楼的图片和回复一点联系都没有……

z35626768

你干嘛拿我的签名啊。。。

aychxm

我在想，可不可以利用搜索引擎的数据

对输入的内容，利用baidu或者google的图片搜索，将某张图片显示给你

谜团

因为很口耐口牙

喂喂

这蛋疼的玩意居然还有广告。。。太NC了。

『四裤全输』

虽然我不会玩，但是和显IP一样蛋疼。

破喉咙

其实不是回复而是每次刷新。。。

nikki

回了个鬼,出现了内衣广告

破喉咙

引用第18楼heris于2011-02-12 01:11发表的  :
回了个鬼,出现了内衣广告

那个内衣的牌子一定是鬼牌