仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 655|回复: 6
打印 上一主题 下一主题

[学习教程] ASP网站制作之asp黑色考证码图象天生剧本~~49行代码!...

[复制链接]
小妖女 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。剧本|考证码ADODE.Stream完成!49行代码,三个文件,有点象本站的CGIimg.exe的效果
Asp文件:Code.Asp
数据文件:body.Fix,Head.Fix
演示:
http://www.lfgbox.com/paintblue/code/code.asp
:D我已放我论坛往啦~~
下载:
http://www.lfgbox.com/download/code.rar
用法:<imgsrc="code.asp">
在查验页:判别Cint(request("GetCode"))=Session("GetCode")
:rolleyes::rolleyes::rolleyes:
别怪我做过剩休息~~折腾代码!写个全新的的东东是满意的~~
请注重下载完全的数字数据文件~~

代码思绪就是使用ADODB.Stream二进制工具举行二进制流的处置!
将随机天生的数字转换为挪用图象数据中响应的数据块,图象数据是GBRGBR..排部的数据,头是BMP的头~~然后用ADODB.Stream将天生的随机数字图象数据再组合为新的一个bmp图象块~~用Response.BinaryWrite将其间接发送扫瞄器

Body.Fix数字0~910X100竖排的RGB阵列数据3200byte
Head.Fix是54byte的BMP头
假如要改动字体和色彩~~能够将bmp10x100图象的前54字节往失落!
交换body.Fix文件


以下内容为程序代码
<%
Optionexplicit
Response.buffer=true
NumCode
FunctionNumCode()
Response.Expires=-1
Response.AddHeader"Pragma","no-cache"
Response.AddHeader"cache-ctrol","no-cache"
dimzNum,i,j
dimAdos,Ados1
Randomizetimer
zNum=cint(8999*Rnd+1000)
Session("GetCode")=zNum
dimzimg(4),NStr
NStr=cstr(zNum)
Fori=0to3
zimg(i)=cint(mid(NStr,i+1,1))
Next
dimPos
setAdos=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
setAdos1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("body.Fix"))
Ados1.writeAdos.read(1280)
fori=0to3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.writeados.read(320)
next
Ados.LoadFromFile(Server.mappath("head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
fori=0to9step1
forj=0to3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.writeados1.read(30)
next
next
Response.ContentType="image/BMP"
Ados.Position=0
Response.BinaryWriteAdos.read()
Ados.Close:setAdos=nothing
Ados1.Close:setAdos1=nothing
EndFunction
AspcodeCreatedbyBlueIdea.COMWebTeamV372003-7-25
%>


</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。
透明 该用户已被删除
沙发
发表于 2015-1-20 09:59:06 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
柔情似水 该用户已被删除
板凳
发表于 2015-2-5 23:27:57 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
活着的死人 该用户已被删除
地板
发表于 2015-2-14 05:16:32 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
兰色精灵 该用户已被删除
5#
发表于 2015-3-4 04:49:14 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
深爱那片海 该用户已被删除
6#
发表于 2015-3-19 02:26:43 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
精灵巫婆 该用户已被删除
7#
发表于 2015-3-27 05:10:26 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 10:57

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表