PerlScript编写ASP

k9go7e4biq9udk

k9go7e4biq9udk

2016-01-29 18:27

PerlScript编写ASP,PerlScript编写ASP
  现在我们建立第一个ASP页
<%@Language=PerlScript%
<HTML
<TITLE PerlScript Test </TITLE
<%
for($i=0; $i<=10; $i+=2) {
$Response-Write("");
$Response-Write("Hello World!
");
}
%
</HTML
在这里大家一定要注意
"$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/GIFnn";
而在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以后,学习其它语言速度有很大的加快。
 
展开更多 50%)
分享

猜你喜欢

PerlScript编写ASP

ASP
PerlScript编写ASP

编写安全的ASP代码

ASP
编写安全的ASP代码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

ASP类编写详细说明

Web开发
ASP类编写详细说明

使用VB编写纯ASP程序

ASP
使用VB编写纯ASP程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

asp组件编写准备工作

ASP
asp组件编写准备工作

用ASP编写计数器

ASP
用ASP编写计数器

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《巫师3 狂猎》1.08符文石拆除复制刷钱方法攻略

《巫师3 狂猎》1.08符文石拆除复制刷钱方法攻略

String添加trim,ltrim,rtrim

String添加trim,ltrim,rtrim
下拉加载更多内容 ↓