ASP 基礎(chǔ)教程
在自己的 PC 上運(yùn)行 ASP
ASP 基本語(yǔ)法規(guī)則
ASP 變量
ASP 子程序
ASP 表單和用戶(hù)輸入
ASP Cookies
ASP Session 對(duì)象
ASP Application 對(duì)象
ASP 引用文件
ASP Global.asa 文件
ASP 使用 CDOSYS 發(fā)送電子郵件
ASP 對(duì)象
ASP Response 對(duì)象
ASP Cookies 集合
ASP Buffer 屬性
ASP CacheControl 屬性
ASP Charset 屬性
ASP ContentType 屬性
ASP Expires 屬性
ASP ExpiresAbsolute 屬性
ASP IsClientConnected 屬性
ASP PICS 屬性
ASP Status 屬性
ASP AddHeader 方法
ASP AppendToLog 方法
ASP BinaryWrite 方法
ASP Clear 方法
ASP End 方法
ASP Flush 方法
ASP Redirect 方法
ASP Write 方法
ASP Request 對(duì)象
ASP Cookies 集合
ASP Form 集合
ASP QueryString 集合
ASP ServerVariables 集合
ASP 教程
ASP TotalBytes 屬性
ASP BinaryRead 方法
ASP Application 對(duì)象
ASP Contents 集合
ASP StaticObjects 集合
ASP Contents.RemoveAll 方法
ASP Lock 和 Unlock 方法
ASP Application OnStart 和 Application OnEnd 事件
ASP Session 對(duì)象
ASP Contents 集合
ASP StaticObjects 集合
ASP CodePage 屬性
ASP LCID 屬性
ASP SessionID 屬性
ASP Timeout 屬性
ASP Abandon 方法
ASP Contents.Remove 方法
ASP Contents.RemoveAll 方法
ASP Session OnStart 和 Session OnEnd 事件
ASP ScriptTimeout 屬性
ASP CreateObject 方法
ASP Execute 方法
ASP Server 對(duì)象
ASP GetLastError() 方法 (ASP 3.0)
ASP HTMLEncode 方法
ASP MapPath 方法
ASP Transfer 方法
ASP URLEncode 方法
ASP ASPError 對(duì)象
ASP ASPError 對(duì)象的屬性
ASP FileSystemObject 對(duì)象
ASP Drives 屬性
ASP BuildPath 方法
ASP CopyFile 方法
ASP CopyFolder 方法
ASP CreateFolder 方法
ASP CreateTextFile 方法
ASP DeleteFile 方法
ASP DeleteFolder 方法
ASP DriveExists 方法
ASP FileExists 方法
ASP FolderExists 方法
ASP GetAbsolutePathName 方法
ASP GetBaseName 方法
ASP GetDrive 方法
ASP GetDriveName 方法
ASP GetExtensionName 方法
ASP GetFile 方法
ASP GetFileName 方法
ASP GetFolder 方法
ASP GetParentFolderName 方法
ASP GetSpecialFolder 方法
ASP GetTempName 方法
ASP MoveFile 方法
ASP MoveFolder 方法
ASP OpenTextFile 方法
ASP TextStream 對(duì)象
ASP AtEndOfLine 屬性
ASP AtEndOfStream 屬性
ASP Column 屬性
ASP Line 屬性
ASP Close 方法
ASP Read 方法
ASP ReadAll 方法
ASP ReadLine 方法
ASP Skip 方法
ASP SkipLine 方法
ASP Write 方法
ASP WriteLine 方法
ASP WriteBlankLines 方法
ASP Drive 對(duì)象
ASP AvailableSpace 屬性
ASP DriveLetter 屬性
ASP DriveType 屬性
ASP FileSystem 屬性
ASP FreeSpace 屬性
ASP IsReady 屬性
ASP Path 屬性
ASP RootFolder 屬性
ASP SerialNumber 屬性
ASP ShareName 屬性
ASP TotalSize 屬性
ASP VolumeName 屬性
ASP File 對(duì)象
ASP Attributes 屬性
ASP DateCreated 屬性
ASP DateLastAccessed 屬性
ASP DateLastModified 屬性
ASP Drive 屬性
ASP Name 屬性
ASP ParentFolder 屬性
ASP Path 屬性
ASP ShortName 屬性
ASP ShortPath 屬性
ASP Size 屬性
ASP Type 屬性
ASP Copy 方法
ASP Delete 方法
ASP Move 方法
ASP OpenAsTextStream 方法
ASP Folder 對(duì)象
ASP Files 集合
ASP SubFolders 集合
ASP Attributes 屬性
ASP DateCreated 屬性
ASP DateLastAccessed 屬性
ASP DateLastModified 屬性
ASP Drive 屬性
ASP IsRootFolder 屬性
ASP Name 屬性
ASP ParentFolder 屬性
ASP Path 屬性
ASP ShortName 屬性
ASP ShortPath 屬性
ASP Size 屬性
ASP Type 屬性
ASP Copy 方法
ASP Delete 方法
ASP Move 方法
ASP CreateTextFile 方法
ASP Dictionary 對(duì)象
ASP CompareMode 屬性
ASP Count 屬性
ASP Item 屬性
ASP Key 屬性
ASP Add 方法
ASP Exists 方法
ASP Items 方法
ASP Keys 方法
ASP Remove 方法
ASP RemoveAll 方法
ASP ADO
ASP 組件
ASP AdRotator 組件
ASP Browser Capabilities 組件
ASP Content Linking 組件
ASP Content Rotator 組件 (ASP 3.0)
ASP 與 AJAX
AJAX 簡(jiǎn)介
ASP - AJAX 與 ASP
AJAX 數(shù)據(jù)庫(kù)實(shí)例
ASP 實(shí)例
ASP 實(shí)例
ASP 快速參考
?
本文檔使用 PHP中文網(wǎng)手冊(cè) 發(fā)布
文字
ASP 實(shí)例
基礎(chǔ)
用ASP寫(xiě)文本
<!DOCTYPE?html>
<html>
<body>
<%
response.write("Hello?World!")
%>
</body>
</html>
向文本添加HTML
<!DOCTYPE?html>
<html>
<body>
<%
response.write("<h2>You?can?use?HTML?tags?to?format?the?text!</h2>")
%>
<%
response.write("<p?style='color:#0000ff'>This?text?is?styled?with?the?style?attribute!</p>")
%>
</body>
</html>
變量
聲明變量
變量用于存儲(chǔ)信息。本例演示如何聲明變量，為變量賦值，并在程序中使用這個(gè)變量。
<!DOCTYPE?html>
<html>
<body>
<%
dim?name
name="Donald?Duck"
response.write("My?name?is:?"?&?name)
%>
</body>
</html>
My?name?is:?Donald?Duck
聲明數(shù)組
數(shù)組用于存儲(chǔ)一系列相關(guān)的數(shù)據(jù)項(xiàng)目。本例演示如何聲明一個(gè)存儲(chǔ)名字的數(shù)組。
<!DOCTYPE?html> <html> <body> <% Dim?famname(5),i famname(0)?=?"Jan?Egil" famname(1)?=?"Tove" famname(2)?=?"Hege" famname(3)?=?"Stale" famname(4)?=?"Kai?Jim" famname(5)?=?"Borge" For?i?=?0?to?5 ??????response.write(famname(i)?&?"<br>") Next %> </body> </html>
Jan?Egil Tove Hege Stale Kai?Jim Borge
循環(huán)生成 HTML 標(biāo)題
本例演示如何循環(huán)生成 6 個(gè)不同的 HTML 標(biāo)題。
<!DOCTYPE?html>
<html>
<body>
<%
dim?i?
for?i=1?to?6
???response.write("<h"?&?i?&?">Heading?"?&?i?&?"</h"?&?i?&?">")
next
%>
</body>
</html>
Heading 1
Heading 2
Heading 3
Heading 4
Heading 5
Heading 6
使用 Vbscript 制作基于時(shí)間的問(wèn)候語(yǔ)
本例演示如何根據(jù)服務(wù)器時(shí)間向用戶(hù)顯示不同的消息。
<!DOCTYPE?html>
<html>
<body>
<%
dim?h
h=hour(now())
response.write("<p>"?&?now())
response.write("</p>")
If?h<12?then
???response.write("Good?Morning!")
else
???response.write("Good?day!")
end?if
%>
</body>
</html>
9/20/2013?11:08:35?PM Good?day!
使用 JavaScript 制作基于時(shí)間的問(wèn)候語(yǔ)
本例同上，演示如何根據(jù)服務(wù)器時(shí)間向用戶(hù)顯示不同的消息，只是語(yǔ)法不同而已。
<%@?language="javascript"?%>
<!DOCTYPE?html>
<html>
<body>
<%
var?d=new?Date()
var?h=d.getHours()
Response.Write("<p>")
Response.Write(d)
Response.Write("</p>")
if?(h<12)
???{
???Response.Write("Good?Morning!")
???}
else
???{
???Response.Write("Good?day!")
???}
%>
</body>
</html>
Fri?Sep?20?23:08:38?EDT?2013 Good?day!
Date/Time 函數(shù)(VBScript)
日期和時(shí)間
<!DOCTYPE?html> <html> <body> Today's?date?is:?<%response.write(date())%>. <br> The?server's?local?time?is:?<%response.write(time())%>. </body> </html>
獲得天的名字
<!DOCTYPE?html>
<html>
<body>
<p>
VBScripts'?function?<b>WeekdayName</b>?is?used?to?get?a?weekday:
</p>
<%
response.Write(WeekDayName(1))
response.Write("<br>")
response.Write(WeekDayName(2))
%>
<p>Abbreviated?name?of?a?weekday:</p>
<%
response.Write(WeekDayName(1,true))
response.Write("<br>")
response.Write(WeekDayName(2,true))
%>
<p>Current?weekday:</p>
<%
response.Write(WeekdayName(weekday(date)))
response.Write("<br>")
response.Write(WeekdayName(weekday(date),?true))
%>
</body>
</html>
獲得月的名字
<!DOCTYPE?html>
<html>
<body>
<p>VBScripts'?function?<b>MonthName</b>?is?used?to?get?a?month:</p>
<%
response.Write(MonthName(1))
response.Write("<br>")
response.Write(MonthName(2))
%>
<p>Abbreviated?name?of?a?month:</p>
<%
response.Write(MonthName(1,true))
response.Write("<br>")
response.Write(MonthName(2,true))
%>
<p>Current?month:</p>
<%
response.Write(MonthName(month(date)))
response.Write("<br>")
response.Write(MonthName(month(date),?true))
%>
</body>
</html>
獲得今天的月和天
<!DOCTYPE?html> <html> <body> Today?it?is <%response.write(WeekdayName(weekday(date)))%>, <br> and?the?month?is <%response.write(MonthName(month(date)))%> </body> </html>
3000年倒計(jì)時(shí)
<!DOCTYPE?html>
<html>
<body>
<p>Countdown?to?year?3000:</p>
<p>
<%millennium=cdate("1/1/3000?00:00:00")%>
It?is
<%response.write(DateDiff("yyyy",?Now(),?millennium))%>
years?to?year?3000!
<br>
It?is
<%response.write(DateDiff("m",?Now(),?millennium))%>
months?to?year?3000!
<br>
It?is
<%response.write(DateDiff("ww",?Now(),?millennium))%>
weeks?to?year?3000!
<br>
It?is
<%response.write(DateDiff("d",?Now(),?millennium))%>
days?to?year?3000!
<br>
It?is
<%response.write(DateDiff("h",?Now(),?millennium))%>
hours?to?year?3000!
<br>
It?is
<%response.write(DateDiff("n",?Now(),?millennium))%>
minutes?to?year?3000!
<br>
It?is
<%response.write(DateDiff("s",?Now(),?millennium))%>
seconds?to?year?3000!
</p>
</body>
</html>
從今天起計(jì)算N天后
<!DOCTYPE?html>
<html>
<body>
<%
response.write(DateAdd("d",30,date()))
%>
<p>
Syntax?for?DateAdd:?DateAdd(interval,number,date).?You?can?use?<b>DateAdd</b>?to?for?example?calculate?a?date?30?days?from?today.
</p>
</body>
</html>
格式化日期和時(shí)間
<!DOCTYPE?html>
<html>
<body>
<%
response.write(FormatDateTime(date(),vbgeneraldate))
response.write("<br>")
response.write(FormatDateTime(date(),vblongdate))
response.write("<br>")
response.write(FormatDateTime(date(),vbshortdate))
response.write("<br>")
response.write(FormatDateTime(now(),vblongtime))
response.write("<br>")
response.write(FormatDateTime(now(),vbshorttime))
%>
<p>
Syntax?for?FormatDateTime:?FormatDateTime(date,namedformat).
</p>
</body>
</html>
這是一個(gè)日期嗎？
<!DOCTYPE?html> <html> <body> <% somedate="10/30/99" response.write(IsDate(somedate)) %> </body> </html>
其他函數(shù)(VBScript)
大寫(xiě)或小寫(xiě)的字符串
<!DOCTYPE?html>
<html>
<body>
<%
name?=?"Bill?Gates"
response.write(ucase(name))
response.write("<br>")
response.write(lcase(name))
%>
</body>
</html>
字符串去掉前后空格
<!DOCTYPE?html>
<html>
<body>
<%
name?=?"?jianzhan?"
response.write("visit"?&?name?&?"now<br>")
response.write("visit"?&?trim(name)?&?"now<br>")
response.write("visit"?&?ltrim(name)?&?"now<br>")
response.write("visit"?&?rtrim(name)?&?"now")
%>
</body>
</html>
如何轉(zhuǎn)化一個(gè)字符串？
<!DOCTYPE?html> <html> <body> <% sometext?=?"Hello?Everyone!" response.write(strReverse(sometext)) %> </body> </html>
四舍五入
<!DOCTYPE?html>
<html>
<body>
<%
i?=?48.66776677
j?=?48.3333333
response.write(Round(i))
response.write("<br>")
response.write(Round(j))
%>
</body>
</html>
一個(gè)隨機(jī)數(shù)
<!DOCTYPE?html> <html> <body> <% randomize() response.write(rnd()) %> </body> </html>
從一個(gè)字符串返回特定的字符
<!DOCTYPE?html>
<html>
<body>
<%
sometext="Welcome?to?this?Web"
response.write(Left(sometext,5))
response.write("<br>")
response.write(Right(sometext,5))
%>
</body>
</html>
替換字符串的特定字符
<!DOCTYPE?html> <html> <body> <% sometext="Welcome?to?this?Web!!" response.write(Replace(sometext,?"Web",?"Page")) %> </body> </html>
從字符串中返回指定數(shù)目的字符
<!DOCTYPE?html> <html> <body> <% sometext="Welcome?to?this?Web!!" response.write(Mid(sometext,?9,?2)) %> </body> </html>
程序
調(diào)用使用VBScript的子程序
<!DOCTYPE?html> <html> <head> <% sub?vbproc(num1,num2) response.write(num1*num2) end?sub %> </head> <body> <p>You?can?call?a?procedure?like?this:</p> <p>Result:?<%call?vbproc(3,4)%></p> <p>Or,?like?this:</p> <p>Result:?<%vbproc?3,4%></p> </body> </html>
調(diào)用使用JavaScript的子程序
<%@?language="javascript"?%>
<!DOCTYPE?html>
<html>
<head>
<%
function?jsproc(num1,num2)
{
Response.Write(num1*num2)
}
%>
</head>
<body>
<p>Result:?<%jsproc(3,4)%></p>
</body>
</html>
調(diào)用使用VBScript和JavaScript的子程序
<!DOCTYPE?html>
<html>
<head>
<%
sub?vbproc(num1,num2)
Response.Write(num1*num2)
end?sub
%>
<script??language="javascript"?runat="server">
function?jsproc(num1,num2)
{
Response.Write(num1*num2)
}
</script>
</head>
<body>
<p>Result:?<%call?vbproc(3,4)%></p>
<p>Result:?<%call?jsproc(3,4)%></p>
</body>
</html>
表單
使用method="get"的表單
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_reqquery.asp"?method="get">
Your?name:?<input?type="text"?name="fname"?size="20"?/>
<input?type="submit"?value="Submit"?/>
</form>
<%
dim?fname
fname=Request.QueryString("fname")
If?fname<>""?Then
??????Response.Write("Hello?"?&?fname?&?"!<br>")
??????Response.Write("How?are?you?today?")
End?If
%>
</body>
</html>
使用method="post"的表單
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_simpleform.asp"?method="post">
Your?name:?<input?type="text"?name="fname"?size="20"?/>
<input?type="submit"?value="Submit"?/>
</form>
<%
dim?fname
fname=Request.Form("fname")
If?fname<>""?Then
??????Response.Write("Hello?"?&?fname?&?"!<br>")
??????Response.Write("How?are?you?today?")
End?If
%>
</body>
</html>
使用單選按鈕的表單
<!DOCTYPE?html>
<html>
<%
dim?cars
cars=Request.Form("cars")
%>
<body>
<form?action="demo_radiob.asp?method="post">
<p>Please?select?your?favorite?car:</p>
<input?type="radio"?name="cars"
<%if?cars="Volvo"?then?Response.Write("checked")%>
value="Volvo">Volvo</input>
<br>
<input?type="radio"?name="cars"
<%if?cars="Saab"?then?Response.Write("checked")%>
value="Saab">Saab</input>
<br>
<input?type="radio"?name="cars"
<%if?cars="BMW"?then?Response.Write("checked")%>
value="BMW">BMW</input>
<br><br>
<input?type="submit"?value="Submit"?/>
</form>
<%
if?cars<>""?then
???Response.Write("<p>Your?favorite?car?is:?"?&?cars?&?"</p>")
end?if
%>
</body>
</html>
Cookie
Welcome cookie
<%
dim?numvisits
response.cookies("NumVisits").Expires=date+365?
numvisits=request.cookies("NumVisits")
if?numvisits=""?then
???response.cookies("NumVisits")=1
???response.write("Welcome!?This?is?the?first?time?you?are?visiting?this?Web?page.")
else
???response.cookies("NumVisits")=numvisits+1
???response.write("You?have?visited?this?")
???response.write("Web?page?"?&?numvisits)
???if?numvisits=1?then
?????response.write?"?time?before!"
???else
?????response.write?"?times?before!"
???end?if
end?if
%>
<!DOCTYPE?html>
<html>
<body>
</body>
</html>
Response 對(duì)象
使用 ASP 寫(xiě)文本
本例演示如何使用 ASP 來(lái)寫(xiě)文本。
<!DOCTYPE?html>
<html>
<body>
<%
response.write("Hello?World!")
%>
</body>
</html>
Hello?World!
在 ASP 中使用 HTML 標(biāo)簽格式化文本
本例演示如何使用 ASP 將文本和 HTML 標(biāo)簽結(jié)合起來(lái)。
<!DOCTYPE?html>
<html>
<body>
<%
response.write("<h2>You?can?use?HTML?tags?to?format?the?text!</h2>")
%>
<%
response.write("<p?style='color:#0000ff'>This?text?is?styled?with?the?style?attribute!</p>")
%>
</body>
</html>
You can use HTML tags to format the text!
This text is styled with the style attribute!
將用戶(hù)重定向至一個(gè)不同的 URL
本例演示如何將用戶(hù)重定向至一個(gè)不同的 URL。
<%
if?Request.Form("select")<>""?then
???????Response.Redirect(Request.Form("select"))
end?if
%>???
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_redirect.asp"?method="post">
<input?type="radio"?name="select"?
value="demo_server.asp">
Server?Example<br>
<input?type="radio"?name="select"?
value="demo_text.asp">
Text?Example<br><br>
<input?type="submit"?value="Go!">
</form>
</body>
</html>
顯示隨機(jī)的鏈接
本例演示如何創(chuàng)建一個(gè)隨機(jī)的鏈接。
<!DOCTYPE?html>
<html>
<body>
<%
randomize()
r=rnd()
if?r>0.5?then
??response.write("<a?)
else
??response.write("<a?)
end?if
%>
<p>
This?example?demonstrates?a?link,?each?time?you?load?the?page,?it?will?display?
one?of?two?links:?jianzhan.cc!?OR?Refsnesdata.no!?There?is?a?50%?chance?for?
each?of?them.
</p>
</body>
</html>
控制緩沖區(qū)
本例演示如何控制緩沖區(qū)。
<% Response.Buffer=true %> <!DOCTYPE?html> <html> <body> <p> This?text?will?be?sent?to?your?browser?when?my?response?buffer?is?flushed. </p> <% Response.Flush %> </body> </html>
清空緩沖區(qū)
本例演示如何清空緩沖區(qū)。
<% Response.Buffer=true %> <!DOCTYPE?html> <html> <body> <p>This?is?some?text?I?want?to?send?to?the?user.</p> <p>No,?I?changed?my?mind.?I?want?to?clear?the?text.</p> <% Response.Clear %> </body> </html>
在處理過(guò)程中終止腳本并返回結(jié)果
本例演示如何在處理過(guò)程中終止腳本。
<!DOCTYPE?html> <html> <body> <p>I?am?writing?some?text.?This?text?will?never?be<br> <% Response.End %> finished!?It's?too?late?to?write?more!</p> </body> </html>
設(shè)置頁(yè)面在失效前在瀏覽器中緩存時(shí)間
本例演示如何規(guī)定頁(yè)面在失效前在瀏覽器中的緩存時(shí)間。
<%Response.Expires=-1%> <!DOCTYPE?html> <html> <body> <p>This?page?will?be?refreshed?with?each?access!</p> </body> </html>
設(shè)置頁(yè)面緩存在瀏覽器中的失效日期或時(shí)間
本例演示如何規(guī)定頁(yè)面緩存在瀏覽器中的失效時(shí)間日期或時(shí)間。
<%Response.Expires=-1%> <!DOCTYPE?html> <html> <body> <p>This?page?will?be?refreshed?with?each?access!</p> </body> </html>
檢查用戶(hù)是否仍然與服務(wù)器連接
本例演示如何檢查用戶(hù)是否已與服務(wù)器斷開(kāi)。
<!DOCTYPE?html>
<html>
<body>
<%
If?Response.IsClientConnected=true?then
Response.Write("The?user?is?still?connected!")
else
Response.Write("The?user?is?not?connected!")
end?if
%>
</body>
</html>
設(shè)置內(nèi)容類(lèi)型
本例演示如何規(guī)定內(nèi)容的類(lèi)型。
<% Response.ContentType="text/html" %> <!DOCTYPE?html> <html> <body> <p>This?is?some?text</p> </body> </html>
設(shè)置字符集名稱(chēng)
本例演示如何規(guī)定字符集的名稱(chēng)。
<% Response.Charset="ISO8859-1" %> <!DOCTYPE?html> <html> <body> <p>This?is?some?text</p> </body> </html>
Request 對(duì)象
當(dāng)用戶(hù)點(diǎn)擊鏈接時(shí)發(fā)送查詢(xún)信息
本例演示如何在鏈接中向頁(yè)面發(fā)送查詢(xún)信息，并在目標(biāo)頁(yè)面中取回這些信息（在本例中是同一頁(yè)面）。
<!DOCTYPE?html> <html> <body> <a?href="demo_simplequerystring.asp?color=green">Example</a> <% Response.Write(Request.QueryString) %> </body> </html>
QueryString 集合的簡(jiǎn)單應(yīng)用
本例演示如何使用 QueryString 集合從表單取回值。（此表單使用 GET 方法，這意味著所發(fā)送的信息對(duì)用戶(hù)來(lái)說(shuō)是可見(jiàn)的。）
<!DOCTYPE?html> <html> <body> <form?action="demo_simplereqquery.asp"?method="get"> First?name:?<input?type="text"?name="fname"><br> Last?name:?<input?type="text"?name="lname"><br> <input?type="submit"?value="Submit"> </form> <% Response.Write(Request.QueryString) %> </body> </html>
如何使用來(lái)自表單的信息
本例演示如何使用從表單取回的值。此表單使用 GET 方法。
<!DOCTYPE?html> <html> <body> <form?action="demo_simplereqquery.asp"?method="get"> First?name:?<input?type="text"?name="fname"><br> Last?name:?<input?type="text"?name="lname"><br> <input?type="submit"?value="Submit"> </form> <% Response.Write(Request.QueryString) %> </body> </html>
來(lái)自表單的更多信息
本例演示如果輸入字段包含若干相同的名稱(chēng)，QueryString 集合會(huì)包含什么內(nèi)容。它將展示如何使用 Count 關(guān)鍵詞來(lái)對(duì) "name" 屬性進(jìn)行計(jì)數(shù)。此表單使用 GET 方法。
<!DOCTYPE?html>
<html>
<body>
<%
If?Request.QueryString<>""?Then
??????If?Request.QueryString("name")<>",?"?Then
???????????name1=Request.QueryString("name")(1)
???????????name2=Request.QueryString("name")(2)
??????end?if
end?if
%>
<form?action="demo_reqquery2.asp"?method="get">
First?name:
<input?type="text"?name="name"?value="<%=name1%>"?/>
<br>
Last?name:
<input?type="text"?name="name"?value="<%=name2%>"?/>
<br>
<input?type="submit"?value="Submit"?/>
</form>
<hr>
<%
If?Request.QueryString<>""?Then
??????Response.Write("<p>")
??????Response.Write("The?information?received?from?the?form?was:")
??????Response.Write("</p><p>")
??????Response.Write("name="?&?Request.QueryString("name"))
??????Response.Write("</p><p>")
??????Response.Write("The?name?property's?count?is:?")
??????Response.Write(Request.QueryString("name").Count)
??????Response.Write("</p><p>")
??????Response.Write("First?name="?&?name1)
??????Response.Write("</p><p>")
??????Response.Write("Last?name="?&?name2)
??????Response.Write("</p>")
end?if
%>
</body>
</html>
在線(xiàn)實(shí)例
Form 集合的簡(jiǎn)單應(yīng)用
本例演示如何使用 Form 集合從表單取回值。（此表單使用 POST 方法，這意味著所發(fā)送的信息對(duì)用戶(hù)來(lái)說(shuō)是不可見(jiàn)的。）
<!DOCTYPE?html> <html> <body> <form?action="demo_simpleform1.asp"?method="post"> First?name: <input?type="text"?name="fname"?value="Donald"?/> <br> Last?name: <input?type="text"?name="lname"?value="Duck"?/> <br> <input?type="submit"?value="Submit"?/> </form> <% Response.Write(Request.Form) %> </body> </html>
如何使用來(lái)自表單的信息
本例演示如何使用從表單取回的值。此表單使用了 POST 方法。
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_simpleform.asp"?method="post">
Your?name:?<input?type="text"?name="fname"?size="20"?/>
<input?type="submit"?value="Submit"?/>
</form>
<%
dim?fname
fname=Request.Form("fname")
If?fname<>""?Then
??????Response.Write("Hello?"?&?fname?&?"!<br>")
??????Response.Write("How?are?you?today?")
End?If
%>
</body>
</html>
來(lái)自表單的更多信息
本例演示如果輸入字段包含若干相同的名稱(chēng)，F(xiàn)orm 集合會(huì)包含什么內(nèi)容。它將展示如何使用 Count 關(guān)鍵詞來(lái)對(duì) "name" 屬性進(jìn)行計(jì)數(shù)。此表單使用了 POST 方法。
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_form2.asp"?method="post">
First?name:
<input?type="text"?name="name"?value="Donald"?/>
<br>
Last?name:
<input?type="text"?name="name"?value="Duck"?/>
<br>
<input?type="submit"?value="Submit"?/>
</form>
<hr>
<p>The?information?received?from?the?form?above?was:</p>
<%
If?Request.Form("name")<>""?Then
??????Response.Write("<p>")
??????Response.Write("name="?&?Request.Form("name"))
??????Response.Write("</p><p>")
??????Response.Write("The?name?property's?count?is:?")
??????Response.Write(Request.Form("name").Count)
??????Response.Write("</p><p>")
??????Response.Write("First?name="?&?Request.Form("name")(1))
??????Response.Write("</p><p>")?
??????Response.Write("Last?name="?&?Request.Form("name")(2))
??????Response.Write("</p>")?
End?if
%>
</body>
</html>
帶有單選按鈕的表單
本例演示如何使用 Form 集合通過(guò)單選按鈕與用戶(hù)進(jìn)行交互。此表單使用 POST 方法。
<!DOCTYPE?html>
<html>
<%
dim?cars
cars=Request.Form("cars")
%>
<body>
<form?action="demo_radiob.asp?method="post">
<p>Please?select?your?favorite?car:</p>
<input?type="radio"?name="cars"
<%if?cars="Volvo"?then?Response.Write("checked")%>
value="Volvo">Volvo</input>
<br>
<input?type="radio"?name="cars"
<%if?cars="Saab"?then?Response.Write("checked")%>
value="Saab">Saab</input>
<br>
<input?type="radio"?name="cars"
<%if?cars="BMW"?then?Response.Write("checked")%>
value="BMW">BMW</input>
<br><br>
<input?type="submit"?value="Submit"?/>
</form>
<%
if?cars<>""?then
???Response.Write("<p>Your?favorite?car?is:?"?&?cars?&?"</p>")
end?if
%>
</body>
</html>
帶有復(fù)選框的表單
本例演示如何使用 Form 集合通過(guò)復(fù)選框與用戶(hù)進(jìn)行交互。此表單使用 POST 方法。
<!DOCTYPE?html>
<html>
<body>
<%
fruits=Request.Form("fruits")
%>
<form?action="demo_checkboxes.asp"?method="post">
<p>Which?of?these?fruits?do?you?prefer:</p>
<input?type="checkbox"?name="fruits"?value="Apples"
<%if?instr(fruits,"Apple")?then?Response.Write("checked")%>>
Apple
<br>
<input?type="checkbox"?name="fruits"?value="Oranges"
<%if?instr(fruits,"Oranges")?then?Response.Write("checked")%>>
Orange
<br>
<input?type="checkbox"?name="fruits"?value="Bananas"
<%if?instr(fruits,"Banana")?then?Response.Write("checked")%>>
Banana
<br>
<input?type="submit"?value="Submit">
</form>
<%
if?fruits<>""?then%>
???<p>You?like:?<%Response.Write(fruits)%></p>
<%end?if
%>
</body>
</html>
在線(xiàn)實(shí)例
獲取服務(wù)器變量
本例演示如何取得訪(fǎng)客的瀏覽器類(lèi)型、IP 地址等信息。
<!DOCTYPE?html>
<html>
<body>
<p>
<b>You?are?browsing?this?site?with:</b>
<%Response.Write(Request.ServerVariables("http_user_agent"))%>
</p>
<p>
<b>Your?IP?address?is:</b>
<%Response.Write(Request.ServerVariables("remote_addr"))%>
</p>
<p>
<b>The?DNS?lookup?of?the?IP?address?is:</b>
<%Response.Write(Request.ServerVariables("remote_host"))%>
</p>
<p>
<b>The?method?used?to?call?the?page:</b>
<%Response.Write(Request.ServerVariables("request_method"))%>
</p>
<p>
<b>The?server's?domain?name:</b>
<%Response.Write(Request.ServerVariables("server_name"))%>
</p>
<p>
<b>The?server's?port:</b>
<%Response.Write(Request.ServerVariables("server_port"))%>
</p>
<p>
<b>The?server's?software:</b>
<%Response.Write(Request.ServerVariables("server_software"))%>
</p>
</body>
</html>
You?are?browsing?this?site?with: Your?IP?address?is:?42.120.45.233 The?DNS?lookup?of?the?IP?address?is:?42.120.45.233 The?method?used?to?call?the?page:?GET The?server's?domain?name:?shouce.ren The?server's?port:?80 The?server's?software:?Microsoft-IIS/7.5
創(chuàng)建 welcome cookie
本例演示如何創(chuàng)建一個(gè) Welcome Cookie。
<%
dim?numvisits
response.cookies("NumVisits").Expires=date+365?
numvisits=request.cookies("NumVisits")
if?numvisits=""?then
???response.cookies("NumVisits")=1
???response.write("Welcome!?This?is?the?first?time?you?are?visiting?this?Web?page.")
else
???response.cookies("NumVisits")=numvisits+1
???response.write("You?have?visited?this?")
???response.write("Web?page?"?&?numvisits)
???if?numvisits=1?then
?????response.write?"?time?before!"
???else
?????response.write?"?times?before!"
???end?if
end?if
%>
<!DOCTYPE?html>
<html>
<body>
</body>
</html>
探測(cè)用戶(hù)發(fā)送的字節(jié)總數(shù)
本例演示如何探測(cè)用戶(hù)在 Request 對(duì)象中發(fā)送的字節(jié)總數(shù)。
<!DOCTYPE?html>
<html>
<body>
<form?action="demo_totalbytes.asp"?method="post">
Please?type?something:
<input?type="text"?name="txt"><br><br>
<input?type="submit"?value="Submit">
</form>
<%
If?Request.Form("txt")<>""?Then
???Response.Write("You?submitted:?")
???Response.Write(Request.Form)
???Response.Write("<br><br>")
???Response.Write("Total?bytes:?")
???Response.Write(Request.Totalbytes)
End?If
%>
</body>
</html>
Session 對(duì)象
設(shè)置并返回 LCID
本例演示 "LCID" 屬性。該屬性設(shè)置并返回一個(gè)指示位置或者地區(qū)的整數(shù)。類(lèi)似于日期、時(shí)間和貨幣等內(nèi)容都要根據(jù)位置或者地區(qū)來(lái)顯示。
<!DOCTYPE?html>
<html>
<body>
<%??
response.write("<p>")
response.write("The?default?LCID?for?this?page?is:?"?&?Session.LCID?&?"<br>")
response.write("The?Date?format?for?the?above?LCID?is:?"?&?date()?&?"<br>")
response.write("The?Currency?format?for?the?above?LCID?is:?"?&?FormatCurrency(350))
response.write("</p>")
Session.LCID=1036
response.write("<p>")
response.write("The?LCID?is?now?changed?to:?"?&?Session.LCID?&?"<br>")
response.write("The?Date?format?for?the?above?LCID?is:?"?&?date()?&?"<br>")
response.write("The?Currency?format?for?the?above?LCID?is:?"?&?FormatCurrency(350))
response.write("</p>")
Session.LCID?=?3079
response.write("<p>")
response.write("The?LCID?is?now?changed?to:?"?&?Session.LCID?&?"<br>")
response.write("The?Date?format?for?the?above?LCID?is:?"?&?date()?&?"<br>")
response.write("The?Currency?format?for?the?above?LCID?is:?"?&?FormatCurrency(350))
response.write("</p>")
Session.LCID?=?2057
response.write("<p>")
response.write("The?LCID?is?now?changed?to:?"?&?Session.LCID?&?"<br>")
response.write("The?Date?format?for?the?above?LCID?is:?"?&?date()?&?"<br>")
response.write("The?Currency?format?for?the?above?LCID?is:?"?&?FormatCurrency(350))
response.write("</p>")
%>
</body>
</html>
The?default?LCID?for?this?page?is:?1033 The?Date?format?for?the?above?LCID?is:?9/20/2013 The?Currency?format?for?the?above?LCID?is:?$350.00 The?LCID?is?now?changed?to:?1036 The?Date?format?for?the?above?LCID?is:?20/09/2013 The?Currency?format?for?the?above?LCID?is:?350,00?? The?LCID?is?now?changed?to:?3079 The?Date?format?for?the?above?LCID?is:?20.09.2013 The?Currency?format?for?the?above?LCID?is:???350,00 The?LCID?is?now?changed?to:?2057 The?Date?format?for?the?above?LCID?is:?20/09/2013 The?Currency?format?for?the?above?LCID?is:?￡350.00
返回 SessionID
本例演示 "SessionID" 屬性。該屬性為每位用戶(hù)返回一個(gè)唯一的 id。這個(gè) id 由服務(wù)器生成。
<!DOCTYPE?html> <html> <body> <% Response.Write(Session.SessionID) %> </body> </html>
619100248
session 的超時(shí)
本例演示 "Timeout" 屬性。該屬性設(shè)置并返回 session 的超時(shí)時(shí)間（分鐘）。
<!DOCTYPE?html>
<html>
<body>
<%??
response.write("<p>")
response.write("Default?Timeout?is:?"?&?Session.Timeout?&?"?minutes.")
response.write("</p>")
Session.Timeout=30
response.write("<p>")
response.write("Timeout?is?now:?"?&?Session.Timeout?&?"?minutes.")
response.write("</p>")
%>
</body>
</html>
Default?Timeout?is:?20?minutes. Timeout?is?now:?30?minutes.
Server 對(duì)象
此文件最后被修改的時(shí)間是？
探測(cè)文件的最后修改時(shí)間。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs?=?Server.CreateObject("Scripting.FileSystemObject")
Set?rs?=?fs.GetFile(Server.MapPath("demo_lastmodified.asp"))
modified?=?rs.DateLastModified
%>
This?file?was?last?modified?on:?<%response.write(modified)
Set?rs?=?Nothing
Set?fs?=?Nothing
%>
</body>
</html>
打開(kāi)并讀取某個(gè)文本文件
打開(kāi)文件 "Textfile.txt" 以供讀取。
<!DOCTYPE?html>
<html>
<body>
<%
Set?FS?=?Server.CreateObject("Scripting.FileSystemObject")
Set?RS?=?FS.OpenTextFile(Server.MapPath("text")?&?"\TextFile.txt",1)
While?not?rs.AtEndOfStream
??????Response.Write?RS.ReadLine
??????Response.Write("<br>")
Wend?
%>
<p>
<a?href="text/textfile.txt"><img?src="/images/btn_view_text.gif"></a>
</p>
</body>
</html>
自制的點(diǎn)擊計(jì)數(shù)器
<%
Set?FS=Server.CreateObject("Scripting.FileSystemObject")
Set?RS=FS.OpenTextFile(Server.MapPath("counter.txt"),?1,?False)
fcount=RS.ReadLine
RS.Close
fcount=fcount+1
'This?code?is?disabled?due?to?the?write?access?security?on?our?server:
'Set?RS=FS.OpenTextFile(Server.MapPath("counter.txt"),?2,?False)
'RS.Write?fcount
'RS.Close
Set?RS=Nothing
Set?FS=Nothing
%>
<!DOCTYPE?html>
<html>
<body>
<p>
This?page?has?been?visited?<%=fcount%>??times.
</p>
</body>
</html>
FileSystem 對(duì)象
指定的文件存在嗎？
本例演示如何檢查某個(gè)文件是否存在。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
If?(fs.FileExists("c:\winnt\cursors\3dgarro.cur"))=true?Then
??????Response.Write("File?c:\winnt\cursors\3dgarro.cur?exists.")
Else
??????Response.Write("File?c:\winnt\cursors\3dgarro.cur?does?not?exist.")
End?If
set?fs=nothing
%>
</body>
</html>
指定的文件夾存在嗎？
本例演示如何檢查某個(gè)文件夾是否存在。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
If?fs.FolderExists("c:\temp")?=?true?Then
??????Response.Write("Folder?c:\temp?exists.")
Else
??????Response.Write("Folder?c:\temp?does?not?exist.")
End?If
set?fs=nothing
%>
</body>
</html>
指定的驅(qū)動(dòng)器存在嗎？
本例演示如何檢查某個(gè)驅(qū)動(dòng)器是否存在。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
if?fs.driveexists("c:")?=?true?then
??????Response.Write("Drive?c:?exists.")
Else
??????Response.Write("Drive?c:?does?not?exist.")
End?If
Response.write("<br>")
if?fs.driveexists("g:")?=?true?then
??????Response.Write("Drive?g:?exists.")
Else
??????Response.Write("Drive?g:?does?not?exist.")
End?If
set?fs=nothing
%>
</body>
</html>
取得某個(gè)指定驅(qū)動(dòng)器的名稱(chēng)
本例演示如何獲取某個(gè)指定的驅(qū)動(dòng)器的名稱(chēng)。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetDriveName("c:\winnt\cursors\3dgarro.cur")
Response.Write("The?drive?name?is:?"?&?p)
set?fs=nothing
%>
</body>
</html>
取得某個(gè)指定路徑的父文件夾的名稱(chēng)
本例演示如何獲取某個(gè)指定的路徑的父文件夾的名稱(chēng)。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetParentFolderName("c:\winnt\cursors\3dgarro.cur")
Response.Write("The?parent?folder?name?of?c:\winnt\cursors\3dgarro.cur?is:?"?&?p)
set?fs=nothing
%>
</body>
</html>
取得文件名
本例演示如何獲取指定的路徑中的最后一個(gè)成分的文件名。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("The?file?name?of?the?last?component?is:?")
Response.Write(fs.GetFileName("c:\winnt\cursors\3dgarro.cur"))
set?fs=nothing
%>
</body>
</html>
取得文件擴(kuò)展名
本例演示如何獲取指定的路徑中的最后一個(gè)成分的文件擴(kuò)展名。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write("The?file?extension?of?the?file?3dgarro?is:?")
Response.Write(fs.GetExtensionName("c:\winnt\cursors\3dgarro.cur"))
set?fs=nothing
%>
</body>
</html>
取得文件或文件夾的基名稱(chēng)
本例演示如何獲取指定的路徑中文件或者文件夾的基名稱(chēng)。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetBaseName("c:\winnt\cursors\3dgarro.cur"))
Response.Write("<br>")
Response.Write(fs.GetBaseName("c:\winnt\cursors\"))
Response.Write("<br>")
Response.Write(fs.GetBaseName("c:\winnt\"))
set?fs=nothing
%>
</body>
</html>
TextStream 對(duì)象
讀取文本文件
本例演示如何從文本文件中讀取內(nèi)容。
<!DOCTYPE?html>
<html>
<body>
<p>This?is?the?text?in?the?text?file:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
Response.Write(f.ReadAll)
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
讀取文本文件中的一個(gè)部分
本例演示如何僅僅讀取一個(gè)文本流文件的部分內(nèi)容。
<!DOCTYPE?html>
<html>
<body>
<p>This?is?the?first?five?characters?from?the?text?file:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
Response.Write(f.Read(5))
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
讀取文本文件中的一行
本例演示如何從一個(gè)文本流文件中讀取一行內(nèi)容。
<!DOCTYPE?html>
<html>
<body>
<p>This?is?the?first?line?of?the?text?file:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
Response.Write(f.ReadLine)
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
讀取文本文件的所有行
本例演示如何從文本流文件中讀取所有的行。
<!DOCTYPE?html>
<html>
<body>
<p>This?is?all?the?lines?in?the?text?file:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
do?while?f.AtEndOfStream?=?false
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
略過(guò)文本文件中的一部分
本例演示如何在讀取文本流文件時(shí)跳過(guò)指定的字符數(shù)。
<!DOCTYPE?html>
<html>
<body>
<p>The?first?four?characters?in?the?text?file?are?skipped:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
f.Skip(4)
Response.Write(f.ReadAll)
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
略過(guò)文本文件中的一行
本例演示如何在讀取文本流文件時(shí)跳過(guò)一行。
<!DOCTYPE?html>
<html>
<body>
<p>The?first?line?in?the?text?file?is?skipped:</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
f.SkipLine
Response.Write(f.ReadAll)
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
返回行數(shù)
本例演示如何返回在文本流文件中的當(dāng)前行號(hào)。
<!DOCTYPE?html>
<html>
<body>
<p>This?is?all?the?lines?in?the?text?file?(with?line?numbers):</p>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
do?while?f.AtEndOfStream?=?false
Response.Write("Line:"?&?f.Line?&?"?")
Response.Write(f.ReadLine)
Response.Write("<br>")
loop
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
取得列數(shù)
本例演示如何取得在文件中當(dāng)前字符的列號(hào)。
<!DOCTYPE?html>
<html>
<body>
<%
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?f=fs.OpenTextFile(Server.MapPath("testread.txt"),?1)
Response.Write(f.Read(2))
Response.Write("<p>The?cursor?is?now?standing?in?position?"?&?f.Column?&?"?in?the?text?file.</p>")
f.Close
Set?f=Nothing
Set?fs=Nothing
%>
</body>
</html>
Drive 對(duì)象
取得指定驅(qū)動(dòng)器的總?cè)萘?br>本例演示如何使用 TotalSize 屬性來(lái)獲得指定驅(qū)動(dòng)器的總?cè)萘俊?/p>
<!DOCTYPE?html>
<html>
<body>
<%
Dim?fs,d,n
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?d=fs.GetDrive("c:")
n?=?"Drive:?"?&?d
n?=?n?&?"<br>Total?size?in?bytes:?"?&?d.TotalSize
Response.Write(n)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的可用空間數(shù)
本例演示如何首先創(chuàng)建一個(gè) FileSystemObject 對(duì)象，然后使用 AvailableSpace 屬性來(lái)獲得指定驅(qū)動(dòng)器的可用空間。
<!DOCTYPE?html>
<html>
<body>
<%
Dim?fs,?d,?n
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?d=fs.GetDrive("c:")
n?=?"Drive:?"?&?d
n?=?n?&?"<br>Available?Space?in?bytes:?"?&?d.AvailableSpace
Response.Write(n)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的剩余空間容量
本例演示如何使用 FreeSpace 空間屬性來(lái)取得指定驅(qū)動(dòng)器的剩余空間。
<!DOCTYPE?html>
<html>
<body>
<%
Dim?fs,?d,?n
Set?fs=Server.CreateObject("Scripting.FileSystemObject")
Set?d=fs.GetDrive("c:")
n?=?"Drive:?"?&?d
n?=?n?&?"<br>Free?Space?in?bytes:?"?&?d.FreeSpace
Response.Write(n)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的驅(qū)動(dòng)器字母
本例演示如何使用 DriveLetter 屬性來(lái)獲得指定驅(qū)動(dòng)器的驅(qū)動(dòng)器字母。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,?d,?n
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?drive?letter?is:?"?&?d.driveletter)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的驅(qū)動(dòng)器類(lèi)型
本例演示如何使用 DriveType 屬性來(lái)獲得指定驅(qū)動(dòng)器的驅(qū)動(dòng)器類(lèi)型。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,?d,?n
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?drive?type?is:?"?&?d.DriveType)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的文件系統(tǒng)信息
本例演示如何使用 FileSystem 來(lái)取得指定驅(qū)動(dòng)器的文件系統(tǒng)信息。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,?d,?n
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?file?system?is:?"?&?d.FileSystem)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
驅(qū)動(dòng)器是否已就緒？
本例演示如何使用 IsReady 屬性來(lái)檢查指定的驅(qū)動(dòng)器是否已就緒。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,d,n
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
n?=?"The?"?&?d.DriveLetter
if?d.IsReady=true?then?
????n?=?n?&?"?drive?is?ready."
else
????n?=?n?&?"?drive?is?not?ready."
end?if?
Response.Write(n)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的路徑
本例演示如何使用 Path 屬性來(lái)取得指定驅(qū)動(dòng)器的路徑。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,d
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?path?is?"?&?d.Path)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的根文件夾
本例演示如何使用 RootFolder 屬性來(lái)取得指定驅(qū)動(dòng)器的根文件夾。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,d
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?rootfolder?is?"?&?d.RootFolder)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
取得指定驅(qū)動(dòng)器的序列號(hào)
本例演示如何使用 Serialnumber 屬性來(lái)取得指定驅(qū)動(dòng)器的序列號(hào)。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,d
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?d=fs.GetDrive("c:")
Response.Write("The?serialnumber?is?"?&?d.SerialNumber)
set?d=nothing
set?fs=nothing
%>
</body>
</html>
File 對(duì)象
文件最后被修改的時(shí)間？
本例演示如何使用 DateLastModified 屬性來(lái)取得指定文件最后被修改的日期和時(shí)間。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,?f
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?f=fs.GetFile(Server.MapPath("testread.txt"))
Response.Write("The?file?testread.txt?was?last?modified?on:?"?&?f.DateLastModified)
set?f=nothing
set?fs=nothing
%>
</body>
</html>
文件最后被訪(fǎng)問(wèn)的時(shí)間？
此例演示如何使用 DateLastAccessed 屬性來(lái)取得指定文件最后被訪(fǎng)問(wèn)的日期和時(shí)間。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,?f
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?f=fs.GetFile(Server.MapPath("testread.txt"))
Response.Write("The?file?testread.txt?was?last?accessed?on:?"?&?f.DateLastAccessed)
set?f=nothing
set?fs=nothing
%>
</body>
</html>
返回指定文件的屬性
本例演示如何使用 Attributes 來(lái)返回指定文件的屬性。
<!DOCTYPE?html>
<html>
<body>
<%
dim?fs,f
set?fs=Server.CreateObject("Scripting.FileSystemObject")
set?f=fs.GetFile(Server.MapPath("testread.txt"))
Response.Write("The?attributes?of?the?file?testread.txt?are:?"?&?f.Attributes)
set?f=nothing
set?fs=nothing
%>
</body>
</html>
Dictionary 對(duì)象
指定的鍵存在嗎？
本例演示如何創(chuàng)建一個(gè) Dictionary 對(duì)象，然后使用 Exists 方法來(lái)檢查指定的鍵是否存在。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
if?d.Exists("n")=?true?then
????Response.Write("Key?exists.")
else
????Response.Write("Key?does?not?exist.")
end?if
set?d=nothing
%>
</body>
</html>
返回一個(gè)所有項(xiàng)目的數(shù)組
本例演示如何使用 Items 方法來(lái)返回一個(gè)所有項(xiàng)目的數(shù)組。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d,a,i,s
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
Response.Write("<p>The?values?of?the?items?are:</p>")
a=d.Items
for?i?=?0?To?d.Count?-1
????s?=?s?&?a(i)?&?"<br>"
next
Response.Write(s)
set?d=nothing
%>
</body>
</html>
返回一個(gè)所有鍵的數(shù)組
本例演示如何使用 Keys 方法來(lái)返回一個(gè)所有鍵的數(shù)組。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d,a,i,s
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
Response.Write("<p>The?value?of?the?keys?are:</p>")
a=d.Keys
for?i?=?0?To?d.Count?-1
????s?=?s?&?a(i)?&?"<br>"
next
Response.Write(s)
set?d=nothing
%>
</body>
</html>
返回一個(gè)項(xiàng)目的值
本例演示如何使用 Item 屬性來(lái)返回一個(gè)項(xiàng)目的值。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
Response.Write("The?value?of?the?item?n?is:?"?&?d.item("n"))
set?d=nothing
%>
</body>
</html>
設(shè)置一個(gè)鍵
本例演示如何使用 Key 屬性來(lái)在 Dictionary 對(duì)象中設(shè)置一個(gè)鍵。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
d.Key("i")?=?"it"
Response.Write("The?key?i?has?been?set?to?it,?and?the?value?is:?"?&?d.Item("it"))
set?d=nothing
%>
</body>
</html>
返回鍵/項(xiàng)目對(duì)的數(shù)量
本例演示如何使用 Count 屬性來(lái)返回鍵/項(xiàng)目對(duì)的數(shù)量。
<!DOCTYPE?html>
<html>
<body>
<%
dim?d,?a,?s,?i
set?d=Server.CreateObject("Scripting.Dictionary")
d.Add?"n",?"Norway"
d.Add?"i",?"Italy"
Response.Write("The?number?of?key/item?pairs?is:?"?&?d.Count)
set?d=nothing
%>
</body>
</html>