幾個ASP好用的自訂函數

函數

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