发信人: pblover()
整理人: leitiger(2002-06-05 23:51:50), 站内信件
|
数据库应用中最基本的功能之一即是检查用户的合法性。在下面的例子中，将
用户在页面login.hts中输入的用户名和口令与数据库compdb的user用户口令表
中的内容进行匹配，如果用户不合法，则拒绝该用户进一步访问。本例中使用的是
数据库访问映像表中的缺省数据库连接，直接打开要访问的数据库compdb即可对
其中的表进行操作。
1、页面Login.hts的代码
<HTML>
<HEAD>
<TITLE>Web.sql应用实例</TITLE>
</HEAD>
<BODY>
<H4>请输入您的用户名称及用户口令 :</H4>
<FORM ACTION="verify.hts" METHOD=POST>
<P>
<TABLE ALIGN="CENTER">
<TR><TD>用户名称：<TD><INPUT NAME=name TYPE="TEXT" SIZE=10
MAXLENGTH=8>
<TR><TD>用户口令：<TD><INPUT NAME=password TYPE="PASSWORD"
SIZE=10 MAXLENGTH=8>
</TABLE>
<TITLE>Web.sql应用实例</TITLE>
<TITLE>Web.sql应用实例</TITLE>
</HEAD>
<BODY>
<H4>请输入您的用户名称及用户口令 :</H4>
<FORM ACTION="verify.hts" METHOD=POST>
P>
<TABLE ALIGN="CENTER">
<TR><TD>用户名称：<TD><INPUT NAME=name TYPE="TEXT" SIZE=10
MAXLENGTH=8>
<TR><TD>用户口令：<TD><INPUT NAME=password TYPE="PASSWORD"
SIZE=10 MAXLENGTH=8>
</TABLE>
<P>
<INPUT TYPE="submit" NAME="select" VALUE="确定口令"
ALIGN=CENTER>
</CENTER>
</FORM>
</BODY>
</HTML>
2、页面verify.hts的代码
<HTML>
<HEAD>
<TITLE>用户口令校验</TITLE>
</HEAD>
<BODY >
<SYB TYPE=SQL>
use compdb
</SYB>
<SYB TYPE=PERL>
my $sql="select * from user where username='".$name."' and
userpsw='".$password."'";
# 判断查询语句是否传输成功
if (($rc=ct_sql($ws_db,$sql)) != CS_SUCCEED)
{
s_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 ("注册失败,请检验您的用户名及口令!");
}
# 有记录，注册成功，可继续执行其他代码
}
}
</SYB>
... ...
</BODY>
</HTML>
总之，Web.sql为Web数据库的开发提供了较为丰富的开发环境，它支持SQL语
句，基本上能够满足Web数据库开发的需要。
--
※ 来源:．网易 BBS bbs.netease.com．[FROM: 202.96.122.250]
|
|