PerlScript編寫ASP

2019-11-18 20:45:07

字體：大中小

供稿：網(wǎng)友

現(xiàn)在我們建立第一個(gè)asp頁(yè)
<%@Language=PerlScript%>
<HTML>
<TITLE> PerlScript Test </TITLE>
<%
for($i=0; $i<=10; $i+=2) {
$Response->Write("");
$Response->Write("Hello World!
");
}
%>
</HTML>
在這里大家一定要注意
"$Response->Write("");"為什么不用PRint呢？因?yàn)閜rint 是對(duì)程序而言，是直接的，而ASP是間接的輸出。在ASP里面使用PerlScript是自動(dòng)應(yīng)用了ASP相關(guān)模塊（use ASP;）。這個(gè)頁(yè)內(nèi)容是進(jìn)行循環(huán)依次輸出字的大小。

訪問(wèn)得到服務(wù)器的變量，也不是以前那么樣子了，命令是
"<%= $Request->ServerVariables('SERVER_SOFTWARE')->Item() %> "

我們一般在Perl里面則是
"$ENV{'SERVER_SOFTWARE'};"
得到POST或者GET數(shù)據(jù)，比以往在Perl程序中容易很多。
POST："$Request->Form('name')->Item()"
而GET: "Request->QueryString('name')->Item()"

在輸出非"text/html"類型數(shù)據(jù)的時(shí)候，首先要使用模塊："Win32::OLE::Variant;"，比如輸出"image/GIF"Perl程序方法是：
print "Content-type:image/GIF/n/n";
而在PerlScript中用：
$Response->{ContentType} = "image/GIF";

輸出數(shù)據(jù)方法則是：
$Response->BinaryWrite(Win32::OLE->Variant(VT_UI1, $image));
取得ASP的錯(cuò)誤信息：
"$ASPError = $Server->GetLastError();"
設(shè)置瀏覽器Cookies："
$Response->Cookies->SetProperty(
'類別',
'Cookies',
'這是一個(gè)Cookies'
);
"
設(shè)置允許URL："
$Response->Cookies('Cookie')->{Domain} = 'tanshuai.net';
"
設(shè)置過(guò)期時(shí)間："
$Response->Cookies('someCookie')->{Expires} = 'January 1, 2001';
"
數(shù)據(jù)庫(kù)連接："
<%
#建立連接ADOBD的對(duì)象
#
$Conn = $Server->CreateObject("ADODB.Connection");
#打開系統(tǒng) DSN
#
$Conn->Open( "Tanshuai" );

# 執(zhí)行 SQL 查詢
#
$RS = $Conn->Execute( "SELECT * FROM Orders" );

#取得目標(biāo)查詢隊(duì)列數(shù)
$count = $RS->Fields->{Count};

# 輸出顯示每個(gè)隊(duì)列名
#
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write( $RS->Fields($i)->Name );
$Response->Write("
");
};

# 輸出所有隊(duì)列值
#
while ( ! $RS->{EOF} ) {
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("
");
};

#移動(dòng)到下一個(gè)紀(jì)錄
#
$RS->MoveNext();
};

# 關(guān)閉所有對(duì)象
#
$RS->Close();
$Conn->Close();
%>

在PerlScript中sub、if、else、else if、for each、while、聲明變量、打開文件、字符處理都、調(diào)用模塊文件都是按照以前的樣子。只是在對(duì)于Web服務(wù)器間的特殊處理，需要使用特殊方法。

另外#在腳本編寫的時(shí)候仍然是作為注解符號(hào)，而且一定要記得每個(gè)腳本命令結(jié)束后必須要填寫";"結(jié)束符號(hào)。

通過(guò)本文您已經(jīng)掌握了如何用Perl的Perl腳本(PerlScript)編寫ASP了。Perl的強(qiáng)大功用和廣泛的兼容性，是沒(méi)有任何一個(gè)技術(shù)可比的。目前Perl可嵌入技術(shù)包含：C嵌入Perl、java 嵌入Perl、ASP嵌入Perl、Apache嵌入 Perl、WSH嵌入Perl、WSC 嵌入Perl……

Perl其實(shí)是一個(gè)簡(jiǎn)單易學(xué)的通用信息技術(shù)語(yǔ)言，我覺(jué)得現(xiàn)在普及計(jì)算機(jī)，首先應(yīng)該普及的就是Perl語(yǔ)言了，PERL比BASIC自然得多。好像人們?cè)谡f(shuō)話，它的編寫方式就好像我們處理事務(wù)一樣。學(xué)會(huì)了Perl，不但對(duì)你學(xué)習(xí)其它語(yǔ)言（諸如：C/C++、JAVA）有很大的促進(jìn)、幫助并加快學(xué)習(xí)進(jìn)度，Perl的強(qiáng)大發(fā)展趨勢(shì)，可以讓您"投機(jī)取巧"，在其它流行的編程技術(shù)中嵌入，這樣在您不懂得或是覺(jué)得一種算法很麻煩的時(shí)候，用Perl來(lái)幫助你快捷的完成。讓您在其它語(yǔ)言中從Perl慢慢進(jìn)化成該種語(yǔ)言，是相當(dāng)順利的平穩(wěn)過(guò)渡。我發(fā)現(xiàn)在學(xué)習(xí)Perl以后，學(xué)習(xí)其它語(yǔ)言速度有很大的加快。

上一篇：Win2000+Apache+MySql+PHP4+PERL安裝使用小結(jié)

下一篇：返回列表