| ASP 后台附加码问题
|
 减小字体
 增大字体
|
问题：本机调试正常,把它放在空间后,附加码图片就不可见了---------------------------------------------------------<％Response.buffer=trueNumCodeFunction 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(GetCode) = 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(../Sys_Images/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(../Sys_Images/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(GetCode) = 9999End Function％>
是不是一个生成验证码的页面？
确认这些文件有没有放上去？
../Sys_Images/head.fix
../Sys_Images/head.fix
路劲有没有错误！
确认服务器是不是支持Adodb.Stream组件！
还没有找出来的话就找给我留言！
参考资料：ASP
如果你对本机调试正常,把它放在空间后,附加码图片就不可见了---------------------------------------------------------<％Response.buffer=trueNumCodeFunction 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(GetCode) = 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(../Sys_Images/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(../Sys_Images/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(GetCode) = 9999End Function％>这个问题有好的意见或
建议，请留言
|
|
[]
[返回上一页]
[打 印]
|
|
|
您当前的位置：
百科371 → 电脑/网络 → 汇编语言 → 电脑/网络内容
退出登录