checkcode.asp
上传用户:szhf331
上传日期:2022-06-22
资源大小:1032k
文件大小:1k
源码类别:

行业应用

开发平台:

JavaScript

  1. <%
  2. Option Explicit
  3. Response.buffer=true
  4. NumCode
  5. Function NumCode()
  6. Response.Expires = -1
  7. Response.AddHeader "Pragma","no-cache"
  8. Response.AddHeader "cache-ctrol","no-cache"
  9. On Error Resume Next
  10. Dim zNum,i,j
  11. Dim Ados,Ados1
  12. Randomize timer
  13. zNum = cint(8999*Rnd+1000)
  14. Session("CheckCode") = zNum
  15. Dim zimg(4),NStr
  16. NStr=cstr(zNum)
  17. For i=0 To 3
  18. zimg(i)=cint(mid(NStr,i+1,1))
  19. Next
  20. Dim Pos
  21. Set Ados=Server.CreateObject("Adodb.Stream")
  22. Ados.Mode=3
  23. Ados.Type=1
  24. Ados.Open
  25. Set Ados1=Server.CreateObject("Adodb.Stream")
  26. Ados1.Mode=3
  27. Ados1.Type=1
  28. Ados1.Open
  29. Ados.LoadFromFile(Server.mappath("../images/body.Fix"))
  30. Ados1.write Ados.read(1280)
  31. For i=0 To 3
  32. Ados.Position=(9-zimg(i))*320
  33. Ados1.Position=i*320
  34. Ados1.write ados.read(320)
  35. Next
  36. Ados.LoadFromFile(Server.mappath("../images/head.fix"))
  37. Pos=lenb(Ados.read())
  38. Ados.Position=Pos
  39. For i=0 To 9 Step 1
  40. For j=0 To 3
  41. Ados1.Position=i*32+j*320
  42. Ados.Position=Pos+30*j+i*120
  43. Ados.write ados1.read(30)
  44. Next
  45. Next
  46. Response.ContentType = "../images/BMP"
  47. Ados.Position=0
  48. Response.BinaryWrite Ados.read()
  49. Ados.Close:set Ados=nothing
  50. Ados1.Close:set Ados1=nothing
  51. If Err Then Session("CheckCode") = 9999
  52. End Function
  53. %>