联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 精品代码 >> 正文 当前没有通告!
   □  用ASP随机数和二进制技术实现百变美女图   4星级
用ASP随机数和二进制技术实现百变美女图
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2007-05-29     文章录入:Admin
【字体:
[内容提要]
暂无简介

经常在BBS里看到有人发百变美女图的帖子,这些帖子基本上全是这样的:发帖的人一般会给你说回复一次美女变一个或者换个动作,你回复了一下,果然变了. 难道真有这么神奇的帖子,回复就变?其实不然,变的根本原因不是回复,而是刷新--刷新改页面图片就会变.不信你找个这样的帖子不用回复而刷新一下看看, 是不是美女照样变了?

  很多人以为这个东西很神奇,其实是非常简单的.用ASP的随机数,再加上二进制读取和输出技术就可以实现这个效果.下面就看具体如何实现.

  首先在同一目录下新建一个ASP文件如pic.asp,新建一个文件夹比如img,然后把你的图片文件按数字顺序命名(比如,命名为1.jpg, 2.jpg,3.jpg……这样)并把图片放到img目录下面.做好这些之后,我们就可以开始编写pic.asp这个程序了(注:以上所提文件名、文件夹名及存放位置均可自由更换,不过在程序里对应的地方也就得变)

  首先,我们创建一个随机数,下面会用到(要按照你的图片的命名来创建随机数,比如我的图片共有16个,名称为1.jpg,2.jpg,3.jpg……16,jpg,那么我就创建一组1-16的随机数)

pic.asp文件如下所示:

<%
dim suiji
randomize timer
suiji=int(rnd*15)+1

'然后来定义图片路径:

Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
Response.Buffer = True
strFileName=""&suiji&".jpg" '调用前面创建的随机数,这样,程序读取的时候就会随机读取我们的某一个图片,这是实现变化的关键所在
FilePath=Server.MapPath("img/"&strFileName) 'img就是我们存放图片的目录,MapPath的方法自己查资料看看
Response.Clear

'然后来创建一个对象读取图片:

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile FilePath

strFileSize =objStream.size
strFileType = lcase(Right(strFileName, 4))

'然后要告诉浏览器是图片文件让它直接显示以免直接打开的时候浏览器不知道把它当什么文件来处理:

Select Case strFileType
Case ".gif"
ContentType = "image/gif"
Case ".jpg","jpeg"
ContentType = "image/jpeg"
End Select

'然后用二进制来输出图片:

Response.AddHeader "Content-Length", strFileSize
Response.Charset = "UTF-8"
Response.ContentType = ContentType

Response.BinaryWrite objStream.Read
Response.Flush

'最后,将我们创建的对象关闭并清空:

objStream.Close
Set objStream = Nothing
%>

上一篇文章:一些经典的代码 下一篇文章:加入收藏的javascript代码
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息