1_1.asp

来自「《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-200」· ASP 代码 · 共 2,362 行 · 第 1/5 页

ASP
2,362 行
字号
12345
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t16 域中输入一个有效数字。");
    theForm.t16.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t16 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t16.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t17.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t17 域中，只能输入 数字 个字符。");
    theForm.t17.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t17 域中输入一个有效数字。");
    theForm.t17.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t17 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t17.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t18.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t18 域中，只能输入 数字 个字符。");
    theForm.t18.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t18 域中输入一个有效数字。");
    theForm.t18.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t18 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t18.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t19.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t19 域中，只能输入 数字 个字符。");
    theForm.t19.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t19 域中输入一个有效数字。");
    theForm.t19.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t19 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t19.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t20.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t20 域中，只能输入 数字 个字符。");
    theForm.t20.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t20 域中输入一个有效数字。");
    theForm.t20.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t20 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t20.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t21.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t21 域中，只能输入 数字 个字符。");
    theForm.t21.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t21 域中输入一个有效数字。");
    theForm.t21.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
  {
    alert("请在 t21 域中输入值 大于或等于 0 与 小于或等于 100。");
    theForm.t21.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t32.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t32 域中，只能输入 数字 个字符。");
    theForm.t32.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t32 域中输入一个有效数字。");
    theForm.t32.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "0" && prsVal <= "50000"))
  {
    alert("请在 t32 域中输入值 大于或等于 0 与 小于或等于 50000。");
    theForm.t32.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t22.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t22 域中，只能输入 数字 个字符。");
    theForm.t22.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t22 域中输入一个有效数字。");
    theForm.t22.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "1" && prsVal <= "100"))
  {
    alert("请在 t22 域中输入值 大于或等于 1 与 小于或等于 100。");
    theForm.t22.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t23.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t23 域中，只能输入 数字 个字符。");
    theForm.t23.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t23 域中输入一个有效数字。");
    theForm.t23.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "10" && prsVal <= "100"))
  {
    alert("请在 t23 域中输入值 大于或等于 10 与 小于或等于 100。");
    theForm.t23.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t24.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t24 域中，只能输入 数字 个字符。");
    theForm.t24.focus();
    return (false);
  }

  if (decPoints > 1)
  {
    alert("请在 t24 域中输入一个有效数字。");
    theForm.t24.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "100" && prsVal <= "2000"))
  {
    alert("请在 t24 域中输入值 大于或等于 100 与 小于或等于 2000。");
    theForm.t24.focus();
    return (false);
  }

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t25.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    if (ch == ".")
    {
      allNum += ".";
      decPoints++;
    }
    else if (ch != ",")
      allNum += ch;
  }
  if (!allValid)
  {
    alert("在 t25 域中，只能输入 数字 个字符。");
    theForm.t25.focus();
    return (false);
  }
12345

1_1.asp - 源码说明

本页面展示了「《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-2004进行开发而成。适用于油田、长输管道圆筒型管式加热炉（包括丁头管、翅片管）的热力计算、水力计算、阻力计算及强度计算。」中的 1_1.asp 源码文件，采用 ASP 编程语言编写，共 2,362 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与管式加热炉相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?