PerlScript编写ASP

2016-01-29 18:27 5 1 收藏

PerlScript编写ASP,PerlScript编写ASP

【 tulaoshi.com - 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以后,学习其它语言速度有很大的加快。
 

来源:http://www.tulaoshi.com/n/20160129/1505885.html

延伸阅读
标签: ASP
在Internet上,用ASP编写的计数器到处都是,本人觉得再在这里谈ASP编写计数器已没有多大意义。后来想想还是有必要谈一下,因为这不仅仅只是在谈计数器的编写,而是在向大家介绍ASP的知识与应用技巧。 程序原代码如下: $#@60;%countlong=8 ′countlong定义计数器显示位数 On Error Resume Next ′ 忽略所有的错误 count...
标签: ASP
 服务器端组件 首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都能享用,它依靠的是服务器而不是浏览器. 当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到 <% %标签之间的代码,并且...
标签: ASP
现在,无论什么时候用户访问一个带有本组件的ASP文件,IIS就会把ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象.看下面的代码: Public Sub OnStartPage(PassedScriptingContext As ScriptingContext) Set MyScriptingContext = PassedScriptingContext Se...
标签: ASP
    本文只做方法探讨。 ----------------- 能采集数据我们都能采到了,那么我们就开始编制ASP的统计页面。 这一页我们叫计数页,counter.asp   这段asp代码我们需要让它按如下的流程进行采集数据并保存数据和更新数据:   采集用户名,判断用户名是否合法,采集访问者...
标签: ASP
  本文只做方法探讨。 能采集数据我们都能采到了,那么我们就开始编制ASP的统计页面。 这一页我们叫计数页,counter.asp 这段asp代码我们需要让它按如下的流程进行采集数据并保存数据和更新数据: 采集用户名,判断用户名是否合法,采集访问者的信息,对信息进行加工,进行保存和更新数据库,返回logo图标。 ...

经验教程

353

收藏

15

精华推荐

热门标签

ASP
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部