<%
Option Explicit

'设置页面不缓存
Response.buffer=true
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache" 

NumCode
Function NumCode()
' Response.Expires = -1
' Response.AddHeader "Pragma","no-cache"
' Response.AddHeader "cache-ctrol","no-cache"
 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("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("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
End Function
%>
 
下载需要的两个文件:head.fix body.fix

引用通告地址 (0)：
http://www.mseagle.cn/trackback_wyh.asp?tbID=264
http://www.mseagle.cn/trackback_wyh.asp?tbID=264&CP=GBK

标题:注册香港公司
链接:http://www.tannet.net
摘要:香港登尼特：专业注册公司、注册香港公司，注册上海公司，注册美国公司，注册深圳公司，中国及海外公司，香港公司注册，深圳公司注册，上海公司注册，中国公司注册。

请教一下，你的验证码是怎么放进来的，实现“后退”验证码改变,而其它不变的功能？
谢谢你！
急需求助！
我的QQ：278262807

再次测试一下

让我来测试一下你的验证码