明輝手游網(wǎng)中心：是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

Cgi基礎(chǔ)圖文說明教程之：13 設(shè)置口令

發(fā)表時間：2024-06-05 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]設(shè)置口令 CGI的一個有趣的特征是即使任何用戶都能執(zhí)行它們，但卻沒有辦法在屏幕上顯示她們。這意味著可以做一個口令腳本： #********BEGIN BODY************** if ($value[0] ne "mypassword") { print &qu...
設(shè)置口令 
CGI的一個有趣的特征是即使任何用戶都能執(zhí)行它們，但卻沒有辦法在屏幕上顯示她們。這意味著可以做一個口令腳本：
#********BEGIN BODY************** 
if ($value[0] ne "mypassword") { 
print "Invalid Password"; 
} else { 
print ’ 
<BODY BGCOLOR="WHITE"> 
<H1> Welcome, you have entered the<P> 
Password protected site </H1> 
’; 
}; 
#*********END BODY*************** 
要用這個腳本，需要建立一個有form的HTML頁面。如果在form上只有password一個box，則在運(yùn)行腳本時它傳遞給$value[0]。
和javascript不同，用戶看不到源代碼，所以使用以下代碼是安全的：
if ($value[0] ne "mypassword") { 
第一行為IF語句，與在javascript中的用法相似。
在Perl中，IF語句不同，取決于是比較數(shù)字還是文本。比較數(shù)字，可以用==, !=, >, < 符號。如果比較文本，用eq判斷是否相等，用ne判斷是否不相等。
上面的語句確定在用戶輸入的文本不等于"mypassword"時將做什么。
print "Invalid Password";
口令不對時打印某些信息。
} else {
否則...
print ’ 
<BODY BGCOLOR="WHITE"> 
<H1> Welcome, you have entered the<P> 
Password protected site </H1> 
’; 
口令正確，進(jìn)入有口令保護(hù)的網(wǎng)站。>>