简介说明:<%
'作用:文字防复制乱码 函数
'Date:2006-3-6
'作者:blue2004
'参数str 为原文,str1作者也是你自己,reslut产生乱码的种子
Function ReadToCode(str,Str1,result)
dim name
dim i,j,k
If isnull(str) [阅读全文]
简介说明:<%
''//生成指定位数的随机数字
''//也可以用Guidy写的iXuEr_Rnd_Str函数,自带15种样式,可以伪MD5啦!!
Function rndStr(strLong)
Dim tempStr
Randomize
Do While Len(rndStr) < strLong
tempStr [阅读全文]