createdbrc_1.pl

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

# --- Feld conttyp1 pr黤en -----------------------------------------------
sub Check_DbRc_DbDriver()
{
   &AddError("DbDriver", "No Driver, please select!!")
       if(!&GetField("DbDriver"));
}



sub MyBtnNext ()
{
   &CheckRecord();

   if(!&GetField("DbDriver"))
   {
      &GenPage();
   }
   else
   {
      &SessionIdSaveState("CreateDbRc_1,DbDriver", &GetField("DbDriver"));

      print &Redirect(&GetAttr("SessionId"),
                      "WWWdb:Wiz:CreateDbRc" . &GetField("DbDriver") . "_2");
   }
}