方法一（适合动易cms版）:
方法:
1、修改验证码文件 Inc/checkcode.asp 第15行、第32行、第41行 For i = 0 To 5，这是显示6位验证码的，如想显示4位，则改为 For i = 0 To 3。
2、修改所有站中要输入验证码的地方，如后台登录处改Admin目录中的Admin_Login.asp文件中的137行中的
下面为要修改的页面：
Admin/Admin_Login.asp 文件中的137行
User/User_GetPassword.asp 文件中的100行
User/User_Login.asp 文件中的99行
UserLogin.asp 文件中的76行
Install.asp (78行，这个就不必改了。^_^)
3、把下面提供的下载文件：Head.fix 放到网站根目录下的Images文件夹里（注重：因为这个Images文件夹里有同名的文件，但这个同名文件是启用6位验证码的文件，你可以把它改名，以备以后再启用6位验证码时能恢复使用）
下载文件：Head.rar
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
方法二（适合动易SiteWeaver?版本）
1.修改验证码文件 Inc/checkcode.asp 第24行、第45行、第59行 For i = 0 To 5，这是显示6位验证码的，如想显示4位，则改为 For i = 0 To 3
2.然后将head.rar包内的文件覆盖服务器上image目录下同名文件，请先做备份
方法三 （需要一些技术基础）
将动易的验证码改成4位数，需要修改几个文件：
一、用UltraEdit打开Head.Fix文件。head.fix文件在Images里找。
将3C 改为28 就是4位验证码的宽度,改为1E就是3位的,改为14就是2位的,改为32就是5位的,改为0A就是1位的.
二、这个文件修改后,再修改CheckCode.asp文件。修改的位置如下：
Dim zimg(4), NStr '这里由6改为4
Randomize Timer
For i = 0 To 3 '这里由5改为3
rNum = Fix(9 * Rnd) '将35改为9即为使用纯数字密码
zimg(i) = rNum
listnum = listnum & Mid(listcode, rNum + 1, 1)
Next
Session("CheckCode") = listnum
'*********************
Dim Pos
Set Ados = Server.CreateObject("Adodb.Stream")
Ados.Mode = 3
Ados.Type = 1
Ados.Open
Set Ados1 = Server.CreateObject("Adodb.Stream")
Ados1.Mode = 3
Ados1.Type = 1
Ados1.Open
Ados.LoadFromFile Server.mappath("../images/body" & CodeType & ".Fix")
Ados1.write Ados.Read(1920) '这里由2880改为1920
For i = 0 To 3 '这里由5改为3
Ados.Position = (35 - zimg(i)) * 480
Ados1.Position = i * 480
Ados1.write Ados.Read(480)
Next
Ados.LoadFromFile Server.mappath("../images/head.fix")
Pos = LenB(Ados.Read())
'Ados.Position = Pos
On Error Resume Next
For i = 0 To 15
For j = 0 To 3 '这里由5改为3
Ados1.Position = i * 32 + j * 480
Ados.Position = Pos + 30 * j + i * 270
Ados.write Ados1.Read(30)
Next
Next
三、修改所有站中要输入验证码的地方，如后台登录处改Admin目录中的文件中的137行中的
下面为要修改的页面：
Admin/ 文件中的137行
User/ 文件中的100行
User/ 文件中的99行
UserLogin.asp 文件中的76行