发信人: xiny()
整理人: workingnow(2002-10-30 13:57:59), 站内信件
|
【 在 tanshuai (天水) 的大作中提到: 】
: 你好:
: 我有一件事情想问问，如果你能够解答！问题：
: 我想要编写一个支持多用户的程序，比如想abc.yestie.com那样一个留言板可以
: 多个用户共同使用！
: .......
呵呵！
先得到$user的值。然后再建文件或读文件
if ($ENV{'QUERY_STRING'}) {
$buffer = $ENV{'QUERY_STRING'};
} else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
#$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$user=$FORM{'user'};
if (-e "./$user/$user.cfg"){
require "./conf/$user.cfg";
#这儿这样处理可以在同一目录下不同用户.
#或者用下面的,不同目录下的
#require "./$user/conf.cfg";
}else{
#处理设置文件不存在时可以建个新的，这样就做成自动的了!呵呵
}
--
我的主页：http://xinge.nethome.net.cn/
我写的BBS：http://169.nethome.net.cn/
我的聊吧：http://169.nethome.net.cn/chat/
http://xinge.nethome.net.cn/chat/
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.102.24.29]
|
|