ASP网站制作之asp黑色考证码图象天生剧本~~49行代码!...
使用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应用方案。 ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。 Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名") ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。 ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。 下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。 我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
页:
[1]