1.asp

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

ASP
2,314 行
字号
12345
  {
    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("在 t7 域中，只能输入 数字 个字符。");
    theForm.t7.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t39.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("在 t39 域中，只能输入 数字 个字符。");
    theForm.t39.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t8.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("在 t8 域中，只能输入 数字 个字符。");
    theForm.t8.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t9.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("在 t9 域中，只能输入 数字 个字符。");
    theForm.t9.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t10.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("在 t10 域中，只能输入 数字 个字符。");
    theForm.t10.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t11.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("在 t11 域中，只能输入 数字 个字符。");
    theForm.t11.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t12.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("在 t12 域中，只能输入 数字 个字符。");
    theForm.t12.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t13.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("在 t13 域中，只能输入 数字 个字符。");
    theForm.t13.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t14.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("在 t14 域中，只能输入 数字 个字符。");
    theForm.t14.focus();
    return (false);
  }

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

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

  var checkOK = "0123456789-.,";
  var checkStr = theForm.t15.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("在 t15 域中，只能输入 数字 个字符。");
    theForm.t15.focus();
    return (false);
  }

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

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

1.asp - 源码说明

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

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

⌨️ 快捷键说明

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