几个ASP好用的自定义函数

2022-07-15 80酷酷网 80kuku.com

　　函数

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