刷新一次变一张图片的代码谁知道?

[d_z_hang]

刷新一次变一张图片的代码谁知道?

[sun8087]

<%
dim image
Randomize
image = int(rnd*3+1)
%>
index_ad<%=image%>.gif
可以实现的

[d_z_hang]

不太明白
能否详细解释一下?

[yangsm]

可以取随机数来控制

[sun8087]

image 得到的是,1-3的随机数

[d_z_hang]

随机显示image1,image2,image3?

[sun8087]

index_ad<%=image%>.gif

<%=image%>得到的是 1.2 3

随机显示index_ad1.gif,index_ad2.gif,index_ad3.gif

[d_z_hang]

如果图片名跟数量不确定且在不断变化中的话还能实现这个功能吗?

[Stepv]

那你就要用到FSO读文件名,然后放入变量随机,代码将是2K以上

[QQgenie]

图片名跟数量不确定？

搞个数据表记下，再随机取啰！

[d_z_hang]

js怎么实现?写出来啊
千万不要是在客户端哦

[杨米格]

在图片的onload事件里,改变自己的src就可以了

[d_z_hang]

2K以上??????

[iuhxq]

<%
filename=request("filename")
if filename="" then
folder=server.mappath("./人物/写真small")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folder)
Set fc = f.Files
Randomize
pic=int(Rnd*fc.count)
i=0
For Each f2 in fc
if i=pic then filename=f2.path
i=i+1
Next
else
if right(filename,4)<>".jpg" then response.end
filename = replace(server.mappath(filename),"./","")
end if
Server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
Server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

If Server_v1<>"" And Mid(Server_v1,8,Len(Server_v2)) = Server_v2 Then
'response.write filename
Response.Buffer = true
Response.ContentType = "image/jpeg"
set s = Server.CreateObject("ADODB.Stream")
with s
.Mode = 3
.Type = 1
.Open
.LoadFromFile(filename)
Response.BinaryWrite(.Read)
Response.Flush()
.Close
end with

set s = nothing
end if
%>

[德仔]

用个JS可以实现D!!!!

[iuhxq]

楼上用JS实现？在客户端还是服务器端？