28,404
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
iuhxq 2005-02-18
- 打赏
- 举报
楼上用JS实现？在客户端还是服务器端？
德仔 2005-02-18
- 打赏
- 举报
用个JS可以实现D!!!!
iuhxq 2005-02-18
- 打赏
- 举报
<%
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
%>
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
%>
d_z_hang 2005-02-18
- 打赏
- 举报
2K以上??????
杨米格 2005-02-18
- 打赏
- 举报
在图片的onload事件里,改变自己的src就可以了
d_z_hang 2005-02-18
- 打赏
- 举报
js怎么实现?写出来啊
千万不要是在客户端哦
千万不要是在客户端哦
QQgenie 2005-02-17
- 打赏
- 举报
图片名跟数量不确定？
搞个数据表记下，再随机取啰！
搞个数据表记下，再随机取啰！
Stepv 2005-02-17
- 打赏
- 举报
那你就要用到FSO读文件名,然后放入变量随机,代码将是2K以上
d_z_hang 2005-02-17
- 打赏
- 举报
如果图片名跟数量不确定且在不断变化中的话还能实现这个功能吗?
sun8087 2005-02-17
- 打赏
- 举报
index_ad<%=image%>.gif
<%=image%>得到的是 1.2 3
随机显示index_ad1.gif,index_ad2.gif,index_ad3.gif
<%=image%>得到的是 1.2 3
随机显示index_ad1.gif,index_ad2.gif,index_ad3.gif
d_z_hang 2005-02-17
- 打赏
- 举报
随机显示image1,image2,image3?
sun8087 2005-02-17
- 打赏
- 举报
image 得到的是,1-3的随机数
yangsm 2005-02-17
- 打赏
- 举报
可以取随机数来控制
d_z_hang 2005-02-17
- 打赏
- 举报
不太明白
能否详细解释一下?
能否详细解释一下?
sun8087 2005-02-17
- 打赏
- 举报
<%
dim image
Randomize
image = int(rnd*3+1)
%>
index_ad<%=image%>.gif
可以实现的
dim image
Randomize
image = int(rnd*3+1)
%>
index_ad<%=image%>.gif
可以实现的
