笨笨啊 发表于 2005-4-28 18:17

[原创]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>

jerrybeing 发表于 2005-5-5 14:48

汗～～～～～原来如此！

jerrybeing 发表于 2005-5-5 14:48

汗～～～～～原来如此！

小光头 发表于 2005-5-26 14:37

笨笨啊 发表于 2005-5-26 15:31

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

枫 发表于 2005-5-28 00:01

小混混 发表于 2005-6-20 11:14

笨笨啊 发表于 2005-6-20 17:29

<P>*%&%*%*&%*$Y%$&^%</P>

小麻哈鱼 发表于 2005-6-21 16:50

<P>BS笨笨，自己顶~</P>

qzsky 发表于 2005-6-27 11:45

不错，支持，
页: [1] 2 3
查看完整版本: [原创]72变头像asp源代码