PerlScript编写ASP(转载)(3)

$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(); 
%> 

在PerlScript中sub、if、else、else if、for each、while、声明变量、打开文件、字符处理都、调用模块文件都是按照以前的样子。只是在对于Web服务器间的特殊处理，需要使用特殊方法。 

另外#在脚本编写的时候仍然是作为注解符号，而且一定要记得每个脚本命令结束后必须要填写";"结束符号。 

通过本文您已经掌握了如何用Perl的Perl脚本(PerlScript)编写ASP了。Perl的强大功用和广泛的兼容性，是没有任何一个技术可比的。目前Perl可嵌入技术包含：C嵌入Perl、Java 嵌入Perl、ASP嵌入Perl、Apache嵌入 Perl、WSH嵌入Perl、WSC 嵌入Perl…… 

Perl其实是一个简单易学的通用信息技术语言，我觉得现在普及计算机，首先应该普及的就是Perl语言了，PERL比BASIC自然得多。好像人们在说话，它的编写方式就好像我们处理事务一样。学会了Perl，不但对你学习其它语言（诸如：C/C++、JAVA）有很大的促进、帮助并加快学习进度，Perl的强大发展趋势，可以让您"投机取巧"，在其它流行的编程技术中嵌入，这样在您不懂得或是觉得一种算法很麻烦的时候，用Perl来帮助你快捷的完成。让您在其它语言中从Perl慢慢进化成该种语言，是相当顺利的平稳过渡。我发现在学习Perl以后，学习其它语言速度有很大的加快。