📄 3.asp

📁 《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-2004进行开发而成。适用于油田、长输管道圆筒型管式加热炉（包括丁头管、翅片管）的热力计算、水力计算、阻力计算及强度计算。
💻 ASP
字号:
<!--#include file="dbconn.asp"-->
<!--#include file="inc/checkchange.inc"-->
<!--#include file="inc/QZF.CSS"-->
<!--#include file="3_01.asp"-->

<% 
th=Session.Contents("th")
if th="00" then 
response.write"<p align='center'><a href='index.asp'><font color='#000064'>请输入设计号！&gt;&gt;&gt;</font> </a></p>" 
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql ="select * from 1 where (th='"&th&"')"
rs.open sql,conn,1,3
IF  rs.eof THEN
    response.write"<p align='center'><a href='1.asp'><font color='#000064'>该设计没有进行步骤一！请先进步骤一计算。&gt;&gt;&gt;</font> </a></p>"   
    Response.End
end if


 r1=rs("r1")
 Q=rs("T28")*1
 tr=rs("T22")*1
 tc=rs("T23")*1

set rs=server.createobject("adodb.recordset")
 sql ="select * from 2 where (th='"&th&"')"
 rs.open sql,conn,1,1
 IF  rs.eof THEN
    response.write"<p align='center'><a href='2.asp'><font color='#000064'>该设计没有进行步骤二燃烧计算！请先进行步骤二燃烧计算。&gt;&gt;&gt;</font> </a></p>"   
    Response.End
end if
A2=RS("A2")*1
w1=RS("w1")*1
w2=RS("w2")*1
w3=RS("w3")*1
w5=RS("w5")*1
w7=RS("w7")*1
w9=RS("w9")*1
qe=RS("qe")*1

set rs=server.createobject("adodb.recordset")
sql ="select * from 3 where (th='"&th&"')"
rs.open sql,conn,1,3
if  not rs.eof then
 Response.Redirect "3_2.asp" 
end if
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<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">
<title>管式加热炉工艺设计书</title>
</head>

<body>


<p align="center">　</p>
<p align="center">　</p>
<p align="center">　</p>
<p align="center"><font face="华文新魏" size="7"><b>三、</b></font><font face="华文新魏" size="7"><b>热效率计算</b></font></p>
<p align="center">　</p>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

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

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

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

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

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

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

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

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

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

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

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

  var chkVal = allNum;
  var prsVal = parseFloat(allNum);
  if (chkVal != "" && !(prsVal >= "-50" && prsVal <= "50"))
  {
    alert("请在 tlk 域中输入值 大于或等于 -50 与 小于或等于 50。");
    theForm.tlk.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="3.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" webbot-action="--WEBBOT-SELF--">
  <!--webbot bot="SaveResults" startspan
  U-File="../../_private/form_results.txt" S-Format="TEXT/CSV"
  S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot
  bot="SaveResults" endspan i-checksum="43374" --><p align="left">请输入：</p>
  <p align="left">1、排烟温度t<font size="1">s</font>(°C)：<!--webbot
  bot="Validation" S-Data-Type="Number" S-Number-Separators=",."
  S-Validation-Constraint="Greater than or equal to" S-Validation-Value="50"
  S-Validation-Constraint="Less than or equal to" S-Validation-Value="300" --><input type="text" name="TS" size="8">2、表面散热损失q<font size="1">2</font>：<!--webbot
  bot="Validation" S-Data-Type="Number" S-Number-Separators=",."
  S-Validation-Constraint="Greater than or equal to" S-Validation-Value="0"
  S-Validation-Constraint="Less than or equal to" S-Validation-Value="5" --><input type="text" name="Q2" size="6" value="1">3、不完全燃烧热损失q<font size="1">3</font>:<!--webbot
  bot="Validation" S-Data-Type="Number" S-Number-Separators=",."
  S-Validation-Constraint="Greater than or equal to" S-Validation-Value="0"
  S-Validation-Constraint="Less than or equal to" S-Validation-Value="5" --><input type="text" name="Q3" size="6" value="0.5">4、入炉冷空气温度(°C)：<!--webbot
  bot="Validation" S-Data-Type="Number" S-Number-Separators=",."
  S-Validation-Constraint="Greater than or equal to" S-Validation-Value="-50"
  S-Validation-Constraint="Less than or equal to" S-Validation-Value="50" --><input type="text" name="tlk" size="6" value="0"></p>    
  <p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
</form>
<%
ts=request.form("ts")
q2=request.form("q2")*1
q3=request.form("q3")*1
tlk=request.form("tlk")*1

   if ts="" then      
   Response.End      
   end if 
 TS=TS*1  'p21
 Ig=w1*Ii(14.00137,0.67027,-0.0087505,-8.57364,Ts)+w2*Ii(11.10611,0.42328,-0.0060594,0.67880,Ts)+w3*Ii(40.83193,0.36710,0.0006160,34.42355,Ts)+w5*Ii(23.69959,0.09764,0.0005949,15.60296,Ts)
 Ig=round(Ig+w7*Ii(19.75583,0.24852,-0.0027109,18.86205,Ts),4)
 Ik=round(0.232*w7*Ii(19.75583,0.24852,-0.0027109,18.86205,tlk)+0.768*w5*Ii(23.69959,0.09764,0.0005949,15.60296,tlk),4)
 q1=round(100*(Ig-a2*Ik)/Qe,4)
 n=round(100-q1-q2-q3,3)
 
 
 if r1="V1" THEN
 cf=(0.415+0.0006*100)*4.1868
 QF=100*CF
 ELSE
 QF=0
 END IF
B=ROUND(3600*100*Q/((QF+QE)*N),2)
 tpj=(tr+tc)/2
 C=(0.415+0.0006*TPJ)*4.1868
 G=3600*Q/(3600*C*(tc-tr))
G=ROUND(3600*Q/(3600*C*(tc-tr)),2)
F=ROUND(100*N/(N+Q2),2)
rs.addnew
rs("th")=th
rs("ts")=ts
rs("ig")=ig
rs("tlk")=tlk
rs("ik")=ik
rs("q1")=q1
rs("q2")=q2
rs("q3")=q3
rs("n")=n
rs("B")=B
rs("TPJ")=TPJ
rs("C")=C
rs("G")=G
rs("F")=F
rs.update 
  set rs=server.createobject("adodb.recordset")
  sql ="select * from tH where  (th='"&th&"')"
  rs.open sql,conn,3,3
 

   rs("a3")=1
   rs.update 

rs.close                       
set rs=nothing 
conn.close                       
set conn=nothing 
Response.Redirect "3_2.asp" 

%>
💿 文件大小 86 K
👤 上传用户 xackw
📂 所属分类其他行业
🏷️ 相关标签

#计算 #0538 #2004 #加热炉
⌨️ 快捷键说明

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