📄 zysoft_basepara.asp

📁 搭建智元软件公文传输系统运行环境(搭建智元软件公文传输系统运行环境转载)

💻 ASP

字号:

<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 ZYDocCom
   Set ZYDocCom = Server.CreateObject("ZYCom_DOCManager.clsBasepara") 
   ZYDocCom.fnBasepara
   Set ZYDocCom = Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -