网站后台登陆时出错了，

checkcode.asp的代码：
<%
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
%>

[此贴子已经被作者于2007-8-27 15:49:27编辑过]

#3 张浩2007-08-27 15:35 好

请在左边输入

#5 hmhz2007-08-27 16:01 你这个验证码无法显示有很多原因， 可能是这种程序生成的图片你的系统无法显示图片， 又或者是这个验证码程序本身就有问题 换一种验证码程序看看，如果取消验证码没问题的话， 那就把 <TR> <TD align=right height=30>验证码：</TD> <TD height=30 colspan="2" align=middle><input name="CheckCode" size="6" maxlength="4" style="border-style:solid;border-width:1;padding-left:4;padding-right:4;padding-top:1;padding-bottom:1" onMouseOver="this.style.background='#E1F4EE';" onMouseOut="this.style.background='#FFFFFF'" onFocus="this.select(); "> <font color="#FFFFFF">请在左边输入<img src="inc/checkcode.asp"></font></TD> </TR> 去掉 然后把提交后的执行文件里的代码放上来再告诉你删除相关代码取消验证码限制 [此贴子已经被作者于2007-8-27 16:02:11编辑过]

#7 笨笨林2007-08-27 19:29 如果是这样那还是换一种好，如果还有人和你电脑一样的情况，也不是看不到了吗？

#9 jamesxiaoyao2007-08-29 09:10 系统不支持 ？具体说说怎么个没效果了