预览模式: 普通 | 列表

ASP随机生成汉字,可以用来做认证码!

 

ASP/Visual Basic代码
  1. <%Dim i   
  2.     Dim j   
  3.     Dim HS   
  4.     Dim HE   
  5.     Dim LS   
  6.     Dim LE   
  7.     dim Result   
  8.     Result=""  
  9.     HS = 177   
  10.     HE = 247   
  11.     LS = 161   
  12.     LE = 254   
  13.     dim Max_Num   
  14.     Max_num=65536   
  15.     Randomize      
  16.     For i = 1 To 4    
  17. temp1=dec2bin(Int((HE - HS) * Rnd()) + HS)    
  18. temp2=dec2bin(Int((LE - LS) * Rnd()) + LS)    
  19.         Result = Result & chr(BinaryToDecimal(temp1 & temp2) - Max_num)   
  20.   
  21.     Next  
  22.     response.write Result & " "  
  23. %>   
  24. <%   
  25.     ''下面是函数   
  26. ''-------------------------------------------   
  27. Public Function dec2bin(mynum)''十进制到二进制   
  28. Dim loopcounter    
  29. If mynum >= 2 ^ 31 Then  
  30. dec2bin = "Too big"  
  31. Exit Function  
  32. End If  
  33. Do  
  34. If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then  
  35. dec2bin = "1" & dec2bin   
  36. Else  
  37. dec2bin = "0" & dec2bin   
  38. End If  
  39. loopcounter = loopcounter + 1   
  40. Loop Until 2 ^ loopcounter > mynum   
  41. End Function  
  42. ''-------------------------------------------   
  43. Public Function BinaryToDecimal(BinaryValue)    
  44. ''二进制到十进制的转换   
  45. '' Returns the decimal equivalent of a binary number   
  46. Dim idx   
  47. Dim tmp   
  48. Dim result   
  49. Dim digits   
  50. digits = Len(BinaryValue)   
  51. For idx = digits To 1 Step -1       
  52.     tmp = Mid(BinaryValue, idx, 1)   
  53.     If tmp = "1" Then result = result + 2 ^ (digits - idx)   
  54. Next  
  55. BinaryToDecimal = result   
  56.   
  57. End Function    
  58. %>  

查看更多...

分类:时事 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 0

ACTcms自由标签二次循环修改

分类:技术 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 398

从ACTCMS 到论CMS系统标签

这几天做个英语站,第一次使用ACTCMS,ACT自定义模型很好很强大,只是新建模型中保留了文章系统的的字段有点不爽。

查看更多...

分类:Website | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 271

无意中看到奥运会开幕式彩排

炫!

高丽棒子偷拍的杰作

Tags: 奥运 开幕式

分类:时事 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 290

ASP中的FSO方法列表

方法:BuildPath
语法:对象名.BulidPath(路径,文件名)

查看更多...

Tags: ASP FSO

分类:技术 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 423

ASP? PHP?

寻找CMS系统徘徊ING...
一直想用ASP系统,自己懂ASP,而且ACC数据库使用方便,绿色环保,ASP环境容易配置。

查看更多...

分类:Website | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 276