《计算机应用文摘》杂志官方网站
本站原创内容欢迎任何非商业应用的转载,但须在醒目位置注明出自《计算机应用文摘》杂志及杂志官网超链接,并保留文章原始链接(超链接)和文章作者。编辑部联系电话:023-63513500。
-
Categories
-
最新文章
最新评论
- 祥翔: 又来了。
- 祥翔嘉龙: 我来看看。
- 祥翔嘉龙: 说得在理。
- 007cf: 呵呵,最喜欢推理剧了。
- blueandhack: 表示蛋定~~~~ 不过QQ2010 SP2 有bug~
- 流火: 我颤抖了~~
- 流浪: 明显眼镜妹更叫人垂涎欲滴
- eric wu: 身边的人玩的不多 看情况吧
- wdgs888: 新浪微博ing
- 倍儿棒: 用它可以找到威尼斯水怪了
- 007cf: 狗日的疼殉
- 曾大勇: 在新浪扎了根的,一骨子twitter精神,只要有哥发声的地方就行!
- Rea: 不用微博,表示淡定…….
- - ss: 沙发啊.一个不古的人言:狗日的腾讯.
- 个人随笔: 看看
- typical: 感觉比爱情买卖更给力些。
功能
-
Sponsors




八月 12th, 2009 at 23:13
O(∩_∩)O哈哈~沙发…
八月 12th, 2009 at 23:19
几张图片轮流换~
八月 12th, 2009 at 23:28
看不出神奇在那里,是什么啊?
八月 12th, 2009 at 23:34
知道了,每次刷新人群就发生变化,但是怎么会哟这样的效果的???难道这不是张图片?
八月 12th, 2009 at 23:36
真的好神奇,期待大家能解答下~~~
八月 12th, 2009 at 23:42
这是监控录像吧
一直在变
八月 12th, 2009 at 23:44
固定的摄像头 一直在拍
应该是这样
八月 12th, 2009 at 23:49
现在是半夜12点快了,图片里场景是白天。明天早上我们再来看看。
八月 12th, 2009 at 23:50
比較神奇( ⊙o⊙ )哇
八月 12th, 2009 at 23:52
每刷新一次就变化一次的图片的方法
自己新建个img.asp,把下面的代码复制到img.asp
<%
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=pics"
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
%>
在根目录下新建个放图片的目录,里面放你想要的图片,图片起什么名都行
把img.asp也放到根目录下,之后在你签名档的地方放一个这个连接!
http://你放文件的地址/img.asp?list=你放图片的目录
八月 13th, 2009 at 0:00
EarthCam Network网站的纽约街头监控图片,时时更新即时图像。
八月 13th, 2009 at 0:05
不过我还是不怎么懂的怎么弄的~~~
八月 13th, 2009 at 0:08
好神奇啊~
八月 13th, 2009 at 0:08
可以在家看靓女了~哈哈哈~
八月 13th, 2009 at 0:57
似懂非懂
八月 13th, 2009 at 0:59
OCEAN
八月 13th, 2009 at 0:00
EarthCam Network网站的纽约街头监控图片,时时更新即时图像。
看图像属性貌似是正解,挺好玩的
八月 13th, 2009 at 8:00
纽约街头监控图片
八月 13th, 2009 at 8:55
为什么不是视频呢。。。
八月 13th, 2009 at 9:12
一串
八月 13th, 2009 at 9:22
原来是这个样子所~~在开心网上看到过~
还不知道怎么回事呢~~
八月 13th, 2009 at 9:30
是在不停的变化的。。
八月 13th, 2009 at 9:30
为什么电话亭旁边那三个人一直没变化呢
八月 13th, 2009 at 9:34
貌似纽约比咱们晚13个小时
八月 13th, 2009 at 9:41
强
八月 13th, 2009 at 10:37
几天前群里看过了
八月 13th, 2009 at 11:05
貌似记得N久以前玩GOOGLE EARTH的时候,可以连到安装在美国街头的摄像头,看美国街头的实时情况
难道这个也是?
八月 13th, 2009 at 11:07
T兄连视频监控都没见过?囧
八月 13th, 2009 at 11:09
牛叉
八月 13th, 2009 at 11:37
哇噻,真有趣
估计是摄像头时时的生成同名图片吧?
八月 13th, 2009 at 11:47
这图片……是循环的吧?
八月 13th, 2009 at 13:19
实时的?
八月 13th, 2009 at 14:19
那黄帽男与那女的究竟是在干嘛???
八月 13th, 2009 at 14:22
估计是一个视频里面的N多张截图来的,再写个程序每刷新一次换一张,一定不会错!
八月 13th, 2009 at 14:24
不会真的是实时吧,晚上2点还有人。。
八月 13th, 2009 at 14:58
纽约图片,呵呵。不错。
八月 13th, 2009 at 15:07
老美的街道也很脏乱差嘛
八月 13th, 2009 at 15:17
揭秘:这是美国一个摄像头,并非截图。
怀疑是从这里转来的:
h和t谐t社p会://lengxiaohua.net/2009/08/11/images-from-earthcam-newyork-lindys/
八月 13th, 2009 at 15:18
有兴趣的同学可以到这里看一看
h和t谐t社p会://www.earthcam.com/mapsearch/
八月 13th, 2009 at 15:36
天黑了,终于没啥人了。
八月 13th, 2009 at 17:15
5555555555……我可怜的“F5”啊~
八月 13th, 2009 at 18:24
又开始有人了,这些人起来得真早。
八月 13th, 2009 at 22:31
请问我怎么转走?
八月 14th, 2009 at 9:13
等晚上咱们看的时候一定是美国的白天了
八月 14th, 2009 at 10:48
折腾你的F5键
八月 14th, 2009 at 13:28
在山口山吧看到过
八月 14th, 2009 at 23:46
呀,纽约天亮了
八月 15th, 2009 at 12:34
那个路边摊又摆出来了,看不出是卖啥的
八月 15th, 2009 at 20:17
我还想把它拿来当桌面的!!!
很强大——图
八月 17th, 2009 at 19:43
就是换了几张图片么..
八月 25th, 2009 at 14:53
不停得按F5神奇着,打了一盹按歪到F4了,重来……………………
三月 22nd, 2010 at 15:00
太神奇了