PerlScript编写ASP

现在我们建立第一个ASP页

1@Language=PerlScript
1<html>
2<title> PerlScript Test </title>   

for($i=0; $i&lt;=10; $i+=2) {
$Response-&gt;Write("");
$Response-&gt;Write("Hello World!
");
}

1</html>

在这里大家一定要注意
"$Response->Write("");"为什么不用print呢?因为print 是对程序而言,是直接的,而ASP是间接的输出。在ASP里面使用PerlScript是自动应用了ASP相关模块(use ASP;)。这个页内容是进行循环依次输出字的大小。

访问得到服务器的变量,也不是以前那么样子了,命令是
"``` = $Request->ServerVariables('SERVER_SOFTWARE')->Item()

 1  
 2我们一般在Perl里面则是   
 3"$ENV{'SERVER_SOFTWARE'};"   
 4得到POST或者GET数据,比以往在Perl程序中容易很多。   
 5POST:"$Request-&gt;Form('name')-&gt;Item()"   
 6而GET: "Request-&gt;QueryString('name')-&gt;Item()"   
 7  
 8在输出非"text/html"类型数据的时候,首先要使用模块:"Win32::OLE::Variant;",比如输出"image/GIF"Perl程序方法是:   
 9print "Content-type:image/GIF\n\n";   
10而在PerlScript中用:   
11$Response-&gt;{ContentType} = "image/GIF";   
12  
13输出数据方法则是:   
14$Response-&gt;BinaryWrite(Win32::OLE-&gt;Variant(VT_UI1, $image));   
15取得ASP的错误信息:   
16"$ASPError = $Server-&gt;GetLastError();"   
17设置浏览器Cookies:"   
18$Response-&gt;Cookies-&gt;SetProperty(   
19'类别',   
20'Cookies',   
21'这是一个Cookies'   
22);   
23"   
24设置允许URL:"   
25$Response-&gt;Cookies('Cookie')-&gt;{Domain} = 'tanshuai.net';   
26"   
27设置过期时间:"   
28$Response-&gt;Cookies('someCookie')-&gt;{Expires} = 'January 1, 2001';   
29"   
30数据库连接:"   

#建立连接ADOBD的对象

$Conn = $Server->CreateObject("ADODB.Connection");
#打开系统 DSN

$Conn->Open( "Tanshuai" );

执行 SQL 查询

$RS = $Conn->Execute( "SELECT * FROM Orders" );

#取得目标查询队列数
$count = $RS->Fields->{Count};

输出显示每个队列名

for ( $i = 0; $i < $count; $i++ ) {
$Response->Write( $RS->Fields($i)->Name );
$Response->Write("
");
};

输出所有队列值

while ( ! $RS->{EOF} ) {
for ( $i = 0; $i < $count; $i++ ) {
$Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("
");
};

#移动到下一个纪录

$RS->MoveNext();
};

关闭所有对象

$RS->Close();
$Conn->Close();

1  
2在PerlScript中sub、if、else、else if、for each、while、声明变量、打开文件、字符处理都、调用模块文件都是按照以前的样子。只是在对于Web服务器间的特殊处理,需要使用特殊方法。   
3  
4另外#在脚本编写的时候仍然是作为注解符号,而且一定要记得每个脚本命令结束后必须要填写";"结束符号。   
5  
6通过本文您已经掌握了如何用Perl的Perl脚本(PerlScript)编写ASP了。Perl的强大功用和广泛的兼容性,是没有任何一个技术可比的。目前Perl可嵌入技术包含:C嵌入Perl、Java 嵌入Perl、ASP嵌入Perl、Apache嵌入 Perl、WSH嵌入Perl、WSC 嵌入Perl……   
7  
8Perl其实是一个简单易学的通用信息技术语言,我觉得现在普及计算机,首先应该普及的就是Perl语言了,PERL比BASIC自然得多。好像人们在说话,它的编写方式就好像我们处理事务一样。学会了Perl,不但对你学习其它语言(诸如:C/C++、JAVA)有很大的促进、帮助并加快学习进度,Perl的强大发展趋势,可以让您"投机取巧",在其它流行的编程技术中嵌入,这样在您不懂得或是觉得一种算法很麻烦的时候,用Perl来帮助你快捷的完成。让您在其它语言中从Perl慢慢进化成该种语言,是相当顺利的平稳过渡。我发现在学习Perl以后,学习其它语言速度有很大的加快。
Published At
Categories with Web编程
Tagged with
comments powered by Disqus