ASP 驗證碼的Session總是前一個圖形的答案?

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1124

會員總數：246268
討論主題：189809

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> ASP 驗證碼的Session總是前一個圖形的答案?

[]

[我要回覆]

ASP 驗證碼的Session總是前一個圖形的答案?
價值 : 30 QP 點閱數:1960 回應數:1

樓主

橘子大師兄

55	110
1146	138

發送站內信

請問高手大大!! 為何ASP 驗證碼的Session總是前一個圖形的答案? 圖形中的答案Session不一致!! 這該如何處理?

<%    
 Call Com_CreatValidCode("GetCode")    
 Sub Com_CreatValidCode(pSN)    
     ' 禁止緩存    
     Response.Expires = -9999     
     Response.AddHeader "Pragma","no-cache"    
     Response.AddHeader "cache-ctrol","no-cache"    
    'Response.C    
     Randomize    
     Dim i, ii, iii    
     Const cOdds = 0 ' 雜點出現的機率    
     Const cAmount = 13 ' 文字數量    
     Const cCode = "0123456789+=?"    
     ' 顏色的資料(字元，背景)    
     Dim vColorData(1),vColorRandom(10)    
     'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' 藍0，綠0，紅0（黑色）    
     vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)    
     vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)    
     vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)    
     vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)    
     vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)    
     vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)    
     vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)    
     vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)    
     vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)    
     vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)    
     vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)    
     vColorData(0) = vColorRandom(0)    
     vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '背景色 藍250，綠236，紅211（淺藍色）    
     ' 隨機產生字元    
     Dim vCode(6),vCodes,vCodeColors(6)    
     For i = 0 To 6    
         vCodeColors(i)=vColorRandom(Int(Rnd * 10))    
     Next    
         
     vCode(0) = Int(Rnd*8)+1    
     vCode(1) = Int(Rnd*9)    
     vCode(2) = 10    
     vCode(3) = Int(Rnd*8)+1    
     vCode(4) = Int(Rnd*9)    
     vCode(5) = 11    
     vCode(6) = 12    
     Session(pSN) = vCode(0)*10+vCode(1)+vCode(3)*10+vCode(4) '記錄入Session    
     ' 字元的資料    
     Dim vNumberData(12)    
     vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"    
     vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"    
     vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"    
     vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"    
     vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"    
     vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"    
     vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"    
     vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"    
     vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"    
     vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"    
     vNumberData(10) = "1111111111111101111111110111111111011111100000001111110111111111011111111101111111110111111111111111"    
     vNumberData(11) = "1111111111111111111111111111111000000001111111111111111111111000000001111111111111111111111111111111"    
     vNumberData(12) = "1110000111110011001111011110111111111011111111001111111001111111001111111111111111110011111111001111"    
         
     ' 輸出圖像檔頭    
     Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(166) & ChrB(8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(72) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)    
     ' 輸出圖像資訊頭    
     Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(112) & ChrB(8) &_    
     ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_    
     ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_    
     ChrB(0) & ChrB(0)    
     For i = 9 To 0 Step -1 ' 歷經所有行    
         For ii = 0 To 6 ' 歷經所有字    
             For iii = 1 To 10 ' 歷經所有圖元    
                 ' 逐行、逐字、逐圖元地輸出圖像資料    
                 vColorData(0)=vCodeColors(ii)    
                 If Rnd * 99 + 1 < cOdds Then ' 隨機生成雜點    
                     Response.BinaryWrite vColorData(0)    
                 Else    
                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))    
                 End If    
             Next    
         Next    
     Response.BinaryWrite vColorData(1) & vColorData(1)    
     Next    
 End Sub    
 %>

搜尋相關Tags的文章： [ ASP 驗證碼的Session總是前一個圖形的答案? ] ,
本篇文章發表於2014-01-25 14:12

== 簽名檔 ==
沒有人天生就會，想知道的書上不一定都會有寫，就是不會才要問，如果每個人天生都會寫軟體，那軟體公司就倒店了!

1樓

最有價值解答

香帥

程式碼如下,請參考
v.asp

genpic.asp程式碼如下

<%    
 Call Com_CreatValidCode("vcode")    
 Sub Com_CreatValidCode(pSN)    
     ' 禁止緩存    
     Response.Expires = -9999     
     Response.AddHeader "Pragma","no-cache"    
     Response.AddHeader "cache-ctrol","no-cache"    
    'Response.C    
     Randomize    
     Dim i, ii, iii    
     Const cOdds = 0 ' 雜點出現的機率    
     Const cAmount = 13 ' 文字數量    
     Const cCode = "0123456789+=?"    
     ' 顏色的資料(字元，背景)    
     Dim vColorData(1),vColorRandom(10)    
     'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' 藍0，綠0，紅0（黑色）    
     vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)    
     vColorRandom(1)=ChrB(0) & ChrB(150) & ChrB(0)    
     vColorRandom(2)=ChrB(0) & ChrB(0) & ChrB(150)    
     vColorRandom(3)=ChrB(0) & ChrB(50) & ChrB(150)    
     vColorRandom(4)=ChrB(150) & ChrB(50) & ChrB(0)    
     vColorRandom(5)=ChrB(150) & ChrB(0) & ChrB(150)    
     vColorRandom(6)=ChrB(150) & ChrB(100) & ChrB(10)    
     vColorRandom(7)=ChrB(150) & ChrB(40) & ChrB(120)    
     vColorRandom(8)=ChrB(150) & ChrB(0) & ChrB(250)    
     vColorRandom(9)=ChrB(100) & ChrB(100) & ChrB(100)    
     vColorRandom(10)=ChrB(50) & ChrB(50) & ChrB(50)    
     vColorData(0) = vColorRandom(0)    
     vColorData(1) = ChrB(250) & ChrB(250) & ChrB(255) '背景色 藍250，綠236，紅211（淺藍色）    
     ' 隨機產生字元    
     Dim vCode(6),vCodes,vCodeColors(6)    
     For i = 0 To 6    
         vCodeColors(i)=vColorRandom(Int(Rnd * 10))    
     Next    
         
     vCode(0) = Int(Rnd*8)+1    
     vCode(1) = Int(Rnd*9)    
     vCode(2) = 10    
     vCode(3) = Int(Rnd*8)+1    
     vCode(4) = Int(Rnd*9)    
     vCode(5) = 11    
     vCode(6) = 12    
     Session(pSN) = vCode(0)*10+vCode(1)+vCode(3)*10+vCode(4) '記錄入Session    
     ' 字元的資料    
     Dim vNumberData(12)    
     vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"    
     vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"    
     vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"    
     vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"    
     vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"    
     vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"    
     vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"    
     vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"    
     vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"    
     vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"    
     vNumberData(10) = "1111111111111101111111110111111111011111100000001111110111111111011111111101111111110111111111111111"    
     vNumberData(11) = "1111111111111111111111111111111000000001111111111111111111111000000001111111111111111111111111111111"    
     vNumberData(12) = "1110000111110011001111011110111111111011111111001111111001111111001111111111111111110011111111001111"    
         
     ' 輸出圖像檔頭    
     Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(166) & ChrB(8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(72) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_    
     ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)    
     ' 輸出圖像資訊頭    
     Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(112) & ChrB(8) &_    
     ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_    
     ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_    
     ChrB(0) & ChrB(0)    
     For i = 9 To 0 Step -1 ' 歷經所有行    
         For ii = 0 To 6 ' 歷經所有字    
             For iii = 1 To 10 ' 歷經所有圖元    
                 ' 逐行、逐字、逐圖元地輸出圖像資料    
                 vColorData(0)=vCodeColors(ii)    
                 If Rnd * 99 + 1 < cOdds Then ' 隨機生成雜點    
                     Response.BinaryWrite vColorData(0)    
                 Else    
                     Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))    
                 End If    
             Next    
         Next    
     Response.BinaryWrite vColorData(1) & vColorData(1)    
     Next    
 End Sub    
 %>

以上已經測試ok,測試網址在

http://ap.a168a.com/blueshop/validcode/v.asp

本篇文章回覆於2014-01-25 18:47

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.