剑锋博客

提供三种asp验证码源程序下载，分别是纯英文、春数字，英文字母和数字混合。

看实例图片：

下载源码：

纯英文字母版

纯数字版

英文和数字混合版

来源网站：http://www.tipstricks.org/

asp现在很少人用了吧？一些旧项目还在用的，比如金山中学广州校友会的留言板！连接数据库的字符串可能需要根据服务器的环境而选择。一个不行，需要选择另一个。这里有一些供参考

用ASP连接DBF、DBC、MDB、Excel、SQL Server型数据库的方法：
一、ASP的对象存取数据库方法
  在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command
Connection：负责打开或连接数据
Recordset：负责存取数据表
Command：负责对数据库执行行动查询命令

二、连接各数据库的驱动程序
  连接各数据库可以使用驱动程序，也可以使用数据源，不过我建议大家使用驱动程序，因为使用驱动程序非常方便、简单，而使用数据源比较麻烦。

ODBC链接

OLEDB链接

而我们在一般情况下使用Access的数据库比较多，在这里我建议大家连接Access数据库使用下面的方法：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../db/bbs.mdb")

其中../db/bbs.mdb是你的数据库存放的相对路径！如果你的数据库和ASP文件在同一目录下，你只要这样写就可以了：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("bbs.mdb")

有许多初学者在遇到数据库连接时总是会出问题，然而使用上面的驱动程序只要你的数据库路径选对了就不会出问题了。

资料原产地：http://www.blueidea.com/tech/program/2003/907.asp

像这次我配置的是windows server 2003 r2 64bit 系统 + sql server 2005，使用驱动方式连接就失败了，只能用数据远方式连接。

一个批处理清理了一下电脑垃圾，结果ACC数据库就出错。

系统环境
Windows 2003+IIS6+NTFS
ASP+Access

错误信息
Microsoft JETDatabase Engine 错误 '80004005' 未指定的错误


故障原因
此类错误一般出现于文件系统为NTFS格式中，是IIS匿名帐号（IUSR_计算机名）对相关文件、文件夹操作权限不足引起的。
一、存放数据库文件夹对IIS匿名帐号没有写入、修改权限，错误表现为无法对数据库进行更新、写入
二、 系统临时文件夹目录对IIS匿名帐号没有写入、修改权限，错误表现为访问服务器上任何采用Microsoft JET Database Engine 链接Access类数据库的文件都是出错。正常情况下是不会出现这个错误的，当使用某些系统垃圾清理优化工具、或其它一些因素可能会导致这个目录权限发生 改变。所以请慎重使用此类工具。

解决办法
一、检查存放Microsoft Access数据库文件的文件夹是否有对IIS匿名帐号有写入权限，如果没有，请赋于写入权限，特别是当错误信息为（Microsoft JET Database Engine 错误 '80004005' 操作必须使用一个可更新的查询。）时。

二、JET 引擎在链接数据库的时候会在%windir%/temp/目录下创建临时文件，而IIS匿名帐号对%windir%/temp/目录操作权限不够，添加IIS匿名帐号（IUSR_计算机名）对%windir%/temp/的读写权限即可。

其它一些未指定的错误，可以尝试重新注册ASP脚本解释链接库文件。
依顺序运行以下命令：
1.regsvr32 jscript.dll
2.regsvr32 vbscript.dll
3.iisreset

来源：http://tech.powereasy.net/help/SiteWeaver/2464.html

BBSXP 2008 SP2进入帖子显示错误如下：

Cookies 对象 错误 'ASP 0200 : 80004005'

'Expires' 特性越界

/bbs1/BBSXP_Class.asp，行 193

为 'Expires' 指定的日期早于 1980 年 1 月 1 日，或晚于 2038 年 1 月19 日，3:14:07 GMT。

原因已经在错误信息中指出来了。修正的办法是：

-----------------------------------------------------------------------------
- BBSXP 2008 (Build: 8.0.5) SP2    2010-09-05
-----------------------------------------------------------------------------
- 修正COOKIE保存时间超出2038年引起的问题
- BBSXP_Class.asp 文件中第193行添加 if int(Expires) > 365 then Expires=365
请替换BBSXP_Class.asp即可 或 自行在193行添加if int(Expires) > 365 then Expires=365

或下载文件进行替换：http://www.bbsxp.com/download/bbsxp2008.zip

来源网址：http://bbs.yuzi.net/ShowPost.asp?ThreadID=805274

要在asp程序中使用正则表达式，需要使用内置的RegExp对象。

RegExp对象的介绍参考这里：http://www.ljf.cn/2008/5/Item31884.html

对象的使用跟JavaScript的同名对象基本相同，可参考这里：http://www.w3school.com.cn/js/jsref_obj_regexp.asp

下面给出一个例子，用来判断字符串中是否包含html代码：

function regcheck(s)
	dim re
	set re = new RegExp
	re.Pattern = "<[^>]+>"
	re.IgnoreCase = true
	re.Global = true
	regcheck = re.test(s)
end function

 在改潮汕风情网专题栏目的时候，发现被国外的spam广告机顶住，一把评论功能打开，马上就一堆spam评论出现。不得不用这个方法把带html代码的评论屏蔽掉。

写法1：

ConnStr = "Provider=SQLoledb;data source=(local);User Id=ljf;password=123456;Initial catalog=ljfdb"

这种写法一般来说不会有什么问题。是动网论坛的conn.asp中的写法。不过要注意参数的次序。似乎一些参数的次序是不能颠倒的。

方法2：

ConnStr = "driver={sql server};server=(local);uid=ljf;pwd=123456;database=ljfdb"

以上连接字符串中，ljf是用户名，123456是密码，ljfdb是数据库名称。

潮汕风情网的专题栏目，使用到一个asp组件：Persits.Jpeg (ASPJpeg)。这是一个创建图片水印、缩略图的组件。由于不明原因，服务器这个组件不能使用：创建对象的时候提示：

Microsoft VBScript 运行时错误 错误 '800a01ad'

ActiveX 部件不能创建对象

为了确认这个组件是否被服务器支持，同事要求我用阿江asp探针进行测试。测试结果显示支持！仔细检查测试的代码：

'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If Err Then Exit Sub'此行原来没有。
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub

 加入If Err 的判断后，检测出来的结果终于正常。至于为什么会出错，我猜测是64位操作系统的问题。这个组建的版本是1.8版的，估计不能支持64操作系统。

没有办法，看来只能不用这个组件了。