繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > PerlScript编写ASP
- ASP
- 简单ASP论坛DIY
- 如何防止页面中的敏感信息被提取
- asp创建对象及中文显示解决技巧
- 基础开发入门级：JSP与ASP的比较
- 数据库受到限制怎么办？
- ASP初学者常犯的几个错误
- Asp定时执行操作、Asp定时读取数据库(网页定时操作详解)
- ASP优化：非常实用的ASP提速技巧五则
- ASP教程：解决ASP脚本运行超时的方法
- ASP安全：简单学习ASP连接数据库方法
- 简单一招用ASP实现对IE地址栏参数的判断
- asp控制xml数据库的6段非常的经典代码
- ASP进阶：验证身份证号是否正确的代码
- ASP教程：使用ASP生成图片彩色校验码
- ASP进阶：用ASP判断文件地址是否有效
- ASP进阶：用asp做的简单搜索引擎代码
- ASP实例 挂QQ的网页源代码ASP/PHP
- ASP答疑 解决ASP脚本运行超时的方法
- 轻轻松松破解开别人ASP木马密码的方法
- 用ASP操作Access数据库 ADOX的使用
PerlScript编写ASP
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 120 ::
收藏到网摘: n/a
<%@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/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其实是一个简单易学的
评论 (0) All
