在平時做主頁時,為了控制某主頁的瀏覽權限,就要設置一個密碼來控制。假設密碼存于服務器端的數據庫中。在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 語句,用起來很方便,很靈活 .
|