DWS 的另外一种工作模式及是 Web Script, 这是为产生动态页面服务的。与 Delphi 类似, DWS 在解释 HTML 语法时，也需要一个 HTML Adapter,不过这个 Adapter 功能却很强大，可以对 DWS 格式的 Script文件加密，也可以解释并执行加密后的 DWS 格式的 Script. 这种加密功能就强大多了，你可以使用一切可以 在 Delphi 上实现的加密算法。如果不借助 ISAPI 和 Delphi 的 Apapche DSO 功能的化，DWS 也可以建成一个独立的 PE EXE,经过一定的改造, 使其接受 #! 的 Apache Web Script 语法, 这样就跟 Perl 一样执行.pl 的 Script 文件了。正如 WINDOWS 上的 Asp、Jsp 有漏洞(Bug)一样，DWS 也不例外，不过在 Apache环境下却出人意料的安全,这可能与 Apache 本身的因素有关系。
下面是 DWS (HTML Script) 的一个例子
| ＜% { Select HtmlAdapter in menu "Adapter" to compile this script!} %＞ ＜html＞ ＜head＞ ＜/head＞ ＜body＞ ＜% var x: Integer; for x := 1 to 2 do begin Send('Hello Word'); %＞ String: ＜%='Hello World!!'%＞ Float: ＜%= 3.14159265358 %＞ Integer: ＜%= 32768 + 23 %＞ Boolean: ＜%= true or false %＞ ＜% end; {$ADAPTER 'HtmlAdapterInclude.dws'} %＞ ＜/body＞ ＜/html＞ |
和 Asp、JSP 一样，DWS 的格式也是嵌入式的 HTML。
在外包含一个 DWS 文件时要用 $ADAPTER 和 $IN 的语法, 而不是 HTML 语法自身的 ＜INCLUDE＞在字符串输出是使用 Send\Sendln 代替 Write\Writeln 这样做的原因是在 CONSOLE 的函数中没有 HTTPD 的接口。现在很多流行的 Web Script 都是锲入式的 HTML 语法的，具有代表的是 PHP,不过由于 Perl 的灵活性教高，他在IIS 环境下也是直接嵌入的，在 Apapche 环境下需要一个 HTML-Embperl Package 的支持。
纵观各式 Web-Side Script, Perl 之所以有很大的成功，都是由于所处在 Unix 下，吸收的 C Shell 的精华和Unix 所赋予的聪明和才智,他的正则式表达语法不是 C 和 Pascal 所能比拟的,而 VBS 更是得益于在 Windows 的环境下养成。在很多方面,Pascal 就象一辆只会打固定目标的老式坦克,而 Perl就象一个身副现代武器的生化特种兵，能立体的，全方位的作战．这样不禁让人惋惜 Pascal 的后天不足，真是可惜．转载保留：http://www.qqread.com/data-structure/l207975.html进入讨论组讨论。
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
