ASP基础教程:其它的ASP常用组件

核心提示： < % Sub checkCookie() Set BrowserCap=Server.CreateObject("MSWC.BrowserType") if BrowserCap.Cookie=True then response.write "你的浏

< %
Sub checkCookie()
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
response.write "你的浏览器支持 Cookie!"
else
response.write "对不起，你所使用的浏览器不支持 Cookie!"
end if
end Sub
%>

二、 File Access 组件如果你的网龄足够大的话，你一定见过“恐龙时代”的 CGI 留言簿，那是 WEB 留言簿最早的雏形。那时候在基于 Internet 的 WEB 应用程序中连接服务器后端数据库还十分困难，因此留言簿中的历史信息并不是同如今一样存储在后端数据库中。那么这些数据究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以将从客户端接收的信息写进一个存放在服务器端的文本文件中，该文件可以是 HTML 文件或 TXT 等文件，这样就使得程序员们可以不通过同数据库连接就可以将客户信息保存下来，但是写此类 CGI 程序甚是烦琐，下面列出了一个此类程序的最简单的样本 :

#!/usr/local/bin/perl
# Perl Location one your server
print "Content-type: text/plain\\n\\n";
if($ENV{\'REQUEST_METHOD\'}eq"POST"){
read(STDIN,$buffer,$ENV{\'CONTENT_LENGTH\'});
}elsif($ENV{\'REQUEST_METHOD\'}eq"GET"){
$buffer=$ENV{\'QUERY_STIRNG\'};
}
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;}
$file_name="guestbook.txt";#File name
#具体内容
open(FILE,">>$file_name")||die "打开文件错误";
print FILE "记录时间":$date \\n\\n";
print FILE "姓名":$FORM{\'name\'}";
print FILE "单位":$FORM{\'company\'}\\n";
print FILE "电话":$FORM{\'phone\'}
print FILE "地址":$FORM{\'address\'}\\n";
print FILE "邮编":$FORM{\'zip\'}
print FILE "邮件地址":$FORM{\'email\'}\\n";
print FILE "返回意见":$FORM{\'content\'}
close (FILE)