出来后是白屏.不管怎么弄这是.大大能解答一下吗.
我用的LITESERVE+PERL.运行网络大航海也没问题,
可是为什么白屏呢?难道是日文没翻译的关系?
[問題]商人物语index.cgi显示不正常.出来后是白屏.不管怎么弄这是.大大能解答一下吗.
我用的LITESERVE+PERL.运行网络大航海也没问题, 可是为什么白屏呢?难道是日文没翻译的关系?
#!/usr/bin/perl
# トップ画面 2004/01/20 由來 require './_config.cgi'; RequireFile('inc-func.cgi'); RequireFile('inc-version.cgi'); Turn(); GetQuery(); GetCookie(); SetCookieSession(); DataRead(); $username=$Q{nm} ? $Q{nm} : $COOKIE{USERNAME}; $password=$Q{pw} ? $Q{pw} : $COOKIE{PASSWORD}; $lform=""; if (!$MOBILE) { $lform.=GetTagA('【新規店舗オープン】<small>残り'.($MAX_USER-$DTusercount).'名様</small>',"action.cgi?key=new") if $MAX_USER>$DTusercount; $lform.='【新規店舗オープン】<small>現在満員</small>' if $MAX_USER<=$DTusercount; $lform.=($MAX_MOVE_USER>$DTusercount)?('<small>(移転:残り'.($MAX_MOVE_USER-$DTusercount).'名様)</small>'):('<small>(移転:現在満員)</small>') if $MOVETOWN_ENABLE; $lform.="<br>"; } $DISP{MENU} =~ s/#SKINNEW#/$lform/; $DISP{MENU} =~ s/#SKINNAME#/$username/; $DISP{MENU} =~ s/#SKINPW#/$password/; $DISP{MENU} =~ s/#SKINCOMMENT#/$TITLE_COMMENT/; $DT={}; $DT->{id}=-1; $GUEST_USER=1; RequireFile('inc-html-top.cgi') if (!$MOBILE); $DISP{BOTTOM} =~ s/#SKINVER#/$BASE_VERSION/; $DISP{BOTTOM} =~ s/#SKINEDIT#/$ITEM_VERSION/; $DISP{BOTTOM} =~ s/#SKINMAIL#/$ADMIN_EMAIL/; OutSkin(); exit; sub GetCookie { foreach(split(/\s*;\s*/,$ENV{HTTP_COOKIE})) { @_=split(/=/); $COOKIE{$_[0]}=$_[1]; next if $_[0] ne 'shop'; foreach(split(/,/,$_[1])) { @_=split(/:/); $COOKIE{$_[0]}=$_[1]; } } } 这是我的index.cgi文件. |
正在瀏覽這個版面的使用者:沒有註冊會員 和 14 位訪客