|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.函数cLeft(string,length)前往指定命目标从字符串的右边算起的字符,辨别单双字节。
如:
DimMyString,LeftString
MyString="笔墨测试VBSCript"
LeftString=cLeft(MyString,10)
前往"笔墨测试VB"。
MyRandc(n)天生随机字符,n为字符的个数
如:
response.writeMyRandn(10)
输入10个随机字符
MyRandn(n)天生随机数字,n为数字的个数
如:
response.writeMyRandn(10)
输入10个随机数字
formatQueryStr(str)格局化sql中的like字符串.
如:
q=Request("q")
q=formatQueryStr(q)
sql="select*from[table]whereaalike%"&q&"%"
GetRnd(min,max) 前往min-max之间的一个随机数
如:
response.writeGetRnd(100,200)
输入年夜于100到200之间的一个随机数
函数代码:
functioncLeft(str,n)
dimstr1,str2,alln,Islefted
str2=""
alln=0
str1=str
Islefted=false
ifisnull(str)then
cleft=""
exitfunction
endif
fori=1tolen(str1)
nowstr=mid(str1,i,1)
ifasc(nowstr)<0then
alln=alln+2
else
alln=alln+1
endif
if(alln<=n)then
str2=str2&nowstr
else
Islefted=true
exitfor
endif
next
ifIsleftedthen
str2=str2&".."
endif
cleft=str2
endfunction
functionMyRandc(n)天生随机字符,n为字符的个数
dimthechr
thechr=""
fori=1ton
dimzNum,zNum2
Randomize
zNum=cint(25*Rnd)
zNum2=cint(10*Rnd)
ifzNum2mod2=0then
zNum=zNum+97
else
zNum=zNum+65
endif
thechr=thechr&chr(zNum)
next
MyRandc=thechr
endfunction
functionMyRandn(n)天生随机数字,n为数字的个数
dimthechr
thechr=""
fori=1ton
dimzNum,zNum2
Randomize
zNum=cint(9*Rnd)
zNum=zNum+48
thechr=thechr&chr(zNum)
next
MyRandn=thechr
endfunction
functionformatQueryStr(str)格局化sql中的like字符串
dimnstr
nstr=str
nstr=replace(nstr,chr(0),"")
nstr=replace(nstr,"","")
nstr=replace(nstr,"[","[[]")
nstr=replace(nstr,"%","[%]")
formatQueryStr=nstr
endfunction
functionGetRnd(min,max)
Randomize
GetRnd=Int((max-min+1)*Rnd+min)
endfunction
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|