📄 index.asp
字号:
<html>
<title>松弛率计算程序</title>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
A:visited{TEXT-DECORATION: none; color: 123456}
A:active{TEXT-DECORATION: underline; color: 123456}
A:hover{TEXT-DECORATION: underline; color: 656565}
A:link{text-decoration: none; color: 123456}
.t{LINE-HEIGHT: 1.4}
BODY{FONT-FAMILY: 宋体; FONT-SIZE: 12pt;
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow}
TD{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
DIV{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
FORM{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
OPTION{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
P{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
TD{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
BR{FONT-FAMILY: 宋体; FONT-SIZE: 12pt}
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; background-color: #f0f0f0; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}
textarea {border-width: 1; border-color: #000000; background-color: #f0f0f0; font-family: 宋体; font-size: 9pt; font-style: bold;}
select {border-width: 1; border-color: #000000; background-color: #f0f0f0; font-family: 宋体; font-size: 9pt; font-style: bold;}
</style>
<head>
<body bgcolor=fafafa>
<%
acc=request("acc")
if acc="" then
%>
<br><br><br><center><B>松弛率计算程序</B></center><br><br><br>
<table align=center>
<form name=form1 action="index.asp?acc=stp1" method="post">
小时数：<input type="text" name="hours" size=6 style='border-width:0 0 1px 0;background-color: #fbfbfb;' value="1000"> 时间段数：<input type="text" name="timed" size=3 style='border-width:0 0 1px 0;background-color: #fbfbfb;' value="7"> <input type="submit" value="下一步">
</form>
</table>
<%
elseif acc="stp1" then
%>
<%
n=request("timed")
hours=request("hours")
if IsNumeric(n)=False or IsNumeric(hours)=False then
response.write "<br><br><br><center>输入数据错误！<br><br><input type='button' value='确定' onclick='JavaScript:history.go(-1);'></center>"
response.end
end if
%>
<br><br><br>
<table align=center>
<form name=form1 action="index.asp?acc=stp2" method="post">
<%
n=request("timed")
hours=request("hours")
for i=1 to n
%>
<B>t(<%=i%>)：</B><input type="text" name="t_<%=i%>" size=8 style='border-width:0 0 1px 0;background-color: #fbfbfb;'> <B>r(<%=i%>)：</B><input type="text" name="r_<%=i%>" size=8 style='border-width:0 0 1px 0;background-color: #fbfbfb;'><br>
<%
next
%><br>
实验日期 <input type="text" name="syrq" value="<%=date()%>"><br>
规 格 <input type="text" name="gg"> <br>
样品编号 <input type="text" name="ypbh"><br>
强度等级 <input type="text" name="qdjb"> <br>
初 载 <input type="text" name="cz"><br>
执行标准 <input type="text" name="zxbz"><br>
设备型号 <input type="text" name="sbxh" value="BCC－400"><br>
覆 盖 面 <textarea rows="3" name="fgm" cols="30" title="其它约定事项"></textarea><br>
<input type="hidden" name="timed" value="<%=n%>">
<input type="hidden" name="hours" value="<%=hours%>">
<br><br>
<center><input type="button" value="上一步" onclick="JavaScript:history.go(-1);"> <input type="submit" value="下一步"></center>
</form>
</table>
<%
elseif acc="stp2" then
blk=""
syrq=request("syrq")
gg=request("gg")
ypbh=request("ypbh")
qdjb=request("qdjb")
cz=request("cz")
zxbz=request("zxbz")
sbxh=request("sbxh")
fgm=request("fgm")
n=request("timed")
hours=request("hours")
dim t(),r()
for i=1 to n
redim preserve t(i),r(i)
t(i)=request("t_"&i&"")
r(i)=request("r_"&i&"")
if t(i)=blk or r(i)=blk then
response.write "<br><br><br><center>输入数据错误:t(i)或r(i)存在空值！<br><br><input type='button' value='确定' onclick='JavaScript:history.go(-1);'></center>"
response.end
end if
if IsNumeric(t(i))=False or IsNumeric(r(i))=False then
response.write "<br><br><br><center>输入数据错误:t(i)或r(i)存在非数值！<br><br><input type='button' value='确定' onclick='JavaScript:history.go(-1);'></center>"
response.end
end if
if t(i)=0 or r(i)=0 then
response.write "<br><br><br><center>输入数据错误:t(i)或r(i)存在零值！<br><br><input type='button' value='确定' onclick='JavaScript:history.go(-1);'></center>"
response.end
end if
next
x=0
for i=1 to n
x=x+(log(t(i))*log(r(i)))
next
y=0
for i=1 to n
y=y+(log(t(i)))
next
z=0
for i=1 to n
z=z+(log(r(i)))
next
u=0
for i=1 to n
u=u+((log(t(i)))*(log(t(i))))
next
v=y*y/n
b=(x-(y*z)/n)/(u-v)
a=z/n-(b*y)/n
p=FormatNumber(a+b*log(hours),14,-1)
rate=exp(a+b*log(hours))
%>
<br><br><br>
<center>
<font size=5><B></B></font><br><br>
<font size=5><B>预应力钢绞线松弛试验报告</B></font><br>
<br><br>
</center>
<table width=650 cellspacing=0 style='border-collapse: collapse; word-wrap: break-word; word-break: break-all' align=center>
<tr>
<td>
试验日期：<%=syrq%><br>
报告日期：<%=date()%>
</td>
<td align=right>
AS(04)-质-21
</td>
</tr>
</table>
<center>
<table border=1 width=650 cellspacing=0 bordercolor=121212 style='border-collapse: collapse; word-wrap: break-word; word-break: break-all' align=center>
<tr>
<td height=30>规格(mm)</td>
<td><%=gg%></td>
<td>试验时间(h)</td>
<td><%=t(n)%></td>
</tr>
<tr>
<td height=30>样品编号</td>
<td><%=ypbh%></td>
<td>试验温度</td>
<td><img src="tp.gif" border=0></td>
</tr>
<tr>
<td height=30>强度级别(MPa)</td>
<td><%=qdjb%></td>
<td>初载（kN）</td>
<td><%=cz%></td>
</tr>
<tr>
<td height=30>试验设备型号</td>
<td><%=sbxh%></td>
<td>执行标准</td>
<td><%=zxbz%></td>
</tr>
</table>
<br>
<table border=1 width=650 cellspacing=0 bordercolor=121212 style='border-collapse: collapse; word-wrap: break-word; word-break: break-all' align=center>
<tr>
<td align=center height=35><B>试验数据</B></td>
</tr>
<tr>
<td>
<table border=1 bordercolor=121212 cellspacing=0 style='border-collapse: collapse; word-wrap: break-word; word-break: break-all' align=center>
<tr>
<td height=30> 时间(h) </td>
<%
for i=1 to n
%>
<td> <%=t(i)%> </td>
<%
next
%>
</tr>
<tr>
<td height=30> 松弛率(%) </td>
<%
for i=1 to n
%>
<td> <%=r(i)%> </td>
<%
next
%>
</tr>
</table>
</td>
</tr>
<tr>
<td align=center height=35><B>回归计算结果</B></td>
</tr>
<tr>
<td><br>
回归方程：Ln(Ri)=<%=FormatNumber(a,3,-1)%>+<%=FormatNumber(b,3,-1)%>Ln(<%=hours%>)<br><br>
系数值：A=<%=FormatNumber(a,3,-1)%> B=<%=FormatNumber(b,3,-1)%><br><br>
推算<%=hours%>小时松弛率值：<%=FormatNumber(rate,3,-1)%>%<br><br>
推算时区：<%=t(1)%>h～<%=t(n)%>h<br><br>
</td>
</tr>
<tr>
<td height=30>结论：本试样松弛性能符合<%=zxbz%>标准II级</td>
</tr>
<tr>
<td align=center height=35><B>本试验所覆盖绞线编号记录</B></td>
</tr>
<tr>
<td><br><br><%=fgm%><br><br><br></td>
</tr>
<tr>
<td align=center height=35>试验： 审核： 签发： </td>
</tr>
</table>
</center>
<%
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -