[原创]72变头像asp源代码

笨笨啊

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

傻傻

笨老大
太牛鼻闪闪了吧

笨笨啊

客户端比较喜欢用javascript，服务端比较习惯vbscript

现在嘛习惯php

笨笨啊

很久以前写的东西了
在上个论坛的上个论坛的上个论坛的时候就已经写出来了
这个数据是上个论坛的时候发上去的-_-#

feelingai

笨笨...

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

怎么用VBscript了??

feelingai

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

随机函数...

qingcha

管理员说，要顶一下
于是，我就顶了

幽谷客

<P>不能在论坛里面修改啊!如果一修改就换了谁手了!</P>

幽谷客

<P>马上换!</P>

笨笨啊

<DIV class=quote><B>以下是引用<i>约会自己</i>在2005-7-2 13:54:39的发言：</B><br><P>可以放哪里用啊</P></DIV><p>

约会自己

<P>可以放哪里用啊</P>