搜索 社区服务 统计排行 帮助
  • 3612阅读
  • 29回复

[无聊]制作随机签名图片的方法…………

楼层直达
级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
有些同志问起这样的问题,而且也确实不是什么有难度的东西。所以我在这里说一下。

实现的条件很简单,就是需要一个支持 ASP 脚本的个人主页空间,至于图片的位置,只要有URL就行,不一定要放在同一空间。
1.新建一个文本文件,起名XXX.asp ,代码如下
  1. <%@ LANGUAGE=VBSCRIPT %>
  2. <%
  3. Dim Urls(5)
  4. Urls(0)="???????????????????????"
  5. Urls(1)="???????????????????????"
  6. Urls(2)="???????????????????????"
  7. Urls(3)="???????????????????????"
  8. Urls(4)="???????????????????????"
  9. come = trim(request.ServerVariables("HTTP_REFERER"))
  10. if instr(come,"http://popgo.net/")>0 then
  11.         randomize()
  12.         i = cint((UBound(Urls)-1) * rnd())
  13.         response.redirect(Urls(i))
  14. end if
  15. %>


上面的“Dim Urls(5)”决定了图片的数量,
接下来从0到4 (不是从1到5)的Urls(?),就是5个图片URL(一定要用双引号括起来)。
希望随机抽多少张图片,就把数量和地址分别写进去即可,数量一定要吻合。
(我的签名程序和以上不同,我只要一上传图片就能自动列入随机,不用每次改文件。因为我的图片集中存放,而且我有任意操作服务器文件的权限,一般空间不一定可以。)
上传这个XXX.asp之后,把这个文件的URL当作图片URL写入签名就可以 ,每次刷新后看签名档就会看到不同的图片。
[ 此帖被天使小萌在2011-04-07 21:51重新编辑 ]
级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
只看该作者 29楼 发表于: 2003-08-06
厄~~~~ 汗,看到了,原来是那张小图的说。

怎么总是拜托老师那张?

那个网站有时候会慢,刚才没看到。

hehehehhe.....hohohohoh ...|||||| :eek:
级别: 元老
注册时间:
2001-11-21
在线时间:
5小时
发帖:
6401
只看该作者 28楼 发表于: 2003-08-06
T___T 真的看不到么???偶自己看咋米没问题???

青春猛火嚣张 处仍焚烧 却面目全 千红散尽 黯淡
级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
只看该作者 27楼 发表于: 2003-08-06
引用
最初由 亚德 发布
清理旧贴...翻出这个...好像狠好玩的样子,偶也试试
应该能看到吧......残念...



:p hoho ..亚德 ...

好苯笨~~~ 弄不出来。弄不出来……
级别: 元老
注册时间:
2001-11-21
在线时间:
5小时
发帖:
6401
只看该作者 26楼 发表于: 2003-08-06
清理旧贴...翻出这个...好像狠好玩的样子,偶也试试
应该能看到吧......残念...


青春猛火嚣张 处仍焚烧 却面目全 千红散尽 黯淡
级别: 侠客
注册时间:
2002-10-15
在线时间:
0小时
发帖:
384
只看该作者 25楼 发表于: 2003-07-19
不错
谢谢了
级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
只看该作者 24楼 发表于: 2003-07-19
引用
最初由 黑羽夜 发布



午夜兄。。。。还是不行的说。。。。。偶到底那里弄错了呀。。。。5555~~


还不行? 让我看一下你的文件内容……
级别: 风云使者
注册时间:
2003-05-18
在线时间:
0小时
发帖:
4643
只看该作者 23楼 发表于: 2003-07-19
引用
最初由 午夜忧影 发布
( ¯¯▽¯¯ ) bbb …… 我还是举例子好了。



午夜兄。。。。还是不行的说。。。。。偶到底那里弄错了呀。。。。5555~~
级别: 新手上路
注册时间:
2001-11-21
在线时间:
0小时
发帖:
1402
只看该作者 22楼 发表于: 2003-07-19
hehe,以后down签名就方便了.F5,F5.......
mzz
级别: 风云使者
注册时间:
2002-06-15
在线时间:
0小时
发帖:
4772
只看该作者 21楼 发表于: 2003-07-19
别忘了防盗链里将网址添正确,要不看不到的……

那空间用来贴图不错的~~有50M空间!

did you ever know, that i had mine on you!
级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
只看该作者 20楼 发表于: 2003-07-19
( ¯¯▽¯¯ ) bbb …… 我还是举例子好了。
比如要放三张签名图, 地址分别是:
http://www.a.com/1.jpg
http://www.b.com/2.jpg
http://www.c.com/3.jpg

那么XXX.asp 前面部分的代码就是:
Dim Urls(3)
urls(0) = "http://www.a.com/1.jpg"
urls(1) = "http://www.b.com/2.jpg"
urls(2) = "http://www.c.com/3.jpg"

每个Urls(x)里要填的就是平时放在 img 之间的图片地址(当然不包括前后img符号)。由于电脑数组从0开始计数,所以有N张图片的话,定义的Urls的序号就是从0到N-1 。

程序后半部分都不变。

最后把XXX.asp上传后当一张图片来用就可以,放在img之间。
级别: 风云使者
注册时间:
2003-05-18
在线时间:
0小时
发帖:
4643
只看该作者 19楼 发表于: 2003-07-19
引用
最初由 午夜忧影 发布
-_____-bb 只是改改数字,把URL填进去而已,这也有难度?!
哎呀呀~~~~



有。。。。对于白痴如我的人来说。。。已经是很困难了。。。。
对了。。。。午夜兄。。。代码用图片的?img吗?
wdd
级别: 侠客
注册时间:
2003-04-08
在线时间:
1小时
发帖:
741
只看该作者 18楼 发表于: 2003-07-19
完全不懂…………汗…………偶能力有限啊~~~~~

级别: 新手上路
注册时间:
2002-07-16
在线时间:
1小时
发帖:
31945
只看该作者 17楼 发表于: 2003-07-19
-_____-bb 只是改改数字,把URL填进去而已,这也有难度?!
哎呀呀~~~~
级别: 元老
注册时间:
2001-11-21
在线时间:
2小时
发帖:
4044
只看该作者 16楼 发表于: 2003-07-19
…………………………………………………………………………………………
感觉。。问题很多。。
首先啥米是asp空间?
然后又是啥米防盗连?
最后一堆代码..眼花中....
完全看不懂=_______=bb。。。
看来果然是太晚了。。
下去觉觉算了。。。。