- 相關(guān)推薦
VBScript 腳本編寫
VBScript 的腳本編寫方法
函數(shù)和過程一樣都是命名了的代碼塊，但它們卻有很大的區(qū)別，過程完成程序任務(wù)，函數(shù)則返回值。我們可以這樣理解，過程象一個完整的句子，而函數(shù)則象一個單詞。舉個例子，當(dāng)你想獲取某個數(shù)的平方根，你只要將該數(shù)傳給 VBScript 的 Sqr() 函數(shù)，此函數(shù)會立即返回該數(shù)的平方根。如：
A=sqr(9)
則 A=3。熟練掌握腳本語言的函數(shù)將給你編寫 ASP 程序帶來極大的方便，就以上一期結(jié)尾處作者布置給大家的課后練習(xí)來說，如果你對腳本語言的函數(shù)掌握不夠全面，那么解決如此之小的一個問題將很有可能花費你相當(dāng)大的精力。現(xiàn)在讓我們來回顧一下這道課后練習(xí)。
“作者正在用 ASP 制作一套基于 WEB 的 BBS 系統(tǒng)，希望能在其中添加一項特殊功能，即當(dāng)任何用戶登陸該 BBS 后都能夠查閱近七天來所有新發(fā)布的信息�！�
如果你不熟悉 VBScrip，就不會知道 VBScrip 本身提供了一個用來取得日期之間的差或和的函數(shù) DateSerial，它的語法如下：
DateSerial(year, month, day)
如果你要指定一個日期，例如：1998 年 11 月 10 日，那么 DateSerial 函數(shù)中每個參數(shù)的取值范圍都應(yīng)該是可接受的，即日的取值應(yīng)在 1 和 31 之間，月的取值應(yīng)在 1 和 12 之間。但是，也可以使用表示某日之前或之后的年、月、日數(shù)目的數(shù)值表達(dá)式為每個參數(shù)指定相對日期。以下樣例中使用了數(shù)值表達(dá)式代替絕對日期。在這里，DateSerial 函數(shù)返回 1998 年 11 月 10 日之前二十年 (1990-20) 零兩個月 (11-2) 又一天 (10-1) 的日期：即 1978 年 9 月 9 日。程序如下：
Datep=DateSerial(1998-20, 11-2,10-1)
對于 year 參數(shù)，若取值范圍是從 0 到 99，則被解釋為 1900 到 1999 年。對于此范圍之外的 year 參數(shù)，則使用四位數(shù)字表示年份（例如 1800 年）。當(dāng)任何一個參數(shù)的取值超出可接受的范圍時，則會適當(dāng)?shù)剡M(jìn)位到下一個較大的時間單位。例如，如果指定了 35 天，則這個天數(shù)將被解釋成一個月加上多出來的日數(shù)，多出來的日數(shù)取決于其年份和月份。但是如果參數(shù)值超出 -32,768 到 32,767 的范圍，或者由三個參數(shù)指定（無論是直接還是通過表達(dá)式指定）的日期超出了可以接受的日期范圍，就會發(fā)生錯誤。 當(dāng)我們了解并掌握了函數(shù) DateSerial 的使用方法后，再來看看作者布置的這道題目，一切就迎刃而解了。下面我將程序中的此部分代碼公布如下：
itemp=DateSerial(Year(date), month(date), day(date)-7)itemp=DateValue(itemp)sql="Select * from message Where message.creatime Between #"&date&"# And #"&itemp&"# "
在這里我們又接觸到了一組函數(shù) Year,month,day，它們是用來得到一個日期的年、月、日。date 是常數(shù)，表示今天日期，而函數(shù) DateValue 則是將字符串變量轉(zhuǎn)化為日期格式的變量。在本段程序的第三行，我們第一次接觸到了標(biāo)準(zhǔn)的 SQL 查詢語句，這句語句是什么意思呢？
“Select”是標(biāo)準(zhǔn)的 SQL 數(shù)據(jù)庫查詢命令，通過 SELECT 語句我們可以在數(shù)據(jù)庫中檢索數(shù)據(jù)，并將查詢結(jié)果提供給用戶，此處的“*”表示查詢該名為“message”的數(shù)據(jù)庫中的所有記錄，而“where”的作用是設(shè)定一個查詢條件，是為了將數(shù)據(jù)庫中符合條件的記錄取出來，“message.creatime”是一個儲存了數(shù)據(jù)庫中記錄創(chuàng)建日期的變量。將整句語句連起來理解就是：查詢名為 message 的數(shù)據(jù)庫中的所有記錄，并將其中創(chuàng)建日期在今天和今天以前七日以內(nèi)的所有記錄存儲在變量 sql 中�？赡苡捎诖蠹业谝淮谓佑| SQL 語句，一時間無法完全理解它的作用，不過不用擔(dān)心在今后的章節(jié)中作者將專門用一期給大家介紹 SQL 的使用方法。
通過上面的學(xué)習(xí)，大家應(yīng)該已經(jīng)能夠理解函數(shù)在程序中的作用，當(dāng)然我們不必去死背函數(shù)，但要做到熟練運用只有一條捷徑 -- 多實踐。接下來讓我們來看看 VBScript 的基本語法。
了解編程語言的朋友一定知道在程序中控制程序流程的語句主要可以分為條件語句和循環(huán)語句，在 VBScript 中可使用以下條件語句：
If...Then...Else 語句
Select Case 語句
If...Then...Else 語句用于計算條件是否為 True 或 False，并且根據(jù)計算結(jié)果指定要運行的.語句。通常，條件是使用比較運算符對值或變量進(jìn)行比較的表達(dá)式，If...Then...Else 語句可以按照需要進(jìn)行嵌套。
讓我們來創(chuàng)建兩個范例文件：if1.asp 和 if2.asp
將以下語句剪貼到記事簿中，并保存為 if1.asp( 注意：請將程序中“<”后的空格去掉 )
〈head> < TITLE>if1.asp< /TITLE> < /head>< body bgcolor="#FFFFFF"> < form action="if2.asp" method=get> Your First Name< INPUT NAME="FirstName" MaxLength=20> Your Last Name< INPUT NAME="LastName" MaxLength=20> < INPUT TYPE=submit>< INPUT TYPE=reset> < /form>
asp2.asp 則是用 IF 語句判斷用戶輸入的姓名是否為“George Washington”, 并做出相應(yīng)的反饋。在此我們遇到了一個 ASP 的內(nèi)建對象 request，通過使用 request 對象可以訪問任何用 HTTP 請求傳遞的信息，包括從 HTML 表格中用 POST 方法或 GET 方法傳遞的參數(shù)、cookie 和用戶認(rèn)證。而 QueryString 集合檢索 HTTP 查詢字符串中變量的值，HTTP 查詢字符串由問號 (?) 后的值指定。如：http://localhost/if2.asp?Firstname=George&Lastname=Washington生成值為 "Firstname=George&Lastname=Washington" 的變量名字符串。關(guān)于 ASP 對象作者將在今后的幾篇里重點講述。If...Then...Else 語句的一種變形允許您從多個條件中選擇，即添加 ElseIf 子句以擴(kuò)充 If...Then...Else 語句的功能，使您可以控制基于多種可能的程序流程。我們將 asp2.asp 的程序部分?jǐn)U充如下：< %fname=lcase(request.querystring("Firstname")) lname=lcase(request.querystring("Lastname")) If fname="george" and lname="washington" then %>Hi.You must be the first president! < % elseIf fname="ronald" and lname="reagan" then %> Hi.You must be the actor president! < % elseIf fname="jimmy" and lname="carter" then %> Hi.You must be the peanut farmer president! < % elseIf fname="naoko" or fname="charles" then %> Hi.Your name reminds me of someone,but I am not sure who! < % else %> Hi!Nice to Meet You < % end if %>可以添加任意多個 ElseIf 子句以提供多種選擇。但使用多個 ElseIf 子句經(jīng)常會使程序變得很累贅。在多個條件中進(jìn)行選擇的更好方法是使用 Select Case 語句。Select Case 結(jié)構(gòu)提供了 If...Then...ElseIf 結(jié)構(gòu)的一個變通形式，可以從多個語句塊中選擇執(zhí)行其中的一個。Select Case 語句提供的功能與 If...Then...Else 語句類似，但是可以使代碼更加簡練易讀。Select Case 結(jié)構(gòu)在其開始處使用一個只計算一次的簡單測試表達(dá)式。表達(dá)式的結(jié)果將與結(jié)構(gòu)中每個 Case 的值比較。如果匹配，則執(zhí)行與該 Case 關(guān)聯(lián)的語句塊，我們同樣可以用 Select Case 語句來寫 asp2.asp 文件：< % fname=lcase(request.querystring("Firstname")) lname=lcase(request.querystring("Lastname")) name=fname+lname Select case name case "georgewashington" response.write "Hi.You must be the first president!" case "ronaldreagan" response.write "Hi.You must be the actor president!" case "jimmycarter" response.write "Hi.You must be the peanut farmer president!" case "naokocharles" response.write "Hi.Your name reminds me of someone,but I am not sure who!" case else response.write "Hi!Nice to Meet You" End Select %>請注意 Select Case 結(jié)構(gòu)只計算開始處的一個表達(dá)式，并且只計算一次，而 If...Then...ElseIf 結(jié)構(gòu)計算每個 ElseIf 語句的表達(dá)式，這些表達(dá)式可以各不相同。因此僅當(dāng)每個 ElseIf 語句計算的表達(dá)式都相同時，才可以使用 Select Case 結(jié)構(gòu)代替 If...Then...ElseIf 結(jié)構(gòu)。Select Case 語句也是可以是嵌套的，每一層嵌套的 Select Case 語句必須有與之匹配的 End Select 語句。以上給大家介紹的腳本語言 VBScript 的函數(shù)和條件語句的使用方法，由于篇幅的緣故不能詳細(xì)展開，希望對ASP 感興趣的朋友，閱讀完本文后進(jìn)行一定程度的自學(xué)和練習(xí)。
【VBScript 腳本編寫】相關(guān)文章：
AutoCAD腳本制作10-27
VBScript的入門學(xué)習(xí)資料有哪些10-13
影視廣告的腳本創(chuàng)作08-26
VBScript中字節(jié)數(shù)據(jù)操作函數(shù)06-20
ASP腳本循環(huán)語句詳細(xì)教學(xué)01-23
電影電視分鏡頭腳本格式09-23
游戲中實現(xiàn)腳本控制的干貨分享07-24
編導(dǎo)學(xué)習(xí)分鏡頭與分鏡頭腳本介紹05-16
MG動畫必用插件腳本有哪些05-07