wwwdb_state.pl

来自「使用perl和C写的基于Web的管理数据库表的程序」· PL 代码 · 共 47 行

sub PreCreateForm ()
{
   if(!&SessionIdGetState("ActualLogin") ||
      !&SessionIdGetState("IsAdmin"))
   {
      &OkForm("ERROR",
              sprintf(i18n("Sorry, please %s first as WWWdb-admin!"),
                      "<A HREF=" .
                      &CreateReference(&GetAttr("SessionId"),
                                       "Login") .
                      ">" .
                      i18n("login") .
                      "</A>"),
              "BtnExit");
      &MyExit();
   }

   &SetField("session_id", &GetAttr("SessionId"));

}

sub Check_wwwdb_state_key()
{
   &AddError("key", "Please enter a valid key!!")
       if(!&GetField("key"));
}




sub PreBtnQry ()
{

   &SetField("session_id", &GetAttr("SessionId"));

}


sub PreBtnNew ()
{
   &SetField("session_id", &GetAttr("SessionId"));
}


1;