📄 2.asp
字号:
<!--#include file="dbconn.asp"-->
<!--#include file="inc/ksk-html.inc"-->
<!--#include file="inc/QZF.CSS"-->
<%
th=Session.Contents("th")
if th="00" then
response.write"<p align='center'><a href='index.asp'><font color='#000064'>请输入设计号！>>></font> </a></p>"
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql ="select * from 2 where (th='"&th&"')"
rs.open sql,conn,1,1
if not rs.eof then
Response.Redirect "2_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"><font face="华文新魏" size="7"><b>二、燃烧计算</b></font></p>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{
var checkOK = "0123456789-.,";
var checkStr = theForm.a1.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("在 a1 域中，只能输入 数字 个字符。");
theForm.a1.focus();
return (false);
}
if (decPoints > 1)
{
alert("请在 a1 域中输入一个有效数字。");
theForm.a1.focus();
return (false);
}
var chkVal = allNum;
var prsVal = parseFloat(allNum);
if (chkVal != "" && !(prsVal >= "0" && prsVal <= "5"))
{
alert("请在 a1 域中输入值 大于或等于 0 与 小于或等于 5。");
theForm.a1.focus();
return (false);
}
var checkOK = "0123456789-.,";
var checkStr = theForm.a2.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("在 a2 域中，只能输入 数字 个字符。");
theForm.a2.focus();
return (false);
}
if (decPoints > 1)
{
alert("请在 a2 域中输入一个有效数字。");
theForm.a2.focus();
return (false);
}
var chkVal = allNum;
var prsVal = parseFloat(allNum);
if (chkVal != "" && !(prsVal >= "0" && prsVal <= "5"))
{
alert("请在 a2 域中输入值 大于或等于 0 与 小于或等于 5。");
theForm.a2.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="2.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"><font size="2">1、请输入：辐射室过剩空气系数a1：</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="a1" size="20" value=""></p>
<p align="left"> <font size="2">对流室过剩空气系数a2：</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="a2" size="20" value=""></p>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="全部重写" name="B2"></p>
<p align="left"><font size="2"> 注：</font><font size="2">1、自然通风燃气燃烧器a1=1.2；a2=1.25；2、强制送风燃气燃烧器a1=1.15</font>；<font size="2">a2=1.20</font></p>
</form>
<%
a1=request.form("a1")
a2=request.form("a2")
if a1="" or a2="" then
Response.End
end if
a1=a1*1
a2=a2*1
set rs=server.createobject("adodb.recordset")
sql ="select * from 1 where (th='"&th&"')"
rs.open sql,conn,1,1
if rs.eof then
response.write"<p align='center'><a href='1.asp'><font color='#000064'>该设计参数不存在！请先进行：一、基础数据录入>>></font> </a></p>"
Response.End
end if
r1=rs("r1")
T1=rs("t1")*1
T2=rs("t2")*1
T3=rs("t3")*1
T4=rs("t4")*1
T5=rs("t5")*1
T6=rs("t6")*1
T7=rs("t7")*1
T8=rs("t8")*1
T9=rs("t9")*1
T10=rs("t10")*1
T11=rs("t11")*1
T12=rs("t12")*1
T13=rs("t13")*1
T14=rs("t14")*1
T15=rs("t15")*1
T16=rs("t16")*1
T17=rs("t17")*1
T18=rs("t18")*1
T19=rs("t19")*1
T20=rs("t20")*1
T21=rs("t21")*1
T22=rs("t22")*1
T23=rs("t23")*1
T24=rs("t24")*1
T25=rs("t25")*1
T26=rs("t26")*1
T27=rs("t27")*1
T28=rs("t28")*1
T29=rs("t29")*1
T30=rs("t30")*1
T31=rs("t31")*1
T32=rs("t32")*1
T33=rs("t33")*1
T34=rs("t34")*1
T35=rs("t35")*1
T36=rs("t36")*1
T37=rs("t37")*1
T38=rs("t38")*1
T39=rs("t39")*1
if r1="V1" then '燃料油
Qe=round(T31,2)
L0=ROUND((2.67*T1+8*T2+T3-T4)/23.2 ,4)
W1=round(0.0367*T1,4)
w3=round(0.02*T3,4)
w2=round(0.09*T2+0.01*T5,4)
w4=round(0.768*a1*L0+T37/100,4)
w5=round(0.768*a2*L0+T37/100,4)
w6=round(0.232*L0*(a1-1),4)
w7=round(0.232*L0*(a2-1),4)
else
Qe=round(T32,2)
L0=0.0619*(0.5*T9+T6+1.5*T7-T10+2*T12+3.5*T13+5*T14+6.5*T15+8*T16+3*T17+4.5*T18+6*T19+7.5*T20+2.5*T21)
L0=round(L0/1.293,4)
Yr=1.2501*T6+1.5392*T7+1.25*T8+0.0898*T9+1.429*T10+2.86*T11
Yr=Yr+0.7162*T12+1.3423*T13+1.2523*T17+1.1623*T21+1.9685*T14+1.8785*T18
Yr=Yr+2.5946*T15+2.5046*T19+3.2208*T16+3.1308*T20+1.964*T38+0.804*T39
ya=1.57*1.2501*T6+2.75*0.7162*T12+2.93*1.3423*T13+3.14*1.2523*T17+3.39*1.1623*T21+3*1.9685*T14+3.14*1.8785*T18
ya=ya+3.03*2.5946*T15+3.14*2.5046*T19+3.06*3.2208*T16+3.14*3.1308*T20
ya=ya/100
yb=0.53*1.5392*T7+9*T9+2.25*0.7162*T12+1.8*1.3423*T13+1.29*1.2523*T17+0.69*1.1623*T21+1.64*1.9685*T14+1.29*1.8785*T18
yb=yb+1.55*2.5946*T15+1.29*2.5046*T19+1.56*3.2208*T16+1.29*3.1308*T20
yb=yb/100
W1=round(ya+1.964*T38/(yr*100),4)
w2=round(yb+0.804*T39/(yr*100),4)
w3=round(1.88*1.5392*T7/(yr*100),4)
w4=round(0.768*a1*L0+1.25*T8/(yr*100),4)
w5=round(0.768*a2*L0+1.25*T8/(yr*100),4)
w6=round(0.232*(a1-1)*L0+1.429*T10/(yr*100),4)
w7=round(0.232*(a2-1)*L0+1.429*T10/(yr*100),4)
end if
W8=round(w1+w2+w3+w4+w6,4)
W9=round(w1+w2+w3+w5+w7,4)
set rs=server.createobject("adodb.recordset")
sql ="select * from 2 where (th='"&th&"')"
rs.open sql,conn,1,3
rs.addnew
rs("th")=th
rs("a1")=a1
rs("a2")=a2
rs("QE")=qe
rs("L0")=L0
rs("W1")=W1
rs("W2")=W2
rs("W3")=W3
rs("W4")=W4
rs("W5")=W5
rs("W6")=W6
rs("W7")=W7
rs("W8")=W8
rs("W9")=W9
rs.update
set rs=server.createobject("adodb.recordset")
sql ="select * from tH where (th='"&th&"')"
rs.open sql,conn,3,3
rs("a2")=1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "2_2.asp"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -