点击复制DIV中内容：<div id="Layer1">代码人：http://www.09190.com</div><script>function xcopyf(){         var obj=document.getElementById("L

出现这种情况的原因一般情况下是由于数据量过大造成的

在代码中加入以下代码即可:
Response.Buffer=False

注意：如果你的代码中有死循环的话后果可能比较严重，你应先查一下是否有死循环
 

这是网上比较常用的一种，实现方式比较简单，借助于Flash,图片格式只能是jpg格式，下载包中有具体实例

效果图片：

 

源代码打包下载：200901141153456245.rar

用法:
在需要显示验证码图片的地方插入代码 <img src="code.asp" alt="请输入验证码">
同时，自动将值保存在session("psn")，表单提交验证session值是否和表单用户输入的一样就可以了。

显示效果截图：

我们平常见到的验证码大都是数字验证码，或者高级点的数字+英文，对于中文汉字验证码还是比较少见的，像腾讯QQ的帐号验证就使用了中文验证码，当然中文验证码更加的安全，不过这给用户带来了麻烦，输入数字和字母总比汉字快一点。

此中文汉字验证码代码是在别人基础上增加的汉字功能。 以前的图片验证码很容易被破解，所以在其基础上进行改进，生成汉字，就目前而言很难破解。

'str,原字符串
'L，要取的字符串长度（英文）
'Fill,超出部分加的字符
Function StrLeft(Str,L,fill)
 
 dim L1,str1
 L1 = L
 str1 = str
 
 for xx = 1 to L
 
  str = mid(str1,xx,1)
...

'强制定意变量：
option explicit

'得到对方IP
Request.serverVariables("REMOTE_ADDR")

'得到随机N位数字
Randomize'初始化随机函数
response.write int(Rnd * 899 + 100)

'本机ip
request.servervariables("remote_addr")
...

dim folder
dim Fso,Fout
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(server.mappath("images/"))=false then
set folder=fso.createFolder(Server.Mappath("images/"))'如果不存在创建文件夹
...

'PageName格式 aaa.asp?
Sub ShowPage(PageName,page)
 dim pagelen
 pagelen=split(request.ServerVariables("page"),"&") '得到网址 ?号 后面的参数网址
 if UBound(pagelen)<1 then '如果网址是 xxx.asp?page=1 或 xxx.asp 类型的则用标准的分页方法
...