求救,我的代码那里出了问题!(关于验证码的问题),我看不见验证码!谢谢!

[Harryjing2018]

<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("CheckCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
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("../image/body.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("../image/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("CheckCode") = 9999
End Function
%>

[goodstuday]

可能是你的系统是XP打了sp2
http://www.weste.net/html/200408/20040813QBI130417.html

[Harryjing2018]

不是,我用的是windows2003,我在本计算机调试,要进入后台管理,出现的这种情况!

[白夜花寒]

楼上说得是对的,8过还是用gif的验证码算了,比较好,google搜索竹竹验证码.....

[Harryjing2018]

这是我修改别人的程序,自己不精通asp,大家救救我,老板已经给我下了通缉命令!
1个小时搞定!

[lsgis2001]

路过，学习学习。
关注

[Harryjing2018]

我在windows xp下就没有这个问题了! 超级郁闷ing!

[Harryjing2018]

已经解决

[lexalie]

白夜花寒(远藤花已谢,白夜花未寒) ,谢谢你啊!是你介绍的竹竹验证码使我拜托了困境,看到了继续活下去的希望!