企业门户网站的设计与实现

用户登陆输入 不正确 查无此人 请先登陆 判断用户名 正确 不正确 密码错误 判断用户名 正确 进入系统 图 6.1.1 lorgin.asp该页面用于管理员登陆的身份验证。

用户名验证

if len(username) < 2 then

call errorHistoryBack(\用户名不得为空或者少于两位\

end if

32

6．2 信息的添加和删除

在该模块中，可以浏览到已经输入信息详细。

用do while loop循环进行浏览所谓循环结构程序就是指对同一程序段进行若干次的重复执行，被重复执行的语句组称为循环体。在程序中的循环有两种：一种为无条件循环，它是无休止的重复执行某一程序段；一种为有条件循环，能够满足特定条件就重复执行某一程序段。 ASP提供多种循环语句以实现循环程序结构。 Do While....Loop语句

Do While....Loop语句可以在程序中实现\当\循环,其格式为: Do While <条件表达式> <循环体语句>

[Exit Do] Loop

执行过程是首先判断条件表达式的值是否为True。若不是，则退出循环，执行Loop后面的语句。若是True，则执行循环代码，当执行到Loop语句时，返回到Do While语句，继续判断条件表达式的值是否为True，如此反复执行，直到条件表达式的值为False才退出循环。使用本循环应注意以下：

33

(1) DO,Loop,While都是关键字，Do While和Loop应成对出现。 (2) 条件表达式的值应是布尔型。

(3) 循环体中要有控制循环的语句，以避免出现死循环。

在程序代码中可使用Exit Do语句强制退出循环。在Do-Loop可以在任何位置放置任意多个Exit Do语句以便随时跳出Do-Loop循环。Exit Do通常用于条件判断(If Then)之后，在这种情况下Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的Do-Loop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。

<% do while not rs3.eof %> 在中加入表格，循环写出数据库记录 <% rs2.movenext loop %>

以下是其具体实现过程图：

34

打开数据库记录 是 退出循环 判断是否记录尾 不是 读出记录 移到下一行记录

图 6.2.1

Up.asp用于添加信息 下面是FORM的代码