碧海潮声大学生网

标题: [原创]72变头像asp源代码 [打印本页]

作者: 笨笨啊 时间: 2005-4-28 18:17
标题: [原创]72变头像asp源代码
<% Option Explicit Response.buffer=true NumCode Function NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" On Error Resume Next dim img Dim zNum Dim Ados Randomize timer zNum = cint(1+20*Rnd) '在此处修改最大的图片数，如果是1～20则设置为21 img="pic/"&cstr(znum)&".jpg" Dim Pos Set Ados=Server.CreateObject("Adodb.Stream") Ados.Mode=3 Ados.Type=1 Ados.Open Ados.LoadFromFile(Server.mappath(img)) Response.ContentType = "jpg" Ados.Position=0 Response.BinaryWrite Ados.read() Ados.Close:set Ados=nothing 'Ados1.Close:set Ados1=nothing End Function %>
把图片复制在pic目录，并分别用1.jpg，2.jpg，3.jpg的形式保存，在论坛的头像栏里写入这个asp程序地址就行了

作者: jerrybeing 时间: 2005-5-5 14:48
汗～～～～～原来如此！

作者: 小光头 时间: 2005-5-26 14:37
提示: 作者被禁止或删除内容自动屏蔽

作者: 笨笨啊 时间: 2005-5-26 15:31
<DIV class=quote>以下是引用小光头在2005-5-26 14:37:10的发言： 
可以说的具体一点些吗？？？
小弟很久就想弄这个了可是一直不行啊
哪位兄弟说的具体一点教我啊！~</DIV>
要源代码的话留个邮箱，我发你邮箱去。你要把图片弄好，放在支持asp的空间上就行了

作者: 枫 时间: 2005-5-28 00:01
提示: 作者被禁止或删除内容自动屏蔽

作者: 小混混 时间: 2005-6-20 11:14
提示: 作者被禁止或删除内容自动屏蔽

作者: 笨笨啊 时间: 2005-6-20 17:29
*%&%*%*&%*$Y%$&^%

作者: 小麻哈鱼 时间: 2005-6-21 16:50
BS笨笨，自己顶~
[em01][em01]

作者: qzsky 时间: 2005-6-27 11:45
不错，支持，

作者: 云外归鸟 时间: 2005-6-27 13:24
我连数据库都不用
<% dim n Randomize n=cstr(Int(38 * Rnd + 1)) '产生随机数1到38,图片的编号 response.redirect "<a href="http://sita.51.net/pic/pic" target="_blank" >http://sita.51.net/pic/pic</A>"+n+".jpg" '放图片的连接 response.end %>

作者: 笨笨啊 时间: 2005-6-27 20:05
这个不叫数据库，叫数据流

作者: 约会自己 时间: 2005-7-2 13:54
可以放哪里用啊

作者: 笨笨啊 时间: 2005-7-2 18:12
<DIV class=quote>以下是引用约会自己在2005-7-2 13:54:39的发言： 可以放哪里用啊</DIV>

作者: 幽谷客 时间: 2005-7-9 20:47
马上换!

作者: 幽谷客 时间: 2005-7-9 20:53
不能在论坛里面修改啊!如果一修改就换了谁手了!

作者: qingcha 时间: 2006-1-12 20:38
管理员说，要顶一下
于是，我就顶了

作者: feelingai 时间: 2006-1-12 21:30

下面是引用笨笨啊于2005-06-27 20:05发表的:
这个不叫数据库，叫数据流

随机函数...

作者: feelingai 时间: 2006-1-12 21:31
笨笨...

你不是用javasript写程序的嘛??

怎么用VBscript了??

作者: 笨笨啊 时间: 2006-1-12 22:10
很久以前写的东西了
在上个论坛的上个论坛的上个论坛的时候就已经写出来了
这个数据是上个论坛的时候发上去的-_-#

作者: 笨笨啊 时间: 2006-1-12 22:11
客户端比较喜欢用javascript，服务端比较习惯vbscript

现在嘛习惯php

作者: 傻傻 时间: 2006-1-14 15:06
笨老大
太牛鼻闪闪了吧

欢迎光临碧海潮声大学生网 (http://www.zjoubbs.com/)