征集网锐志网络淘途找素材上91123RF图片库
创意在线首页
官方微博:腾讯
平面设计交互设计CG动漫工业设计建筑环境数码影像创意搜
 首页大赛征集资讯教程画廊访谈作品集创企同盟设计招聘人才专区竞赛台专题论吧 找素材看酷站设计网址库
教程网 Illustrator、Photoshop、CoreaDreaw、AI教程、PS教程
当前位置:首页 > 教程 > 程序相关 > 正文
PerlScript编写ASP
作者: 来源:52design.com 发表时间:2007-8-30 17:11:44 浏览:
   现在我们建立第一个ASP页
  <%@Language=PerlScript%>
  <HTML>
  <TITLE> PerlScript Test </TITLE>
·设计师个人作品集火热申请中!
·查询网站排名推荐您用Chianz排名查询
·“论吧”正式上线 欢迎参与主题讨论
·全球经典酷站推荐欣赏
·矢量素材 给设计师提供强大后盾
·加入设计师论坛,精彩无限
·设计网址大全,免费收录所有设计站点

  <%
  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其实是一个简单易学的通用信息技术语言,我觉得现在普及计算机,首先应该普及的就是Perl语言了,PERL比BASIC自然得多。好像人们在说话,它的编写方式就好像我们处理事务一样。学会了Perl,不但对你学习其它语言(诸如:C/C++、JAVA)有很大的促进、帮助并加快学习进度,Perl的强大发展趋势,可以让您"投机取巧",在其它流行的编程技术中嵌入,这样在您不懂得或是觉得一种算法很麻烦的时候,用Perl来帮助你快捷的完成。让您在其它语言中从Perl慢慢进化成该种语言,是相当顺利的平稳过渡。我发现在学习Perl以后,学习其它语言速度有很大的加快。




在线编辑:morion
本文链接:


推荐阅读:
·第九届中国高校美术(设计)作品学年展 征稿章程
·2017第三届“包豪斯奖”国际设计大赛
·青春唯美插画培训网络远程班正在招生
·创企同盟VIP:网络品牌建设提供商-木兰设计
·“汇聚文创动能,发展天府文化”成都创意设计周将于11月10日开启
·2019 年国际足联女子世界杯会徽和口号正式
·世界最大移动通讯公司 沃达丰(Vodafone)启用新 LOGO
·德国足协公布2024年欧洲杯申办LOGO
免责声明:本站刊载此文不代表同意其说法或描述,仅为提供更多信息。对本文有异议,请联络本站!
转载要求:文章作者及来源信息必需保留。转载之图片、文件请不要盗链本站地址,且不准打上各自站点的水印!

创意素材推荐 矢量 | PSD | 模板 | 高清 | PNG | 网页背景
2009-02-06
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站
个性展示 网站教学 工 作 室 学校教育 卡通漫画 文化艺术 体育运动 美容健身 食品饮料
近期推荐报道 返回首页更多精彩等着你!

Photoshop| Photoshop快速调出情侣图片柔美的插画艺术| 绝望的小熊—美国插画师Luke
网页设计| 波兰Tiquet网站设计作品欣赏插画艺术| Nanami Cowdroy灵动黑白插画
Photoshop| Photoshop调出美女图片绚丽的橙红HTML/CSS| 实现DIV透明而里面的文字不透明
平面设计| 世界杯之平面广告欣赏插画艺术| Alberto Cerrite&ntil
平面设计| Havaianas人字拖最新平面广告系列网页设计| 英国madefavourite简洁细腻型
韩国站点 素材资源 艺术摄影 游戏娱乐 影视网站 建筑家居 FLASH站 旅游购物 明星网站 个性展示 网站教学 工 作 室 学校教育
设计门户 优秀企业 时尚品牌 象素站点 数码通信 设计公司 汽车网站 国外优秀 儿童网站 文化艺术 体育运动 美容健身 食品饮料
网站名称:whaternet
网站地址:http://whaternet.com/
加入时间:2014-8-5 13:59:20
网站名称:mnnaite
网站地址:http://www.mnnaite.com/static/
加入时间:2014-8-5 13:58:07
网站名称:tijuanaflats
网站地址:http://tijuanaflats.com/
加入时间:2014-8-5 13:55:32
网站名称:digital
网站地址:http://production-digital.com/
加入时间:2014-8-5 13:54:45
网站名称:deutschesee
网站地址:http://www.deutschesee.de/
加入时间:2014-8-5 13:51:54
网站名称:kennedy
网站地址:http://www.kennedyandoswald.com/
加入时间:2014-8-5 13:50:57
关于本站 | 联系方式 | 商业服务 | 合作伙伴 | 站点地图 | 免责声明 | 版权声明 | 在线投稿