广场 › 『免费资源 Free Hosting Discussion』 › asp空间不能显示验证码是怎么回事?

hotboy 发表于 2007 年 3 月 25 日 11:06:37

asp空间不能显示验证码是怎么回事?

http://users1.nofeehost.com/lovou

TNND,其他正常,就是不能显示验证码?

不知怎么搞哈?

waitme 发表于 2007 年 3 月 25 日 11:08:18

Server.CreateObject Failed

/lovou/include/validatecode.asp, line 25

hotboy 发表于 2007 年 3 月 25 日 11:10:33

http://users1.nofeehost.com/lovou/aspcheck.asp

这是探针!

hotboy 发表于 2007 年 3 月 25 日 11:11:38

回复 #2 waitme 的帖子

这个应该怎么搞啊............

wode998 发表于 2007 年 3 月 25 日 11:13:24

ＢＳ验证嘛

waitme 发表于 2007 年 3 月 25 日 11:15:25

貌似组件问题，。，，，，，，，你弹针显示乱码啊
你看下你的错误那行

hotboy 发表于 2007 年 3 月 25 日 11:27:37

我也搞不清楚了..............晕

hotboy 发表于 2007 年 3 月 25 日 11:28:29

<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache"
Dim RndNum,ImgFileContent
Randomize Timer
RndNum = Cint(7999*Rnd+1000)
Session.TimeOut=120
Session("L-Blog_ValidateCode") = Cstr(RndNum)
ImgFileContent=NumCode(RndNum)
Response.ContentType = "image/BMP"
Response.BinaryWrite ImgFileContent

Function NumCode(NumS)
    Dim NumI,NumJ
    Dim AdoM,AdoN
    Dim Arr_Img(4),NStr
      NStr=Cstr(NumS)
      For NumI=0 To 3
            Arr_Img(NumI)=Cint(Mid(NStr,NumI+1,1))
      Next
    Dim Position
    Set AdoM=Server.CreateObject("Adodb.Stream")
      AdoM.Mode=3
      AdoM.Type=1
      AdoM.Open
      Set AdoN=Server.CreateObject("Adodb.Stream")
      AdoN.Mode=3
      AdoN.Type=1
      AdoN.Open
      AdoM.LoadFromFile(Server.Mappath("validatebody.fix"))
      AdoN.Write AdoM.Read(1280)
      For NumI=0 To 3
            AdoM.Position=(9-Arr_Img(NumI))*320
            AdoN.Position=NumI*320
            AdoN.Write AdoM.Read(320)
      Next   
      AdoM.LoadFromFile(Server.Mappath("validatehead.fix"))
      Position=Lenb(AdoM.Read())
      AdoM.Position=Position
      For NumI=0 To 9 Step 1
            For NumJ=0 To 3
                AdoN.Position=NumI*32+NumJ*320
                AdoM.Position=Position+30*NumJ+NumI*120
                AdoM.Write AdoN.Read(30)
            Next
      Next
      AdoM.Position = 0
      NumCode = AdoM.Read()
      AdoM.Close:Set AdoM=Nothing
      AdoN.Close:Set AdoN=Nothing
End Function
%>
这个就是validatecode.asp源代码了!

waitme 发表于 2007 年 3 月 25 日 11:28:29

回复 #7 hotboy 的帖子

那就把验证码去了。。。。。。。

hotboy 发表于 2007 年 3 月 25 日 11:38:00

回复 #9 waitme 的帖子

不知道在哪去啊,你帮我看下哈....

我用QQ传给你,帮我下吧

查看完整版本: asp空间不能显示验证码是怎么回事?