幾個ASP好用的自訂函數

來源:互聯網
上載者:User
函數

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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。