PerlScript编写ASP -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → PerlScript编写ASP

PerlScript编写ASP 时间：2004/11/7 4:11:00来源：本站整理作者：蓝点我要评论(0): 现在我们建立第一个ASP页

<%@Language=PerlScript%>

PerlScript Test

<%

for($i=0; $i<=10; $i+=2) {

$Response->Write("");

$Response->Write("Hello World!

");

}

%>

在这里大家一定要注意

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

访问得到服务器的变量，也不是以前那么样子了，命令是

"<%= $Request->ServerVariables('SERVER_SOFTWARE')->Item() %> "

我们一般在Perl里面则是

"$ENV{'SERVER_SOFTWARE'};"

得到POST或者GET数据，比以往在Perl程序中容易很多。

POST："$Request->Form('name')->Item()"

而GET: "Request->QueryString('name')->Item()"

在输出非"text/html"类型数据的时候，首先要使用模块："Win32::OLE::Variant;"，比如输出"image/GIF"Perl程序方法是：

print "Content-type:image/GIF\n\n";

而在PerlScript中用：

$Response->{ContentType} = "image/GIF";

输出数据方法则是：

$Response->BinaryWrite(Win32::OLE->Variant(VT_UI1, $image));

取得ASP的错误信息：

"$ASPError = $Server->GetLastError();"

设置浏览器Cookies："

$Response->Cookies->SetProperty(

'类别',

'Cookies',

'这是一个Cookies'

);

"

设置允许URL："

$Response->Cookies('Cookie')->{Domain} = 'tanshuai.net';

"

设置过期时间："

$Response->Cookies('someCookie')->{Expires} = 'January 1, 2001';

"

数据库连接："

<%

#建立连接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();

%>

在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以后，学习其它语言速度有很大的加快。

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。