在平時(shí)做主頁時(shí)，為了控制某主頁的瀏覽權(quán)限，就要設(shè)置一個(gè)密碼來控制。假設(shè)密碼存于服務(wù)器端的數(shù)據(jù)庫中。在FrontPage 98 中可結(jié)合ASP 來一個(gè)小程序程序，完成上述功能。具體步驟如下：

在FrontPage 98中,先做如下設(shè)計(jì)：

　　保存為ASP 文件，取名為test.asp，在Form Properties 的 Advanced 中增加一個(gè)變量：hname，值為 “aaa”（變量名和值可為任意）。 在Submit 的 Action 中test.asp。這時(shí)，可看到如下的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 >請(qǐng)輸入密碼：< /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 >

---- 先設(shè)計(jì)一數(shù)據(jù)庫，假設(shè)為password.dbf,字段名為 "pw",插入一條密碼記錄，保存c:\test目錄下。然后在控制面板中增加一個(gè)系統(tǒng) ODBC，取名“PWTEST”，讓該ODBC指向此目錄。 這時(shí)就可以在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 ’

以上是從數(shù)據(jù)庫中獲取密碼
If Request.Form("hname") = "" Then % >

在< /form >后插入

< % else% >

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

在< p >密碼不正確！< /p > 前插入

< %else% >

在< p >密碼不正確！< /p > 后插入

< %end if% >

< %end if% >

　　至此，ASP 語句已插入完畢。程序已可正常運(yùn)行。

　　通過學(xué)做這個(gè)例子，筆者認(rèn)為只要會(huì)用VB編程，寫起來就非常簡單。先用FrontPage 98 做可視化的界面，再插入一些ASP 語句，用起來很方便，很靈活 .