在平时做主页时，为了控制某主页的浏览权限，就要设置一个密码来控制。假设密码存于服务器端的数据库中。在FrontPage 98 中可结合ASP 来一个小程序程序，完成上述功能。具体步骤如下：

在FrontPage 98中,先做如下设计：

　　保存为ASP 文件，取名为test.asp，在Form Properties 的 Advanced 中增加一个变量：hname，值为 “aaa”（变量名和值可为任意）。 在Submit 的 Action 中test.asp。这时，可看到如下的HTML：



< html
< head
< meta http-equiv="Content-Type" content=
"text/html; charset=gb2312"
< title New Page 1< /title
< meta name="GENERATOR" content=
"Microsoft FrontPage 3.0"
< /head
< body bgcolor="#C0C0C0"
< p 请输入密码：< /p
< form method="POST" action="test.asp"
< input type="hidden" name="hname" value="aaa"
< p < input type="text" name="T1" size="20"
< input type="submit" value="Submit" name="B1"
< input type="reset" value="Reset" name="B2" < /p
< /form
< p 　< /p
< p 密码正确！< /p
< p 密码不正确！< /p
< /body
< /html

---- 先设计一数据库，假设为password.dbf,字段名为 "pw",插入一条密码记录，保存c:test目录下。然后在控制面板中增加一个系统 ODBC，取名“PWTEST”，让该ODBC指向此目录。 这时就可以在HTML中插入ASP语句。

在

前后插入如下语句：< % set c=server.CreateObject("ADODB.Connection") c.Open "PWTEST" set rs=c.Execute
("select * from password") pws=rs("pw").value rs.close c.close ’

以上是从数据库中获取密码
If Request.Form("hname") = "" Then %

在< /form 后插入

< % else%

< % if Request.Form("T1")=pws1 then %

在< p 密码不正确！< /p 前插入

< %else%

在< p 密码不正确！< /p 后插入

< %end if%

< %end if%

　　至此，ASP 语句已插入完毕。程序已可正常运行。

　　通过学做这个例子，笔者认为只要会用VB编程，写起来就非常简单。先用FrontPage 98 做可视化的界面，再插入一些ASP 语句，用起来很方便，很灵活 .