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
相关文档：
首先申明：这个是我转载的，致力于为像我一样的新手提供帮助！
1、IIS下301设置 Internet信息服务管理器 -> 虚拟目录 -> 重定向到URL，输入需要转向的目标URL，并选择“资源的永久重定向”。
2、ASP下的301转向代码
<%@ Language=VBScript %>
<%
Response.Status=”301 Moved Permanent ......
asp class类用法
asp class
严格地说，ASP 并不是一门编程语言，所以不存在类这一概念，我们这里说 ASP 类是指 ASP 的编程语言 VBScript 在 ASP 里应用时的类。
ASP 类比较简单，它不具有真正意义类的继承、重载等特性，尽管如此，它仍然是非常有用的，它降低了我们编程的复杂度，使我们的程序模块更加合理。
A ......
ActiveX控件运行在客户端。我们可以获得客户端的一些信息，如IC卡的信息,客户端的验证等等。但是ActiveX控件也有许多缺点：客户端的部署很困难，如客户端不能正确下载，下载了以后不能正确执行，下载的时候需要设置IE的安全级别等等。
更多的时候，我都在使用COM组件来扩展ASP的功能。准确地说，是服务端运行的Activex Dll ......
txt文件是下面这样的，
一行一条数据，用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<!--#include file="inc/conn.asp" -->
<%
filespec=server.mappath("txt.txt")
Const ForRead ......
发一个标准的数据库连接代码。希望对大家有帮助。
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data&n ......
