2.3 ASP內(nèi)建函數(shù)、過程、自定義函數(shù)_第1頁
2.3 ASP內(nèi)建函數(shù)、過程、自定義函數(shù)_第2頁
2.3 ASP內(nèi)建函數(shù)、過程、自定義函數(shù)_第3頁
2.3 ASP內(nèi)建函數(shù)、過程、自定義函數(shù)_第4頁
2.3 ASP內(nèi)建函數(shù)、過程、自定義函數(shù)_第5頁
已閱讀5頁，還剩25頁未讀， 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

2.3ASP內(nèi)建函數(shù)、過程、自定義函數(shù)

（一）分類

1、sub過程

定義：包含在sub和endsub之間的一組語句，操作結(jié)果不返回結(jié)果。它可以 帶參數(shù)。 調(diào)用:call過程名（參數(shù)）

過程名參數(shù)

注：無參數(shù)的過程調(diào)用時必須帶括號

2、function過程

定義:包含在function和endsub之間的一 組語句，操作結(jié)果返回variant類型值。

調(diào)用:變量=過程名(參數(shù)）vbscriptMsgbox函數(shù)：功能：彈出信息框格式：msgbox“信息框顯示的內(nèi)容”vbscript例1：單擊按鈕彈出信息窗口<html><head><title>測試按鈕事件</title><scriptlanguage=vbscript>subbutton1_onclick()msgbox“按鈕被單擊！”endsub</script></head><body><formname="form1"><inputtype="button"name="button1"value="單擊"></form></body></html>vbscriptIf…then…else條件半判斷語句：格式：If條件then

語句Else

語句Endifvbscript例2：利用條件半判斷語句彈出信息窗口<html><body><scriptlanguage=vbscript>value=20Ifvalue=0Then flag=5

ElseIfvalue=1Then flag=10

ElseIfvalue=2then flag=15Else

Msgbox"數(shù)值超出范圍！"EndIf</script></body></html>vbscriptSelectcase判斷語句：格式：Selectcase變量

case常量列表----常量列表之間用,號分隔語句

case常量列表語句

caseelse

語句Endselectvbscript例3：顯示年齡<scriptlanguage=vbscript>age=20SelectCaseageCase0,1,2,3,4,5----逐一列出條件值

S="幼兒"Case6,7,8,9,10,11S="兒童"Case12,13,14,15,16,17S="少年"CaseElseS="成人"EndSelectS=age&"歲是“"&S&"”啦！"document.WriteS----document瀏覽器對象write輸出的方法</script>vbscriptDowhile循環(huán)語句：格式：Dowhile條件語句Loop注：先判斷后執(zhí)行vbscript例4：返回循環(huán)次數(shù)<scriptlanguage=vbscript>Dimcounter,myNumcounter=0

myNum=20DoWhilemyNum>10

myNum=myNum-1counter=counter+1LoopMsgBox"循環(huán)重復(fù)了"&counter&"次。"</script>vbscriptDo循環(huán)語句：格式：Do語句Loopwhile條件注：先執(zhí)行后判斷vbscript例5：返回循環(huán)次數(shù)<scriptlanguage=vbscript>Dimcounter,myNumcounter=0

myNum=9Do

myNum=myNum-1counter=counter+1LoopWhilemyNum>10MsgBox"循環(huán)重復(fù)了"&counter&"次。"</script>vbscriptWhile循環(huán)語句：格式：While條件語句Wend注：先判斷后執(zhí)行vbscript例6：返回循環(huán)次數(shù)<scriptlanguage=vbscript>Dimcounter,myNumcounter=0

myNum=0WhilemyNum<10

myNum=myNum+1counter=counter+1WendMsgBox"循環(huán)重復(fù)了"&counter&"次。"</script>vbscriptFor循環(huán)語句：格式：For變量=初值to終值step增量語句Nextvbscript例7：計算總和<scriptlanguage=vbscript>Dimj,totalForj=2To10Step2total=total+jNextMsgBox"總和為"&total&"。"</script>vbscript例8：利用華氏溫度計算攝氏溫度<html><body><scriptlanguage=vbscript>Subconvert_onclick()temp=InputBox(“請輸入華氏溫度?！?MsgBox"溫度為"&Celsius(temp)&"攝氏度。"EndSubFunctionCelsius(fDegrees)Celsius=(fDegrees-32)*5/9EndFunction</script><form><inputtype=buttonname=convertvalue=sub></form></body></html>vbscript常用函數(shù)：Asc(字符)：返回字符的ascII碼。Chr(ascII碼)：返回ascII碼對應(yīng)的字符。Len(字符串)：返回字符串的長度。Mid(字符串,起始位置,長度)：字符串截取。Right(字符串,長度)：從右側(cè)截取字符串。Replace(字符串,被替換的字符,替換后的字符)：字符串替換。Split(字符串,分隔符)：將字符串分隔成數(shù)組。Int(數(shù)字)：取整。Rnd()：取0---1之間的隨機數(shù)。Inputbox(字符串)：輸入對話框。Cstr(數(shù)字)：將數(shù)值型轉(zhuǎn)換成字符型。Formatnumber(字符串)：將字符型轉(zhuǎn)換成數(shù)值型。vbscript例9：返回字符的ASCII值<scriptlanguage=vbscript>MyNumber1=Asc(“A")'返回65MyNumber2=Asc("a")'返回97MyNumber3=Asc("Apple")'返回65Document.writeMyNumber1&"<br>"Document.writemynumber2&"<br>"Document.writemynumber3&"<br>“</script>vbscript例10：利用ASCII值返回字符<scriptlanguage=vbscript>MyChar1=Chr(65)'返回A。MyChar2=Chr(97)'返回a。MyChar3=Chr(62)'返回>。MyChar4=Chr(37)'返回%。Document.writemychar1&mychar2&mychar3&mychar4</script>vbscript例11：求字符串長度<scriptlanguage=vbscript>DimMyStringMyString=Len(“vbscript")'MyString

包含8。document.writemystring</script>vbscript例12：顯示字符串中一部分字符<scriptlanguage=vbscript>DimMyVarMyVar=Mid("VBScriptisfun!",4,6)'MyVar

包含"Script"。Document.writemyvar</script>vbscript例13：顯示字符串中一部分字符<scriptlanguage=vbscript>DimAnyString,MyStrAnyString="HelloWorld"'定義字符串。MyStr1=Right(AnyString,1)'返回"d"。MyStr2=Right(AnyString,6)'返回"World"。MyStr3=Right(AnyString,20)'返回"HelloWorld"。Document.writemystr1&"<br>"Document.writemystr2&"<br>"Document.writemystr3&"<br>"</script>vbscript例14：替換字符串<scriptlanguage=vbscript>DimMyString‘二進(jìn)制比較(默認(rèn))從字符串左端開始。返回"XXYXXPXXY"。MyString1=Replace("XXpXXPXXp","p","Y")‘1代表文本比較,3代表從第三個字符開始,-1代表全部替換。返回"YXXYXXY"。MyString2=Replace("XXpXXPXXp","p","Y",3,-1,1)Document.writemystring1&"<br>"Document.writemystring2&"<br>"</script>vbscript例15：返回數(shù)組中子字符串的內(nèi)容<scriptlanguage=vbscript>DimMyString‘x代表以分界,1代表文本比較,-1代表返回數(shù)組中的全部子字符串MyString=Split("VBScriptXisXfun!","x",-1,1)'MyString(0)包含"VBScript"。'MyString(1)包含"is"。'MyString(2)包含"fun!"。Document.writemystring(0)&"<br>"Document.writemystring(1)&"<br>"Document.writemystring(2)&"<br>"</script>vbscriptDountil循環(huán)語句：格式：Dountil條件語句Loop注：在滿足條件之前執(zhí)行語句。vbscript例16：計算隨機數(shù)<scriptlanguage=vbscript>DimMyValue,ResponseDoUntilResponse=vbNo

MyValue=Int((6*Rnd)+1)‘產(chǎn)生1到6之間的隨機整數(shù)。

MsgBoxMyValueResponse=MsgBox(“Rollagain?”,vbYesNo)

----vbyesno代表顯示是和否按鈕Loop</script>vbscript例17：輸入、輸出對話框<scriptlanguage=vbscript>DimInputInput=InputBox("輸入名字")MsgBox("輸入:"&Input)</script>vbscript例18：數(shù)值型與字符型的轉(zhuǎn)換<scriptlanguage=vbscript>DimMyDoubleMyDouble=437.324MyString=CStr(MyDouble)'MyString

包含"437.324"。Document.writemydouble&"<br>"Document.writemystring&"<br>“a="12.34"b=formatnumber(a)document.writeb</script>ASCI

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論