<html>
<script Language="JavaScript">
function fucCheckNUM(NUM)
{
 var i,j,strTemp;
 strTemp="0123456789";
 if ( NUM.length== 0)
  return 0
 for (i=0;i<NUM.length;i++)
 {
  j=strTemp.indexOf(NUM.charAt(i)); 
  if (j==-1)
  {
   return 0;
  }
 }
 return 1;
}
 function form_check(){
   if(document.form2.url.value==""){window.alert("主页URL");document.form2.url.focus();return (false);}
   if(document.form2.path.value==""){window.alert("主页绝对地址不能为空");document.form2.path.focus();return (false);}
   if(document.form2.homename.value==""){window.alert("系统名称不能为空");document.form2.homename.focus();return (false);}
   if(document.form2.pagecount.value==""){window.alert("刷新频率不能为空");document.form2.pagecount.focus();return (false);}
   if(fucCheckNUM(document.form2.pagecount.value)==0){window.alert("在刷新频率中请输入数字");document.form2.pagecount.focus();return false;}
                   }
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/global.css">

<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body topmargin="0" leftmargin="0">
<%
   Dim RedDoCGw
   Set RedDoCGw = Server.CreateObject("REDOA_GWManager.clsBasepara") 
   RedDoCGw.fnBasepara
   Set RedDoCGw = Nothing
%>
</body>
</html>
