在平时做主页时,为了控制某主页的浏览权限,就要设置一个密码来控制。假设密码存于服务器端的数据库中。在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 语句,用起来很方便,很灵活 .