无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 18152|回复: 79
打印 上一主题 下一主题

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

[复制链接]
跳转到指定楼层
1#
发表于 2002-9-14 14:07:06 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
[这个贴子最后由wwwfox在 2002/09/14 03:33pm 编辑]

本论坛目前以LB5000的使用为主,有关此类的问题,请在此跟贴提问.均可得到本站的答复.
如果你的问题具有一定的代表性,将给你另发贴专门解答.
提问时注意:
1.务必说清楚你的问题现象,出现问题可能的原因.尽可能表达清楚,这样才能得到本站比较快速的答复.
2.如果有些涉及到你的论坛安全性问题,如密码之类的,请不要在这里贴出来,以免对你的论坛造成不利.
80#
发表于 2004-6-18 12:21:29 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

怎样才能成为高级会员呢????谢谢!!!
回复

使用道具 举报

79#
发表于 2004-6-16 09:20:29 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

我从其他机器访问我做的局域网论坛,登陆后还是在登陆界面,看了N多的帖子都说是和COOKIE有关,我也在论坛管理界面里面调整了一下COOKIE的访问路径,设置成了根目录及完整目录,都没用啊,我又把WIN2000下的COOKIE下所有文件都删了,再重置论坛后也一样啊,郁闷啊。。。。高手帮帮我啊,我不得不又做一遍了。。。。5555
回复

使用道具 举报

78#
发表于 2004-2-21 10:34:44 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

安装的时候NON-CGI的路径设置不对
回复

使用道具 举报

77#
发表于 2004-2-19 10:53:00 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

现在论坛可以打开了。可是无法显示图片,版主关心一下这里啊~~那里设置不对哦~~
回复

使用道具 举报

76#
发表于 2004-2-13 10:38:32 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

    首先介绍一下网络情况:我们是教育单位的校校通属于私有地址10开头的城域网,出口在教育局的服务器,ip是电信动态分配的。
    我在win2000服务器上架设了web服务器和ftp服务器和lb5000bbs,城域网内用ip和域名访问web和lb5000bbs都可以访问,ftp要用ie访问时要在被动模式上打勾,虽然麻烦但是还能访问。外网用域名访问web页面能看,lb5000打不开,ftp和内网使用一样,ip没有试过。
    动态域名使用的是旭锐达动态域名解析系统,是绕过端口映射的那一种。http://redstar.dhcn.net,希望有过以上经历的前辈,各位斑竹帮帮我。
回复

使用道具 举报

75#
发表于 2004-2-5 10:25:56 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

这个显示就对了.
回复

使用道具 举报

74#
发表于 2004-2-5 09:59:48 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

[这个贴子最后由WittyHare在 2004/02/05 10:27am 第 5 次编辑]

请问怎么才能升级论坛的IP数据库?
这个显示不对,
回复

使用道具 举报

73#
发表于 2004-2-5 09:28:33 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

下面引用由无人喝彩2004/01/09 09:37pm 发表的内容:
下午在单位的机器上面安装雷傲已经成功 win2000+iis 使用的是最新的LB5000 XP 4.05
我单位用的机器分配的是真实ip 211.93.**.** 自己访问当然没问题  用单位的局域网
访问也没问题(10.199.**.**)可是回家之后 ...
请问你是在哪找的LB5000 XP 4.05,能不能给我一个下载地址?
回复

使用道具 举报

72#
发表于 2004-1-9 21:37:50 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

下午在单位的机器上面安装雷傲已经成功 win2000+iis 使用的是最新的LB5000 XP 4.05
我单位用的机器分配的是真实ip 211.93.**.** 自己访问当然没问题  用单位的局域网
访问也没问题(10.199.**.**)可是回家之后却访问不了了 家里用的机器是用拨号的宽带
分配的也是假的地址 192.172.**.** 都可以ping通单位的机器 请教大家 这是为了什么 在单位的服务器上面应该怎么设置
回复

使用道具 举报

71#
发表于 2003-10-31 16:14:27 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

   
回复

使用道具 举报

70#
发表于 2003-10-29 10:52:54 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!


搞定了,谢谢大家
回复

使用道具 举报

69#
发表于 2003-10-29 10:13:48 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!


单机安装LB http://bbs.wuyou.net/cgi-bin/topic.cgi?forum=31&topic=7&show=0
操作到 在地址栏内键入
http://127.0.0.1/cgi-bin/install.cgi
窗口内容如下:

#!/usr/bin/perl
#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#           
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#     http://www.LeoBoard.com/   雷傲论坛支持主页
#     http://www.leoBBS.com/     本论坛直通车
#            http://mail@17do.com/      大家一起邮
#            
#  *************************
#  LB论坛推荐虚拟主机服务商:
#  雷傲科技:  http://www.leoboard.com.cn
#  全面支持LB所有功能,拥有2年提供LB论坛空间的以及500多个LB用户的经验,可以做的更好
#  **************************
#
#############################################################
BEGIN {
   $LBPATH = '.';
   my $pgm = $0;
   $pgm =~s/\\/\//g;
   $pgm =~s/^.*\/([^\/]+)$/$1/g;
   unless (-e $LBPATH.'/'.$pgm) {
       foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
           s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
           if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
       }
   }
   unshift (@INC, "$LBPATH");
}
use LBCGI;
use Archive::Tar;
use Cwd;
$query = new LBCGI;
@params = $query->param;
foreach $param(@params) {
$theparam = $query->param($param);
       $theparam =~ s/\@/\\\@/g;
       $theparam =~ s/\'//g;
       $theparam =~ s/\"//g;
     ${$param} = $theparam;
       if ($param ne "action") {
           $printme .= "\$" . "$param = \'$theparam\'\;\n";
           }
}
$stylesheet =<<__end_of_sheet__;
<style>
<!--
A:visited {TEXT-DECORATION: none}
A:active  {TEXT-DECORATION: none}
A:hover   {TEXT-DECORATION: underline overline}
A:link  {text-decoration: none;}
       A:visited {text-decoration: none;}
       A:active  {TEXT-DECORATION: none;}
       A:hover   {TEXT-DECORATION: underline overline}
      
.t     {LINE-HEIGHT: 1.4}
BODY   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
TD   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
SELECT {FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}
INPUT  {FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;}
TEXTAREA{FONT-FAMILY: 宋体; FONT-SIZE: 9pt;}
DIV    {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
form   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
OPTION {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
P   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
TD   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
BR   {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
-->
</style>
__end_of_sheet__
$thisprog = "install.cgi"; $|=1;
$XHTML = 0;
if ($action ne "final_step" || !$action) { print header(-charset=>"gb2312"); print "<head><title>LB5000 MX 安装向导 -- CGI 编程者之家</title></head>$stylesheet<body>"; }
if ($action eq "step_two") {
if (-e "${lbdir}cgi-bin.tar"){
my $cwd = cwd();
       my $tar =  Archive::Tar->new();
       unless ($tar->read("${lbdir}cgi-bin.tar", 0)) {
       print qq~<td class='w' align='left' width='60%'>cgi-bin.tar不能读取,请检查是否使用二进制模式上传(一定要这个模式上传这个压缩包)</td></tr>~;
           exit;
       }
       chdir $lbdir;
       unless (-w $lbdir){
       chmod (0777,$lbdir) if ($lbdir !~ m/\/cgi-bin\/$/i);
       opendir (FILE, ".");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   next if (($_ eq ".")||($_ eq ".."));
   chmod(0755,"./$_");
       }
      }
       my @files = $tar->list_files();
       $tar->extract(@files, $lbdir);
       chdir $cwd;
       }
       if (-e "${lbdir}non-cgi.tar"){
my $cwd = cwd();
       my $tar =  Archive::Tar->new();
       unless ($tar->read("${lbdir}non-cgi.tar", 0)) {
       print qq~<td class='w' align='left' width='60%'>non-cgi.tar不能读取,请检查是否使用二进制模式上传(一定要这个模式上传这个压缩包)</td></tr>~;
           exit;
       }
       mkdir($imagesdir,0777);
       chdir $imagesdir;
       unless (-w $imagesdir){
       chmod (0777,$imagesdir);
       opendir (FILE, ".");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
chmod(0777,"./$_");
       }
}
       my @files = $tar->list_files();
       $tar->extract(@files, $imagesdir);
       chdir $cwd;
       }
              
$endprint = "1\;\n";
$errorflag = 0;
       $filetomake = "$lbdir" . "data/boardinfo.cgi";
       open(FILE,">$filetomake");
       print FILE "$printme";
print FILE "\$adfoot = '<a href=http://www.leobbs.com/ target=_blank><img src=\$imagesurl/images/banner.gif border=0></a>';\n";
print FILE "\$adscript = '<a href=http://www.leobbs.com/ target=_blank><img src=\$imagesurl/images/banner.gif border=0></a>';\n";
print FILE "\n";
       print FILE $endprint;
       close(FILE);
      
#        &chmodfiles;
      
       if (-e $filetomake && -w $filetomake) {
           $saved_variables = qq(<font face="宋体">所有输入的信息已经成功的写入 ${lbdir}data/boardinfo.cgi 文件中。</font>);
           }
           else {
               $saved_variables = qq(<font face="宋体" color="#FF0000">对不起,不能够保存信息。<BR>
                                     请检测您输入的 ${lbdir}data 数据路径是否正确?是不是最后遗漏了除号 '/'?<BR>
                                     如果正确,请检查 'data' 目录属性是否设置正确。请返回修改后重新递交表单一次。);
                                      $errorflag = "1";
               }
     
       $filetocheck = "$lbdir" . "leoboard.cgi";
       if (-e $filetocheck) {
           $found_cgi = qq(<font face="宋体" color="#0000FF">正确</font>);
           }
           else {
               $errorflag = "1"; $found_cgi = qq(<font face="宋体" color="#FF0000">错误 - 找不到 $filetocheck,数据路径是不是最后遗漏了除号 '/'?请返回重新输入正确信息。</font>);
               }
opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/, @files2);
$memdir=@memdir;
if ($memdir eq 0) {
@memdir = grep(/^MEMBERS/, @files2);
rename("${lbdir}MEMBERS","${lbdir}members");
}
if ($memdir eq 0) {
@memdir = grep(/^Members/, @files2);
rename("${lbdir}Members","${lbdir}members");
}
$memdir = $memdir[0];
if ($memdir eq "members") {
srand;
$x = rand;
$x = int($x * 10000000);
$x =sprintf("%08d",$x);
rename("${lbdir}members","${lbdir}members$x");
$memdir="members$x";
}
opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/i, @files2);
$memdir = $memdir[0];
my @msgdir = grep(/^messages/i, @files2);
$msgdir = $msgdir[0];
if ($msgdir eq "messages") {
srand;
$x = rand;
$x = int($x * 10000000);
$x =sprintf("%08d",$x);
rename("${lbdir}messages","${lbdir}messages$x");
$msgdir="messages$x";
}
opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @msgdir = grep(/^messages/i, @files2);
$msgdir = $msgdir[0];
       $dirtocheck = "$lbdir" . "data";
       if (-d "$dirtocheck") {
           $datadir = "找到";
           $makefile = "$lbdir" . "data/test.txt";
           open (TEST, ">$makefile") or $datawritable = "目录 data 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $datawritable = "属性为<b>可写</b>!" if (!$datawritable);
           unlink "$makefile";
           } else { $errorflag = "1"; $datadir = "<b>没有找到</b>!"; }
       $dirtocheck = "$lbdir" . "help";
       if (-d "$dirtocheck") {
           $helpdir = "找到";
           $makefile = "$lbdir" . "help/test.txt";
           open (TEST, ">$makefile") or $helpwritable = "目录 help 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $helpwritable = "属性为<b>可写</b>!" if (!$helpwritable);
           unlink "$makefile";
           } else { $helpdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$lbdir" . "$memdir";
       if (-d "$dirtocheck") {
           $membersdir = "找到";
           $makefile = "$lbdir" . "$memdir/test.txt";
           open (TEST, ">$makefile") or $memberswritable = "目录 $memdir 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $memberswritable = "属性为<b>可写</b>!" if (!$memberswritable);
           unlink "$makefile";
           } else { $errorflag = "1"; $membersdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$lbdir" . "$msgdir";
       if (-d "$dirtocheck") {
           $messagesdir = "找到";
           $makefile = "$lbdir" . "$msgdir/test.txt";
           open (TEST, ">$makefile") or $messageswritable = "目录 $msgdir 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $messageswritable = "属性为<b>可写</b>!" if (!$messageswritable);
           unlink "$makefile";
           } else { $errorflag = "1"; $messagesdir = "<b>没有找到</b>!"; }

       $filetocheck = "$imagesdir" . "images/logo.gif";
       if (-e $filetocheck) {
           $found_image = qq(<font face="宋体" color="#0000FF">正确</font>);
           }
           else {
               $errorflag = "1"; $found_image = qq(<font face="宋体" color="#FF0000">错误,请注意路径最后不要遗漏除号 '/',请点击后退填入正确的信息(是不是你遗漏上传了 images 下的 logo.gif 呢?程序是利用这个文件是否存在来判断你设置是否正确的)。</font>);
               }
         
       $dirtocheck = "$imagesdir" . "images";
       if (-d "$dirtocheck") { $images_dir = "找到!"; } else { $errorflag = "1"; $images_dir = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "emoticons";
       if (-d "$dirtocheck") { $emoticonsdir = "找到!"; } else { $errorflag = "1"; $emoticonsdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "avatars";
       if (-d "$dirtocheck") { $avatarsdir = "找到!"; } else { $errorflag = "1"; $avatarsdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "usravatars";
       if (-d "$dirtocheck") {
           $usravatarsdir = "找到!";
           $makefile = "$dirtocheck" . "/test.txt";
           open (TEST, ">$makefile") or $usravatarswritabler = "目录 $dirtocheck 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $usravatarswritable = "属性为<b>可写</b>!" if (!$usravatarswritable);
           unlink "$makefile";
       } else { $errorflag = "1"; $usravatarsdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "usr";
       if (-d "$dirtocheck") {
       $usrdir = "找到!";
           $makefile = "$dirtocheck" . "/test.txt";
           open (TEST, ">$makefile") or $usrwritabler = "目录 $dirtocheck 为不可写,请改变属性为 777 。";
           print TEST "-";
           close (TEST);
           $usrwritabler = "属性为<b>可写</b>!" if (!$usrwritabler);
           unlink "$makefile";
       } else { $errorflag = "1"; $usrdir = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "btg";
       if (-d "$dirtocheck") { $btg = "找到!"; } else { $errorflag = "1"; $btg = "<b>没有找到</b>!"; }
       $dirtocheck = "$imagesdir" . "emot";
       if (-d "$dirtocheck") { $emot = "找到!"; } else { $errorflag = "1"; $emot = "<b>没有找到</b>!"; }
       @progs_to_search = ('admincenter.cgi', 'allnews.cgi', 'announcements.cgi', 'code.cgi', 'forumoptions.cgi', 'forums.cgi', 'help.cgi', 'install.cgi', 'index.html', 'lb.lib.pl', 'lbadmin.lib.pl', 'lbfriend.cgi', 'lbmail.lib.pl', 'leoboard.cgi', 'loginout.cgi', 'mailmembers.cgi', 'massmsg.cgi', 'memberlist.cgi', 'messanger.cgi', 'misc.cgi', 'news.cgi', 'noreg.cgi', 'pag.cgi', 'poll.cgi', 'post.cgi', 'postings.cgi', 'postjs.cgi', 'printpage.cgi', 'profile.cgi', 'register.cgi', 'remmail.cgi', 'search.cgi', 'setforums.cgi', 'setipbans.cgi', 'setmemberbak.cgi', 'setmembers.cgi', 'setmembertitles.cgi', 'setskin.cgi', 'setstyles.cgi', 'settemplate.cgi', 'setvariables.cgi', 'shareforums.cgi', 'team.cgi', 'topic.cgi', 'visitforum.lib.pl', 'whosonline.cgi', 'data/styles.cgi');
      
print qq(
   <font size="5" face="宋体" color="#000000">
   <h1>LB5000 MX 安装向导</b></font></h1><font face="宋体" color="#000000">
   程序编制:<a href="mailto:webmaster\@cgier.com">山鹰糊</a>  参与制作:<a href="mailto:info\@cgier.net">花无缺</a><BR>
   版权所有:<a href="http://www.cgier.com/">CGI 编程者之家</a></font>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>欢迎使用 LB5000 MX 安装向导!</b>
   <br><br>
   <b>第二步:</b> 谢谢您写入信息,下面是尝试安装的结果。<br>如果您得到了错误信息提示,请确定您已经完整上传了本程序,以及目录属性、位置设定正确。</font><br>
   <hr noshade color="#000000">
   <font face="宋体" color="#0000FF">
   <br><b>您键入的安装信息是否正确保存?</b></font>
   <br>
   $saved_variables
   <br><br>
   <hr noshade color="#000000">
   <font face="宋体" color="#0000FF">
   <br><b>路径预览</b></font>
   <br>
   <font face="宋体" color="#000000">
   所有程序(*.cgi)的路径: $lbdir - $found_cgi
   <br><br>
   -- 查找 ${lbdir}data    - $datadir - $datawritable<br>
   -- 查找 ${lbdir}help    - $helpdir - $helpwritable<br>
   -- 查找 ${lbdir}$msgdir  - $messagesdir - $messageswritable<br>
   -- 查找 ${lbdir}$memdir  - $membersdir - $memberswritable<br>
   <br>
   <br>
   <font face="宋体" color="#000000">
   所有非 CGI 文件(images)的路径: $imagesdir - $found_image
   <br><br>
   -- 查找 ${imagesdir}images   - $images_dir<br>
   -- 查找 ${imagesdir}emoticons  - $emoticonsdir<br>
   -- 查找 ${imagesdir}avatars   - $avatarsdir<br><br>
   -- 查找 ${imagesdir}usravatars - $usravatarsdir - $usravatarswritable<br><br>
   -- 查找 ${imagesdir}usr       - $usrdir - $usrwritabler<br><br>
   -- 查找 ${imagesdir}btg     - $btg<br><br>
   -- 查找 ${imagesdir}emot     - $emot<br><br>
   <hr noshade color="#000000">
   <font face="宋体" color="#0000FF">
   <br><b>URL 预览</b></font>
   <br>
   <font face="宋体" color="#000000">
   您输入的图片 URL: $imagesurl
   <br>
   <br>
   -- 查找 $imagesurl/images/announce.gif - <img src="$imagesurl/images/announce.gif" border=0><br>
   -- 查找 $imagesurl/emoticons/smile.gif - <img src="$imagesurl/emoticons/smile.gif" border=0><br>
   -- 查找 $imagesurl/avatars/noavatar.gif - <img src="$imagesurl/avatars/noavatar.gif" border=0><br><br>
   如果您看到的是错误的图片,请检查这个 $imagesurl 路径是否正确,同时也请确定图片文件是否是以 Binary 方式上传的。<BR><BR>
   );
   if ($errorflag eq "1") { print qq(<br><br><font color="#FF0000">LB5000 MX 安装向导发现错误,不能够继续。请返回重新填入正确的信息); print "</body></html>"; exit; }
   
   print qq(
   <hr noshade color="#000000">
   <font face="宋体" color="#0000FF">
   <b>文件合法性检查</b></font>
   <br>
   <br>
   <font face="宋体" color="#000000">
   LB5000 MX 安装向导将检查您的所有 CGI 文件是否已上传,并且是以 ASCII 方式上传的
   <br><br>);
   foreach (@progs_to_search) {
       $filetotest = "$lbdir" . "$_";
       if (-e $filetotest) {
           open (TEST, "$filetotest");
           @testfile = <TEST>;
       close (TEST);
       if (grep(/\r/, @testfile) && $^O ne "MSWin32") {
       print "<b>找到 $_ ,但它好像是以 BINARY 方式上传的。请重新以 ASCII 方式上传!</b><br>";
               }
               else { print "找到 $_ - 上传正确!<br>"; }
           }
           else { print "<b>找不到 $_ ! - 是否上传了?</b><br>"; }
           } # end foreach
   print qq(
       <br>
       <hr noshade color="#000000">
       <font face="宋体" color="#0000FF">
       <br><b>报告结束</b></font>
       <br>
       <br>
       <font face="宋体" color="#000000">
       LB5000 MX 安装向导已经完成报告。如果您发现错误,请返回重新填写信息。
       <br>同时,您也可以使用管理员身份在任何时间重新填写信息。
       <br><br>
       如果您不确定一些问题,或者出现一些未知的错误,请到 <a href="http://www.cgier.com/"><b>CGI 编程者之家</b></a> 的论坛中提出!
       <br><br><i>报告结束</i>
       <br><br>
       <hr noshade color="#000000">
       <font face="宋体" color="#0000FF">
       <br><b>下一步做什么?</b></font>
       <br>
       <br>
       <font face="宋体" color="#000000">
       <b>如果您是从 LB5000 MX 的早期版本升级的,<a href="admincenter.cgi?action=remove">现在到管理中心界面</a></b>!
       <br><br>从安全性上考虑,当你进入管理中心的同时,本安装文件将会被自动删除。<br>
       当本安装文件存在的时候,管理中心是不能运行的!如果自动删除失败,那么请你自行利用 FTP 来删除这个本程序!
       <br><br>
       <b>如果你是第一次安装 LB5000 MX,那么请<a href="$thisprog?action=step_three">点击这里进入第三步</a></b>!</font>
       <br><br><br><br><br>
       );
   $server_port = ":$ENV{'SERVER_PORT'}" if ($ENV{'SERVER_PORT'} ne '80');
   if ($ENV{'HTTP_HOST'} ne "") { $fullurl = $ENV{'HTTP_HOST'}; } else { $fullurl = $ENV{'SERVER_NAME'}; }
   $fullurl     = "http://$fullurl$server_port$ENV{'SCRIPT_NAME'}";
   $myurl       = substr($fullurl,0,rindex($fullurl,"/"));
       $geturl="http://bbs.leoboard.com/cgi-bin/lbver.cgi?ver=LB5000&url=$myurl";
$out=&lbagent($geturl);
               }

elsif ($action eq "step_three") {
   print qq(
   <font size="5" face="宋体" color="#000000">
   <h1>LB5000 MX 安装向导</b></font></h1><font face="宋体" color="#000000">
   程序编制:<a href="mailto:webmaster\@cgier.com">山鹰糊</a> 参与制作:<a href="mailto:info\@cgier.net">花无缺</a><BR>
   版权所有:<a href="http://www.cgier.com/">CGI 编程者之家</a></font>
   <hr noshade color="#000000">
    <br>
   <font face="宋体" color="#FF0000">
   <b>你是否以前到过这一步?</b>
   <br><br>
   <font face="宋体" color="#000000">
   <b>如果您是从 LB5000 MX 的早期版本升级的,<a href="admincenter.cgi?action=remove">现在到管理中心界面</a></b>!
   <br><br>如果您运行这一步,您将<b>丢失</b>论坛的所有数据!!!
   <hr noshade color="#000000">
   <br>
   <b>第三步:</b><br>
   最后安装部分。这一步将完成论坛的安装,您将能够进入管理中心界面设置论坛风格、颜色等。
   <br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#0000FF">
   <b>以管理员身份注册您自己</b></font>
   <br><br>
   <font face="宋体" color="#000000">
   您将以管理员身份注册自己,这样就可以正确访问管理中心界面</font>
   <br><br>
   <form action="$thisprog" method="post">
   <input type="hidden" name="action" value="final_step">
   <font face="宋体" color="#000000">
   输入您的管理员名称:(最大12字符)<br>
   <input type="text" name="membername" maxlength=12>
   <br><br>
   请输入管理员密码:<br>
   <input type="password" name="password_one" maxlength=20>
   <br><br>
   请重输管理员密码:<br>
   <input type="password" name="password_two" maxlength=20>
   <br><br>
   <input type="submit" value="提 交 这 个 信 息">
   </form>
   <hr noshade color="#000000">
   <br>
   <b>请仔细检查所有信息,并请紧记您的名称、密码。</b>
   <br><br>);
   } # end step 3
elsif ($action eq "final_step") {
$namecookie = cookie(-name    =>   "adminname",
                    -value   =>   "$membername");
$passcookie = cookie(-name    =>   "adminpass",
                    -value   =>   "$password_one");
print header(-cookie=>[$namecookie, $passcookie],-charset=>"gb2312"); print "<head><title>LB5000 MX 安装向导 -- CGI 编程者之家</title></head>$stylesheet<body>";
print qq(
<font size="5" face="宋体" color="#000000">
  <h1>LB5000 MX 安装向导</b></font></h1><font face="宋体" color="#000000">
程序编制:<a href="mailto:webmaster\@cgier.com">山鹰糊</a> 参与制作:<a href="mailto:info\@cgier.net">花无缺</a><BR>
版权所有:<a href="http://www.cgier.com/">CGI 编程者之家</a></font>
<hr noshade color="#000000">
<br>
<font face="宋体" color="#000000">
<b>欢迎使用 LB5000 MX 安装向导!</b>
<br><br>
<b>最后一步:</b><br>
LB5000 MX 安装向导现在建立您的管理员账号。
<br>
<hr noshade color="#000000">
<br>
);
require "${lbdir}data/boardinfo.cgi";
$currenttime = time;
$blanks = "yes" if (!$membername);
$blanks = "yes" if (!$password_one);
$blanks = "yes" if (!$password_two);
if ($blanks) { print qq(<br><br><font color="#FF0000">请填写完所有选项,使用后退返回上一步。); print "</body></html>"; exit; }
if ($password_one ne $password_two)  { print qq(<br><br><font color="#FF0000">输入的两次密码不同,请返回上一步重新输入。); print "</body></html>"; exit; }
if(length($membername)<2)  { print qq(<br><br><font color="#ff0000">管理员用户名太短了!); print "</body></html>"; exit; }
if($membername =~ /^客人/) { print qq(<br><br><font color="#ff0000">管理员用户名不能为客人字样!);print "</body></html>";exit; }
if($membername =~ /_/) { print qq(<br><br><font color="#ff0000">请不要在管理员帐号名中使用下划线!); print "</body></html>";exit;}
if($membername =~ /\t/) { print qq(<br><br><font color="#ff0000">请不要在管理员帐号名中使用特殊字符!);print "</body></html>";exit; }
if(($password_one =~ /\t/)||($password_two =~ /\t/)) { print qq(<br><br><font color="#ff0000">请不要在密码中使用特殊字符!); print "</body></html>";exit;}
if(length($password_one)<6) { print qq(<br><br><font color="#ff0000">管理员密码太短了,请更换!密码必须 6 位以上!); print "</body></html>";exit;}
if ($password_one =~ /^[0-9]+$/) { print qq(<br><br><font color="#ff0000">管理员密码请不要全部为数字,请更换!); print "</body></html>";exit;}
if ($password_one =~ /[^a-zA-Z0-9]/) { print qq(<br><br><font color="#ff0000">管理员密码只允许大小写字母和数字的组合,请更换!); print "</body></html>";exit;}
opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/i, @files2);
$memdir = $memdir[0];
$memberfilename = $membername;
$memberfilename =~ y/ /_/;
       $memberfilename =~ tr/A-Z/a-z/;
$membersdir = "$lbdir" . "$memdir";
$filetomake = "$lbdir" . "$memdir/$memberfilename.cgi";
open (ADMIN, ">$filetomake");
print ADMIN "$membername\t$password_one\tmember\tad\t0\t$adminemail_in\tno\t保密\t\t\t\t\t\t$currenttime\t\t";
close (ADMIN);
   if (-e $filetomake) {
$filerequire = "$lbdir"."data/boardinfo.cgi";
if (-e $filerequire) {
}else {
print qq(
<font face="宋体" color="#FF0000">
<b>错误!不能够找到 $filerequire 文件!</b>
<br><br>
请检查 data 目录属性是否正确: $lbdir/data );
print "</body></html>"; exit;
}
print qq(
<font face="宋体" color="#000000">
<b>恭喜,您的 LB5000 MX 已经成功安装好了!</b>
<br><br>
现在,您可以<a href="admincenter.cgi?action=remove">进入管理中心</a>设置您的论坛。<br>从安全角度考虑,本自动安装程序将会被自动删除,以免您的论坛受到不安全的威胁!<br>
同时我们已经安装了两个论坛附加功能:<br>
1. LB5000 MX 论坛新新贴子,显示整个论坛的最新贴 ver 1.2<br>
############################################################################<br>
# 使用办法: allnews.cgi&maxlength=标题长度<br>
# 例: 在你主页的适当位置加入以下语句<br>
#      <script src="$boardurl/allnews.cgi&maxlength=20&display=1"></script><br>
#      这样就可以在相应位置显示整个论坛的最新贴,标题长度 20,显示发贴时间<br>
#                                            (display=0 表示不显示发贴时间)<br>
# <br>
#    对于显示贴子个数,请在 LB5000 MX 中的管理区设置<br>
#    所有参数均可以省略<br>
############################################################################<br>
2. LB5000 MX 分论坛新新贴子 ver 1.2<br>
###################################################################################<br>
# 使用办法: news.cgi?forum=分论坛号&max=显示几条贴子&maxlength=标题长度&display=1<br>
# 例: 在你主页的适当位置加入以下语句<br>
#      <script src="$boardurl/news.cgi?forum=1&max=10&maxlength=20"></script><br>
#      这样就可以在相应位置显示1号论坛的最新10个贴子,标题长度为 20,显示发贴时间<br>
#                                                   (display=0 表示不显示发贴时间)<br>
#      所有参数均可以省略<br>
###################################################################################<br>
3. LB5000 MX 分论坛精华贴子显示 ver 1.2<br>
###################################################################################<br>
# 使用办法: newsjh.cgi?forum=分论坛号<br>
# 例: 在你主页的适当位置加入以下语句<br>
#      <script src="newsjh.cgi?forum=1"></script><br>
#      这样就可以在相应位置显示1号论坛的最新20个贴子<br>
###################################################################################<br>
4. LB5000 MX 公告显示 ver 1.2<br>
###################################################################################<br>
# 使用办法: getanc.cgi<br>
# 例: 在你主页的适当位置加入以下语句<br>
#      <script src="getanc.cgi"></script><br>
#      这样就可以在相应位置显示论坛的最新公告<br>
###################################################################################<br>
<br><br>
还有8个附加功能存放在 addon 目录中,是<br>
1. bm2lb5000.cgi "UBB=>LB5000 MX 用户资料转换器"<br>
2. ubb2lb5000.cgi "bm=>LB5000 MX 用户数据转换 v0.2" <br>
3. yuzi2lb5000.cgi "yuzi BBS2000(3000)=>LB5000 MX 用户资料转换器"<br>
4. ys2lb5000.cgi "一山草堂 BBS=>LB5000 MX 用户资料转换器"<br>
5. yaBB2LB5000.cgi "YaBB=>LB5000 MX 用户资料转换器"<br>
6. bbs2lbt.cgi "yuzi BBS3000=>LB5000 MX 贴子资料转换器"<br>
7. ys2lbt.cgi "一山草堂 BBS=>LB5000 MX 贴子资料转换器"<br>
8. u2lbt.cgi  "UBB=>LB5000 MX 贴子资料转换器"<br>
);
   }
   else {
       print qq(
<font face="宋体" color="#FF0000">
<b>错误!不能够建立 admin 文件!</b>
<br><br>
请检查 $memdir 目录是否正确: $membersdir );
print "</body></html>"; exit;
   }
     $filetomake = "$lbdir" . "data/boardstats.cgi";
      
      
      
      open(FILE, ">$filetomake");
      print FILE "\$lastregisteredmember = \'$membername\'\;\n";
      print FILE "\$totalmembers = \'1\'\;\n";
      print FILE "\$totalthreads = \'0\'\;\n";
      print FILE "\$totalposts = \'0\'\;\n";
      print FILE "\n1\;";
      close (FILE);
print qq(
<br><br>
<hr noshade color="#000000">
<font face="宋体" color="#0000FF">
感谢你使用 LB5000 MX!</font>
<br><br>
<font face="宋体" color="#000000">
我们希望安装向导对您安装本论坛是有帮助的。<br>
如果您还有其他问题,请参观 <a href="http://www.cgier.com/"><b>CGI 编程者之家</b></a> 的论坛,本站提供 LB5000 MX 的完全技术支持!
<br><br>
);
} # end final step   
   
           else {
   if ($ENV{'SERVER_SOFTWARE'} =~ /apache/i) {
       if ($ENV{'SCRIPT_FILENAME'}=~ /cgiwrap/i) {
           $temp=$ENV{'PATH_TRANSLATED'};
       }
       else {
           $temp=$ENV{'SCRIPT_FILENAME'};
       }
       $temp=~ s/\\/\//g if ($temp=~/\\/);
       $mypath=substr($temp,0,rindex($temp,"/"));
   }
   else {
       $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
       $mypath=~ s/\\/\//g;
   }
   $server_port = ":$ENV{'SERVER_PORT'}" if ($ENV{'SERVER_PORT'} ne '80');
   if ($ENV{'HTTP_HOST'} ne "") { $fullurl = $ENV{'HTTP_HOST'}; } else { $fullurl = $ENV{'SERVER_NAME'}; }
   $fullurl     = "http://$fullurl$server_port$ENV{'SCRIPT_NAME'}";
   $myurl       = substr($fullurl,0,rindex($fullurl,"/"));
   $website_url = "http://$ENV{'HTTP_HOST'}";
   
   $html_dir = "";
   $html_url = "";
if ($mypath =~ m|(.*)/(.+)|) {
  $base = $1;
} else {
  $base = $mypath;
}
if ($myurl =~ m|(.*)/(.+)|) {
  $base1 = $1;
} else {
  $base1 = $myurl;
}
$base1 =~ s/\/cgi-bin//;
if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; }
if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; }
if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; }
if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$base1/lb"; }
if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; }
if ($html_dir eq "") {
if ($base =~ m|(.*)/(.+)|) {
  $base = $1;
}
if ($base1 =~ m|(.*)/(.+)|) {
  $base1 = $1;
} else {
  $base1 = $base1;
}
$base1 =~ s/\/cgi-bin//;
if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; }
if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; }
if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; }
if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$base1/lb"; }
if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; }
}
if ($html_dir eq "") {
       if ($ENV{'DOCUMENT_ROOT'} ne "") {
       $base = $ENV{'DOCUMENT_ROOT'};
if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$website_url/non-cgi"; }
if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$website_url/lb5000"; }
if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$website_url/ib2000"; }
if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$website_url/lb"; }
if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$website_url/bbs"; }
   }
}
if (-e "C:/" || $^O eq "MSWin32") { $OS_USED = 'NT'; }
$adminemail_in = "incoming\@yourdomain.com";
$adminemail_out = "outgoing\@yourdomain.com";
$timezone_choice = "<select name=\"timezone\"><option value=\"-23\">- 23<option value=\"-22\">- 22<option value=\"-21\">- 21<option value=\"-20\">- 20<option value=\"-19\">- 19<option value=\"-18\">- 18<option value=\"-17\">- 17<option value=\"-16\">- 16<option value=\"-15\">- 15<option value=\"-14\">- 14<option value=\"-13\">- 13<option value=\"-12\">- 12<option value=\"-11\">- 11<option value=\"-10\">- 10<option value=\"-9\">- 9<option value=\"-8\">- 8<option value=\"-7\">- 7<option value=\"-6\">- 6<option value=\"-5\">- 5<option value=\"-4\">- 4<option value=\"-3\">- 3<option value=\"-2\">- 2<option value=\"-1\">- 1<option value=\"0\" selected>0<option value=\"1\">+ 1<option value=\"2\">+ 2<option value=\"3\">+ 3<option value=\"4\">+ 4<option value=\"5\">+ 5<option value=\"6\">+ 6<option value=\"7\">+ 7<option value=\"8\">+ 8<option value=\"9\">+ 9<option value=\"10\">+ 10<option value=\"11\">+ 11<option value=\"12\">+ 12<option value=\"13\">+ 13<option value=\"14\">+ 14<option value=\"15\">+ 15<option value=\"16\">+ 16<option value=\"17\">+ 17<option value=\"18\">+ 18<option value=\"19\">+ 19<option value=\"20\">+ 20<option value=\"21\">+ 21<option value=\"22\">+ 22<option value=\"23\">+ 23</select>";
$time_is_now = localtime;
$website_url = "http://$ENV{'HTTP_HOST'}";
$mailprogram = &mailprogram;  #自动测试 Sendmail 路径
                   print qq~
   <form action="$thisprog" method="post">
   <input type="hidden" name="action" value="step_two">
   <font size="5" face="宋体" color="#000000">
   <h1>LB5000 MX 安装向导</b></font></h1><font face="宋体" color="#000000">
   程序编制:<a href="mailto:webmaster\@cgier.com">山鹰糊</a> 参与制作:<a href="mailto:info\@cgier.net">花无缺</a><BR>
       版权所有:<a href="http://www.cgier.com/">CGI 编程者之家</a></font>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>欢迎使用 LB5000 MX 安装向导!</b>
   <br><br>
   <b>第一步:</b> 在递交表单前,请仔细查看整个下面的内容指示,并检查自动提供的数据是否正确!<br>
   当你递交表单后,本安装向导会检测所有你输入的数据,如果数据输入错误,将会有详细的提示!<br><br>
   <b>在执行本程序下一步之前,请确定你已经把本程序完整上传,并已经将所有文件的属性设置正确了!</b><br><br>
   下面的所有设置数据都可以在 LB5000 MX 的管理中心中重新设置。为了安全起见,本程序在成功完成设置任务后,将会自毁。
   如果你希望重新利用本程序来设置的话,请重新上传运行本程序。</font><br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>请选择运行本程序的操作系统平台用于文件加锁</b><br>
   如果你是 Windows 系列的主机,请千万不要选成 Unix,否则会有意想不到的错误发生!<BR>
   文件加锁可以有效的防止贴子数据丢失等问题,但会影响速度,请自己衡量!<br>
   <br>
   <select name="OS_USED">
   <option value="NT" selected>Windows 系列
   <option value="Unix">Unix 系列
   <option value="No">不加锁
   </select>
   <br>
   <br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>文件路径设置</b><br><br>
   下面的默认设置仅仅适用于大部分安装本程序的客户,不是所有的客户都适用。如果有错误,请自行修改成正确的值。<font color="#FF0000"><br>
   请仔细检查所有的设置,如果你对这些设置有任何的疑问,请询问你的主机提供商!</font><br><br>
   <font color="#FF0000">如果你使用的是 Windows 系列操作系统,请使用除号来代替反斜杠(比如:c:/path/to/lb5000/)!
   <br><br><font color="#000000"><b>设置时请务必在路径的最后加上除号 '/'。</b>
   <br><br>
   <font face="宋体" color="#0000FF">
   <b>设置 *.cgi 脚本的安装路径。</b></font><br>
   <font face="宋体" color="#000000">
   在这里设置的是安装“路径”,不是 URL,所以它肯定<B>不是</B> 'http://' 开头的。<br>
   这个位置包含了所有 LB5000 MX 中的 *.cgi 文件。
   要注意,下列目录程序会自动建立。
   <ul>
   <li>data
   <li>members
   <li>messages
   </ul>
   <input type="text" size="70" name="lbdir" value="$mypath/">
   
   <br><br><br>
   <font face="宋体" color="#0000FF">
   <b>设置 image 图像文件的安装路径。</b></font><br><br>
   <font face="宋体" color="#000000">
   在这里设置的是安装“路径”,不是 URL,所以它肯定<B>不是</B> 'http://' 开头的。<br>
   这个位置包含了所有 LB5000 MX 中的图像文件。
   要注意,下列目录程序会自动建立。
   <ul>
   <li>images
   <li>avatars
   <li>usravatars
   </ul>
   <b>请注意,<B>不要</B>在路径的最后加 'images/' !</b><BR><BR>
   
   <input type="text" size="70" name="imagesdir" value="$html_dir/">
   <br><BR>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>设置你网站的 URL 路径</b><br><br>
   下面的默认设置仅仅适用于大部分安装本程序的客户,不是所有的客户都适用。如果有错误,请自行修改成正确的值。<font color="#FF0000"><br>
   请仔细检查所有的设置,如果你对这些设置有任何的疑问,请询问你的主机提供商!</font><br><br>
   <b>请不要在每个 URL 地址结尾加反斜杠 '/' !</b>
   <br><br>
   <font face="宋体" color="#0000FF">
   <b>设置图片文件 URL 路径。</b></font><br>
   <font face="宋体" color="#000000">
   这里是 URL 路径。<b>必须</b>以 'http://' 开始。<br>
   这个路径包含了所有的 LB5000 MX 图片。
   <br><br>
   <input type="text" size="70" name="imagesurl" value="$html_url">
   <br><br><br>
   
   <font face="宋体" color="#0000FF">
   <b>设置您主页的 URL 地址。</b></font><br>
   <font face="宋体" color="#000000">
   这里是 URL 路径。<b>必须</b>以 'http://' 开始。<br>
   简单的说,就是你在浏览器上输入的访问你主页的地址。
   <br><br>
   <input type="text" size="70" name="homeurl" value="$website_url">
   <br><br><br>
   <font face="宋体" color="#0000FF">
   <b>LB5000 MX 的 URL 路径。</b></font><br>
   <font face="宋体" color="#000000">
   这里是 URL 路径。<b>必须</b>以 'http://' 开始。<br>
   <b>请不要在结尾加 CGI 文件名。这里是目录地址,不是文件地址。</b>
   <br><br>
   <input type="text" size="70" name="boardurl" value="$myurl"><br><br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>个性化图片和表情自动转换</b><br><br>
   <font face="宋体" color="#000000">
   使用个性化图片,每个用户将拥有有自己特色的头像。<br>
   字符自动转换,会自动将输入的表情字符自动转换成图片形式(如输入  将自动转换成图片形式)。
   <br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>你是否使用个性化图片?</b></font><br>
   <font face="宋体" color="#000000">
   <br>
   <select name="avatars">
   <option value="on" selected>使用
   <option value="off">不使用
   </select>
   <br>
   <br><br>
   <font face="宋体" color="#0000FF">
   <b>您是否使用表情自动转换?</b></font><br>
   <font face="宋体" color="#000000">
   <br>
   <select name="emoticons">
   <option value="on" selected>使用
   <option value="off">不使用
   </select><br><br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>邮件功能</b><br><br>
   下面的默认设置仅仅适用于大部分安装本程序的客户,不是所有的客户都适用。如果有错误,请自行修改成正确的值。<br><font color="#FF0000">
   请仔细检查所有的设置,如果你对这些设置有任何的疑问,请询问你的主机提供商!</font>
   <br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>您是否希望在论坛上使用邮件功能?</b></font><br>
   <font face="宋体" color="#000000">
   <br>
   <select name="emailfunctions">
   <option value="off">关闭邮件功能
   <option value="on" selected>使用邮件功能
   </select>
   <br><br><br>
   <font face="宋体" color="#0000FF">
   <b>您使用何种邮件发送协议?</b></font><br>
   <font face="宋体" color="#000000">
   Unix 类主机请选择 Sendmail,Windows 类主机请选择 SMTP 或者 ESMTP,如果你的主机采用了是 Blat 邮件发送程序,那么请选择 Blat。
   <br><BR>
   <select name="emailtype">
   <option value="smtp_mail" selected>SMTP
   <option value="esmtp_mail">ESMTP
   <option value="send_mail">Sendmail
   <option value="blat_mail">Blat
   </select>
   <br><br><br>
   <font face="宋体" color="#0000FF">
   <b>Sendmail 路径(只有当你选择了 Sendmail 来发信此项才有效)。</b></font><br><br>
   <input type=text size="60" name="SEND_MAIL" value="$mailprogram">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>SMTP 服务器(只有当你选择了 SMTP 或 ESMTP 来发信,此项才有效)。</b></font><br><br>
   <input type=text size="60" name="SMTP_SERVER" value="localhost">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>SMTP 的端口(只有当你选择了 SMTP 或 ESMTP 来发信此项才有效)。</b></font><br><br>
   <input type=text size="60" name="SMTP_PORT" value="$SMTP_PORT">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>ESMTP 的用户名(只有当你选择了 ESMTP 来发信此项才有效)。</b></font><br><br>
   <input type=text size="60" name="SMTPUSER" value="$SMTPUSER">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>ESMTP 的密码(只有当你选择了 ESMTP 来发信此项才有效)。</b></font><br><br>
   <input type=text size="60" name="SMTPPASS" value="$SMTPPASS">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>您的发送邮件地址。</b></font><br><br>
   <input type=text size="60" name="adminemail_in" value="$adminemail_in">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>您的接收邮件地址。</b></font><br><br>
   <input type=text size="60" name="adminemail_out" value="$adminemail_out">
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>您是否希望使用邮件来发送用户在论坛中的密码?</b></font><br>
   <font face="宋体" color="#000000">
   如果你发送邮件是有问题的话,那么请务必不要使用这个功能!!
   <br><br>
   <select name="passwordverification">
   <option value="no" selected>不要
   <option value="yes" >需要
   </select><br><br><br>
   
   <font face="宋体" color="#0000FF">
   <b>有新用户注册是否用邮件通知您?</b></font>
   <br><br>
   <select name="newusernotify">
   <option value="no">不要
   <option value="yes" selected>需要
   </select><br><br>
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>您论坛的详细资料</b><br><br>
   这里将询问您的 LB5000 MX 论坛的一些详细资料。</font>
   <br>
   
   <br>
   <font face="宋体" color="#0000FF">
   <b>论坛名称</b></font><br>
   <input type=text size="60" name="boardname" value="CGI 编程者之家的论坛">
   <br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>论坛描述</b></font><br>
   <input type=text size="60" name="boarddescription" value="我的 LB5000 MX 论坛,好酷酷 :)">
   <br><br>
   <font face="宋体" color="#0000FF">
   <b>您的版权信息</b><br>这里不需要加 '&copy;\;',程序会自动产生。<br>
   &copy;\;</font><input type=text size="58" name="copyrightinfo" value="中文版权所有: <a href=http://www.cgier.com>CGI 编程者之家</a>">
   <br><br>
   <font face="宋体" color="#0000FF">
   <b>您的主页名称</b></font><br>
   <input type=text size="60" name="homename" value="CGI 编程者之家">
   <br><br><br>
   <font face="宋体" color="#0000FF">
   <b>是否采用灌水预防机制?</b></font><br>
   <font face="宋体" color="#000000">
   灌水预防机制将控制您的用户在一定的时间内不能重复发贴。 避免了一些用户为了升级而进行的灌水。<BR>
   但这个功能不会影响论坛的坛主和版主的连续发贴。
   <br>
   <br>
   <select name="floodcontrol">
   <option value="off">关闭灌水预防机制
   <option value="on" selected>打开灌水预防机制
   </select>
   <br><br>
   
   <br>
   <font face="宋体" color="#0000FF">
   <b>用户发言相隔时间(只有当灌水预防机制启动后,此项才有效)。</b></font><br>
   <input type=text size="10" name="floodcontrollimit" value="30">   秒
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>服务器时差设置</b></font><br>
   <font face="宋体" color="#000000">
   您的服务器现在时间是 $time_is_now。如果不正确,请使用下面的表单来改变服务器时差。
   <br>
   <br>
   $timezone_choice 小时
   <br><br>
   <br>
   <font face="宋体" color="#0000FF">
   <b>您所在的时区</b></font><br><br>
   <input type=text size="60" name="basetimes" value="北京时间">
   <br><br>
   <input type=hidden name="announcements" value="yes">
       <input type=hidden name="addtype" value="gif,jpg,bmp,zip,png,swf,doc,txt,htm,html">
               
   <hr noshade color="#000000">
   <br>
   <font face="宋体" color="#000000">
   <b>请仔细检查上面您输入的信息</b><br>
   </font>
   <br>
   
   <input type=submit value="OK,进入下一步">
   </form>~;
   }
   print "</body></html>";
   exit(0);
sub check { local ($dr) = @_; return 0 if $dr eq ""; if (-e "$dr/$prog") { $true_path = $dr; return 1; } }
sub mailprogram
{
   $mailprogram='/usr/sbin/sendmail';
   if (!(-e $mailprogram)) {$mailprogram='/usr/bin/sendmail';}
   if (!(-e $mailprogram)) {$mailprogram='/bin/sendmail';}
   if (!(-e $mailprogram)) {$mailprogram='/lib/sendmail';}
   if (!(-e $mailprogram)) {$mailprogram='/usr/slib/sendmail';}
   if (!(-e $mailprogram)) {$mailprogram='sendmail';}
   if (!(-e $mailprogram)) {$mailprogram='/usr/lib/sendmail';};
   if (!(-e $mailprogram)) {$mailprogram='perlmail';};
   if (!(-e $mailprogram)) {$mailprogram="没有找到 Sendmail 路径,可能你的主机不支持";};
   return $mailprogram;
}
sub chmodfiles {
opendir (FILE, ".");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
next if (($_ eq ".")||($_ eq "..")||$_ eq "install.cgi");
chmod(0755,"./$_") if ($_ !~/forum/isg);
}
chmod(0755,"./forums.cgi");
chmod(0755,"./shareforums.cgi");
chmod(0755,"./forumoptions.cgi");
chmod(0755,"./setforums.cgi");
chmod(0777,"data");
chmod(0777,"help");
chmod(0777,"$memdir");
chmod(0777,"memfav");
chmod(0777,"memfriend");
chmod(0777,"backup");
chmod(0777,"lock");
chmod(0777,"forumdata");
chmod(0777,"$msgdir");
chmod(0777,"search");
chmod(0777,"Archive");
opendir (FILE, "./data");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   chmod(0777,"data/$_");
}
opendir (FILE, "./data/skin");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   chmod(0777,"data/skin/$_");
}
opendir (FILE, "./Archive");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   chmod(0777,"Archive/$_");
}
opendir (FILE, "./URI");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   chmod(0777,"URI/$_");
}
opendir (FILE, "./$msgdir");
@filename = readdir(FILE);
closedir (FILE);
foreach (@filename) {
   chmod(0777,"$msgdir/$_");
}
}

sub lbagent {
   my $out="";
   my $url=shift;
   $url =~ m@http://(.*?)/(.*)@;
   my ($host,$path) = ($1,$2);
   my $port = 80;
   if ($host =~ /(.*):(\d+)/) { $host = $1; $port = $2; }
   my $file;
   if ($path =~ m@.*/(.*)@) { $file = $1; } else { $file = $path; }
   my ($name,$aliases,$addrtype,$len,@addrs) = gethostbyname($host);
   my ($a,$b,$c,$d) = unpack("C4",$addrs[0]);
   my $that = pack('S n C4 x8',2,$port,$a,$b,$c,$d);
   select (sock);
   $|=1;
   select (STDOUT);
   socket(sock,2,1,0);
   my $result = connect(sock,$that);
   if ($result != 1) { $out="error!"; }
   else {
print sock "GET /$path HTTP/1.1\r\n";
print sock "Host: $host\r\n";
print sock "Accept: */*\r\n";
print sock "User-Agent: LeoBoard Agent 1.1\r\n";
print sock "Pragma: no-cache\r\n";
print sock "Cache-Control: no-cache\r\n";
print sock "Connection: close\r\n";
print sock "\r\n";
my @out = <sock>;
foreach (@out){
   $out=$out.$_;
}
close(sock);
   }
   return $out;
}

我在WIN2K和XP下安装ISS、CGI解释器都试过,还是不行?

请指教~~  
回复

使用道具 举报

68#
发表于 2003-9-18 14:50:34 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!


小龙虾,谢谢你的文章,我按照你说的一步步做了,到
一切OK,但是下面我进不去我的论坛

>> 欢迎您,客人: 登录 | 注册 | 忘记密码 | 在线 | 搜索 | 帮助   

  朋友一家论坛
  错误: 论坛还没建立

错误: 论坛还没建立
关于论坛还没建立错误的详细原因:
请先在管理区建立分论坛!或者分类信息完全丢失,请坛主到管理区重建论坛主界面!
您是否需要查看帮助文件?
产生论坛还没建立错误的可能原因:
密码错误
用户名错误
您不是注册用户

<< 返回上一页

--------------------------------------------------------------------------------
&copy; 中文版权所有: CGI 编程者之家  版本: LB5000XP v0830
版权所有: CGI 编程者之家    程序编制: 山鹰(糊)、 花无缺
本论坛言论纯属发表者个人意见,与 朋友一家论坛 立场无关

是不是我需要去申请一个空间????
我是一只小小小小鸟,很菜的问题,希望有空回答我,谢了!!



回复

使用道具 举报

67#
发表于 2003-7-23 14:08:28 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

无忧社区暂不提供 FTP 的相关服务~!
回复

使用道具 举报

66#
发表于 2003-7-22 17:31:17 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

论坛的FTP账号在那里?
回复

使用道具 举报

65#
发表于 2003-6-10 09:54:44 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

下面引用由hongze2003/06/08 05:36am 发表的内容:
哪里有论坛银行和赛马,彩票什么的插件啊?》老大

关于插件的问题,请你不要在这里提问,自己去找吧。
回复

使用道具 举报

64#
发表于 2003-6-9 21:02:11 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

[这个贴子最后由小虾皮在 2003/06/10 09:53am 第 1 次编辑]

楼上的、再叫××××……空间供应商不许安装插件的。

(在此屏蔽几个字,小康要注意了,呵呵,这样不太好~!—小虾皮注)
回复

使用道具 举报

63#
发表于 2003-6-8 05:36:36 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

哪里有论坛银行和赛马,彩票什么的插件啊?》老大
回复

使用道具 举报

62#
发表于 2003-6-4 13:41:35 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

下面引用由hehehaha2003/06/03 10:04am 发表的内容:
虾哥哥,请问在哪里修改诸如…………

1.关于“修改注册等待时间、id允许中文等等这些设定”的问题,我现在还不知道如何实现(这些日子工作太忙了,没有时间去研究这个了,你问一下其他版主吧,不好意思了);
2.关于“如果我想重新安装论坛,想把以前论坛的那些东西放到新论坛去”的问题,请你参看本版精华区《 LB5000 论坛转移经验谈》及《LB5000论坛转移经验谈(补)》二贴,一定会对你有帮助~!。
回复

使用道具 举报

61#
发表于 2003-6-3 10:04:55 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

[这个贴子最后由hehehaha在 2003/06/03 11:15am 第 1 次编辑]

虾哥哥,请问在哪里修改诸如注册等待时间、id允许中文等等这些设定呢?
我找不到:(  
还有,如果我想重新安装论坛,想把以前论坛的那些东西放到新论坛去,应该怎么做呢?
是通过备份吗?那怎么加载呢?
  谢谢你哟
回复

使用道具 举报

60#
发表于 2003-5-30 09:41:34 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

请参看本板块置顶帖子的相关说明。
回复

使用道具 举报

59#
发表于 2003-5-29 19:39:38 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

我的也是这种情况,MX1.90版和XP2.0版同样有这个错误
回复

使用道具 举报

58#
发表于 2003-5-26 13:11:59 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

LB5000 MX 安装向导
程序编制:山鹰糊 参与制作:花无缺
版权所有:CGI 编程者之家
--------------------------------------------------------------------------------
欢迎使用 LB5000 MX 安装向导!
最后一步:
LB5000 MX 安装向导现在建立您的管理员账号。
--------------------------------------------------------------------------------
错误!不能够建立 admin 文件!
请检查 目录是否正确: C:/apache/htdocs/cgi-bin/lb5000/
回复

使用道具 举报

57#
发表于 2003-5-26 09:41:58 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

这个文档是你的操作系统自带的,和你的论坛程序没有关系!删掉也可以。
回复

使用道具 举报

56#
发表于 2003-5-22 12:13:39 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

我照你写的一步一步做的,可怎么试也出现不了LB5000的安装画面.我检查了几次设置步骤,确实没有错.最后我发现在我的wwwroot目录里面比你的多了两个活动服务器文档.我用Microsoft Frontpage打开出现:
  您目前没有为用户设置默认文档。 任何尝试连接此站的用户都会收到“正在创建的页”。
欢迎使用 IIS 5.0
Microsoft Windows 2000 的 Internet 信息服务 (IIS) 给 Windows 带来 Web 计算的强大功能。 通过 IIS,您可以轻松地共享文件和打印 并为安全发布信息创建应用程序来改善您的工作。 IIS 是创建和开发电子商务业解决方案的安全平台。 IIS 也会可以轻松地将任务准则应用程序带给 Web。
含 IIS 的 Windows 2000 可以满足您以下的需要:
设置个人 Web 服务器。
在您的组内共享信息。
访问数据库。
创建一个企业 Intranet。
由于 IIS 的集成是基于 Windows 的 Internet 标准,因此使用 Web 不需要重新学习发布,管理或开发。
含有 Internet 信息服务的 Windows 2000 是在 Web 上共享信息并运行强大的应用程序的最简单的方法。
集成的管理
您可以通过 Windows 2000 计算机管理控制台,或通过脚本来管理 IIS。假如您已经安装了 Windows 2000 服务器或 Windows 2000 高级服务器, 管理 Web 站点管理 Web 站点 也可以用来管理 IIS。
如配置多数常用的 IIS 设置一样,您也可以在目录上单击右键, 并可以通过 Web 共享其内容。
联机文档
得奖的 IIS 的联机文档包含索引, 完整文字搜索,和按节点或单个的主题打印:
获得工作帮助。
学习服务器操作。
参阅参考资料。
查看代码示例。
  
Web 打印
Windows 2000 在一个易于访问的 Web 站点上动态地列出您的服务器上的所有打印机。您可以浏览该站点监视打印机及其工作情况。您也可以从任何 Windows 计算机通过此站点连接到打印机。
的提示.请问一下是不是这里的毛病?怎么解决?谢谢先~
  



回复

使用道具 举报

55#
发表于 2003-5-20 13:14:54 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

首先需要说明的是,你问的这两个问题所涉及的功能在 LB 论坛的 XP 版里才具有,本论坛采用的 MX 版本并不具有这样的功能~!
1.在个人用户资料(前提是你赋予了用户自己修改“江湖门派”的权限)和管理中心的用户管理中均可修改这个选项;
2.在 XP 0830 后的版本中可以在分论坛中再建立分论坛,0830 以前的版本需要修改相关文件才可实现这个功能。
回复

使用道具 举报

54#
发表于 2003-5-19 13:10:38 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

再请教两个问题:
1.能不能修改江湖门派?在哪修改?
2.分论坛中能不能再分论坛?
请指教!
回复

使用道具 举报

53#
发表于 2003-5-19 11:08:00 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

谢谢!不过昨天我已移完了!下次会了!
回复

使用道具 举报

52#
发表于 2003-5-19 10:08:39 | 只看该作者

[注意]凡是论坛方面的问题,请在这里跟贴提问,谢谢!

下面引用由若兰2003/05/18 09:52pm 发表的内容:
哎!24小时也等不来呀!我还是一个一个移吧!
晕~!你在管理中心看看,有论坛合并功能的;另外,你在论坛页面里可以批量移动帖子的啊~!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2026-1-12 13:26

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表