·天新网首页·加入收藏·设为首页·网站导航
数码笔记本手机摄像机相机MP3MP4GPS
硬件台式机网络服务器主板CPU硬盘显卡
办公投影打印传真
家电电视影院空调
游戏网游单机动漫
汽车新车购车试驾
下载驱动源码
学院开发设计
考试公务员高考考研
业界互联网通信探索
您现在的位置:天新网 > 软件开发 > Web开发 > CGI开发
Cgi入门教程之:13 设置口令
http://www.21tx.com 2005年11月17日 转载
设置口令 
CGI的一个有趣的特征是即使任何用户都能执行它们,但却没有办法在屏幕上显示她们。这意味着可以做一个口令脚本:
#********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,则在运行脚本时它传递给$value[0]。
JavaScript不同,用户看不到源代码,所以使用以下代码是安全的:
if ($value[0] ne "mypassword") { 
第一行为IF语句,与在Javascript中的用法相似。
Perl中,IF语句不同,取决于是比较数字还是文本。比较数字,可以用==, !=, >, < 符号。如果比较文本,用eq判断是否相等,用ne判断是否不相等。
上面的语句确定在用户输入的文本不等于"mypassword"时将做什么。
print "Invalid Password";
口令不对时打印某些信息。
} else {
否则...
print ’ 
<BODY BGCOLOR="WHITE"> 
<H1> Welcome, you have entered the<P> 
Password protected site </H1> 
’; 
口令正确,进入有口令保护的网站。>>

上一篇: CGI的安全(一)
下一篇: CGI的安全(二)

关于我们 | 联系我们 | 加入我们 | 广告服务 | 投诉意见 | 网站导航
Copyright © 2000-2011 21tx.com, All Rights Reserved.
晨新科技 版权所有 Created by TXSite.net