asp验证码(加法运算)
在提交页面中验证session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
' 禁止缓存
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
'Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 4 ' 杂点出现的机率
Const cAmount = 13 ' 文字数量
Const cCode = "0123456789+=?"
' 颜色的数据(字符,背景)
Dim vColorData(1),vColorRandom(10)
'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' 蓝0,绿0,红0(黑色)
vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)
vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)
vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)
vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)
vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)
vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)
vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)
vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)
vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)
vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)
vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)
vColorData(0) = vColorRandom(0)
vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '背景色 蓝250,绿236,红211(浅蓝色)
' 随机产生字符
Dim vCode(6),vCodes,vCodeColors(6)
F
相关文档:
如果在一个网站的页面中想调用其他网站页面内容,直接用一下代码就ok,http://www.wanyusoft.com/index.asp 这个路径就是所要调用的页面路径。
<%
response.write(getHTTPPage("http://www.wanyusoft.com/index.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.o ......
asp class类用法
asp class
严格地说,ASP 并不是一门编程语言,所以不存在类这一概念,我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类。
ASP 类比较简单,它不具有真正意义类的继承、重载等特性,尽管如此,它仍然是非常有用的,它降低了我们编程的复杂度,使我们的程序模块更加合理。
A ......
本程序是asp实现 php uc_client 功能
程序说明
网上的一些代码号称UCenter 整合ASp,但是大部分都没有一个实例,只有一个加密解密函数,很多新手无法利用其进行实际应用。
近期公司网站项目--课堂无忧 需整合asp ucenter,研究了一把UCenter,写了这个范例程序
虽然只简单写了登陆和注册部分功能的实现,其余模块您可以 ......
Flash中的XML对象也有方法可以将XML数据向服务器发送。即send和sendAndLoad。send方法向某个 URL 传递 XML 对象,返回的信息都被发送到另外一个浏览器窗口;sendAndLoad 方法向某个 URL 发送一个 XML 对象。返回的信息都放在一个XML对象中。
在某种程度上, XML的send方法和sendAndLoad方法类似于loadVars对象的send方法和 ......