贴吧上的图是怎么变的

用asp就可以实现
asp下加一个rnd函数
加个条件语句就可以实现
<%
初使化rnd函数

大至是这样，
if rnd(sun)=1 then
Response.Write <img src="asdfas1.gif">
else
if rnd(sun)=2 then.......
批或用case 方式，
或用其它方法可以实现

软件不用什么，用记事本就可以写出程序的，
不过要求会js 或vbs+asp

例如我们新建一个ASP文档 假设文件名叫 a.asp 相同目录下有图片文件 1.jpg
在a.asp中写入如下代码
<% server.Transfer “1.jpg“ %>
然后执行这个ASP脚本 试试浏览器中虽然是.asp扩展名 实际上显示了 1.jpg这个图片
同理 在 a.asp 中写入如下代码
<% REM -----------------------------开始----------------------------%>
<%
Function myRND()
REM 生成某个范围的随机数
randomize()
upper = 59 ’随机数的上限
lower = 1 ’随机数的下限
myRND = int((upper-lower+1)*RND+lower)
End Function
%>
<%
server.Transfer( myRND & “.JPG“)
%>
<% REM --------------------------------结束------------------- %>
然后加入图片0.jpg 1.jpg 2.jpg 一直到 59.jpg 那么 asp脚本就会随机读取