Web数据库开发工具(下)

六、在HTS文件中使用Perl访问数据库

　　可以在和标记对中使用Perl脚本语言。当客户浏览器请求包含Perl脚本的H S文件时，Web.sql程序解释运行Perl脚本并将结果代替块插入HTML语句流中传递给HTT 服务器。注意：在Perl脚本中，必须输出所有希望出现在客户浏览器上的HTML语句，包括表格提交输出的HTML标记。

　　Web.sql提供了两种API，即Convenience API和Client-Library API。如果与数据库交?并按接收到的格式显示结果，则可使用前者；如果想一行一行地处理返回的数据，则应该使后者。

　　1、Web.sql Convenience API

　　Web.sql Convenience API为HTS文件中最常用的任务提供了一组简单的例程。通过这些 程你可以完成大部分的数据库交互操作。

函数

描述

ws_connect

返回一个连接句柄。

Ws_content_TYPE

设置.pl文件返回的数据内容的类型。

ws_error

打印错误信息并终止当前页的执行。

Ws_fetch_rows

读取并打印ct_sql调用返回的行。

ws_print

打印一个字符串，扩展Perl变量参数。

ws_sql

执行一个或多个SQL命令并打印结果。

ws_rpc

执行存储过程，更新参数并打印结果。

　　ws_connect可以用来改变HTS文件所用的默认数据库连接，通过指定合法的连接名而获?数据库连接的句柄，作为其后调用其他Web.sql例程的参数。

　　ws_sql的调用格式为：ws_sql ( $db , $sql [, $format] )。其中，$db为数据库连接句柄，通常使用默认的数据库连接$ws_db作参数，也可以用ws_connect例程获得的连接句柄?$sql是包含了一个或多个SQL命令的串（要在一个串中包含多个SQL命令，只需用换行符分隔 ，即命令间用“\n”隔开）；$format是一个描述ws_sql如何格式化其返回的行的格式串。其中表示格式的符号与C语言类似。例如：

　　

　　 $sql=qq!select name,dept from compdb.employee!;

　　 $format="%s属于%s

\n";

　　 ws_sql($ws_db,$sql,$format);

　　

　　注意：“qq!...!”相当于引号。由于格式串中包括

，所以每一行结果都另起一段。 输出结果如下所示：

　　张三属于开发部

　　李四属于综合部

　　ws_print与Perl的print命令基本相同，但当你要打印的串包含了Perl变量时，ws_prin 会在打印该串之前用变量值进行替换。例如，假设某个表单中有一个名为color的字段，并?其提交给调用它的HTS文件。在该HTS文件中有一行语句：

　　

　　 $msg="The color is $color.\n";

　　 ws_print("$msg");

　　

　　若用户在该字段输入了“red”，则打印结果为：

　　The color is red.

　　如果程序中使用的是print例程，则打印结果为：

　　The color is $color.

　　2、Web.sql Client-Library API

　　Web.sql Client-Library API可对服务器返回的数据逐行进行处理。它提供了一个与Sybase Open Client Library (CT lib) API相类似的接口。这个接口要比Convenience API复杂得多，也提供了对SQL Server的更多控制。一般来说，应将Web.sql Client-Library API与C nvenience API结合起来使用。这样可以用ws_connect来连接数据库，用ws_error来处理错误，Web.sql Client-Library例程与ws_fetch_rows相结合可发送数据库命令和显示结果。

函数

描述

ct_callback

建立或取用处理错误的回调例程。

ct_cancel

取消一个命令或命令结果。

ct_col_TYPE

取出当前查询结果的列类型的数组。

ct_col_name

取出当前查询结果的列名的数组。

ct_connect

建立一个到服务器的数据库连接。

ct_fetch

取一行结果数据。

ct_fetch_parameters

更新提供给ct_rpc的结果参数。

ct_option

设置、取出或清除服务器查询处理选项。

ct_res_info

取出与当前结果集或命令有关的信息。

ct_results

决定SQL命令状态和返回的结果类型。

ct_rpc

调用远程服务器上的存储过程。

ct_sql

传送一个或多个SQL命令到数据库服务器。

　　例如，可以使用ct_connect来创建数据库连接。参数为服务器、口令和密码，返回值是 接句柄。代码如下：

　　

　　 $userid="dbuser";

　　 $passwd="dbpasswd";

　　 $server="Sybase";

　　 $dbhandle=ct_connect($userid,$passwd,$server);

　　

　　使用ct_connect建立连接时则无需像ws_connect那样要在数据库映像中提前设置合法连 ，但它会在HTS文件中显示出服务器的口令和密码，不具备安全性。而且Web.sql不会缓存 t_connect建立的连接。

　　七、Web.sql应用实例

　　数据库应用中最基本的功能之一即是检查用户的合法性。在下面的例子中，将用户在页 ？ogin.hts中输入的用户名和口令与数据库compdb的user用户口令表中的内容进行匹配，如 ？没Р缓戏 ，则拒绝该用户进一步访问。?例中使用的是数据库访问?像表中的缺省数据?连接，直接打开要访问的数据库compdb即可对其中的表进行操作。

　　1、页面Login.hts的代码

　　

　　

　　

　　

　　

　　

　　

请输入您的用户名称及用户口令 :

　　

　　

　　

用户名称：
用户口令：

　　

　　

　　

　　

　　

　　2、页面verify.hts的代码

　　

　　

　　

　　

　　

　　

　　use compdb

　　

　　

　　my $sql="select * from user where username='".$name."' and userpsw='".$passw rd."'";

　　# 判断查询语句是否传输成功

　　if (($rc=ct_sql($ws_db,$sql)) != CS_SUCCEED)

　　{

　　　　ws_error("无法处理数据库请求操作！");

　　 }

　　# 执行查询语句

　　my $result_TYPE="";

　　$ret =ct_results($ws_db,$result_TYPE);

　　if ($ret==CS_SUCCEED)

　　{

　　 　　# 没有返回结果

　　 　　if ($result_TYPE==CS_CMD_DONE)

　　 　　{

　　　　 　　ws_error ("对不起,您不是我们的用户!");

　　 　　}

　　 　　if ($result_TYPE==CS_CMD_FAIL)

　　 　　{

　　　　 　　ws_error ("对不起,您不是我们的用户!");

　　 　　}

　　 　　# 有返回结果

　　 　　if ($result_TYPE==CS_ROW_RESULT)

　　 　　{

　　　　 　　# 计算结果记录的条数

　　　　 　　$recno=0;

　　　　 　　while (@row=$ws_db->ct_fetch())

　　　　 　　{

　　　　　　 　　$recno=$recno+1;

　　　　 　　}

　　　　 　　# 记录数为0，注册失败

　　　　 　　if ($recno==0)

　　　　 　　{

　　　　　　 　　ws_error ("注册失败,请检验您的用户名及口令!");

　　　　 　　}

　　　　 　　# 有记录，注册成功，可继续执行其他代码

　　 　　}

　　}

　　

　　

　　

　　总之，Web.sql为Web数据库的开发提供了较为丰富的开发环境，它支持SQL语句，基本?能够满足Web数据库开发的需要