 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
现在我们建立第一个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以后，学习其它语言速度有很大的加快。 返回类别: 教程 上一教程: 用ASP实现自动建站.实现虚拟二级目录 下一教程: ASP实现在WEB中显示电子表格数据(四)创建文件选择列表 您可以阅读与"PERLSCRIPT编写ASP"相关的教程: · 如何用ASP编写网站统计系统三 · 浅谈ASP程序的编写和调试：给初学者 · ASP编写完整的一个IP所在地搜索类 · 用ASP编写的“俄罗斯方块游戏” · 用ASP编写图片计数器 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
