<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*版权所有：湖南省联众科技有限公司
'*功能：线圈电阻与重量计算
'*作者：陈泽军
'*日期：2011-4-16
'*更新记录
'* 创建此代码 2011-04-16 陈泽军
'*用途：计算线圈电阻与重量
'***************************************************************************
%>
<%
dim IP
IP=request.servervariables("REMOTE_ADDR")
CheckIP IP
if IP<>"" and (Session(mSession3)="" or session(mSession2)<2) then
response.redirect "/Default.asp"
response.end
end if
%>
<%
on error resume next
dim vMsg
if isempty(request("B1")) then
if Session("T1")="" then
Session("T1")="铜芯线"
end if
if Session("T2")="" then
Session("T2")="圆线"
end if
Session("T3")=""
Session("T4")=""
Session("T5")=""
Session("T6")=""
Session("T7")=""
Session("T8")=""
Session("T9")=""
Session("T10")=""
else
dim vT1,vT2,vT3,vT4,vT5,vT6,vT7,vT8,vT9,vT10
vT1=request.Form("T1")
vT2=request.Form("T2")
vT3=request.Form("T3")
vT4=request.Form("T4")
vT5=request.Form("T5")
vT6=request.Form("T6")
vT8=request.Form("T8")
Session("T1")=vT1
Session("T2")=vT2
Session("T3")=vT3
Session("T4")=vT4
Session("T5")=vT5
Session("T6")=vT6
Session("T7")=""
Session("T8")=vT8
Session("T9")=""
Session("T10")=""
dim vR0,vR1,vR2,vN,vA,vL
if vT2="圆线" and vT3="" or vT2="扁线" and vT4="" or vT5="" or vT6="" or vT8="" then
vMsg=" 提示：线圈参数不完整！"
elseif vT2="圆线" then
if Int(vT3*1000)=0 or Int(vT5)=0 or Int(vT6)=0 or Int(vT8)=0 or Int(vT6)<=Int(vT5) then
vMsg=" 提示：线圈参数不正确！"
else
vR0=vT3
vR1=Int(vT5)
vR2=Int(vT6)
vN=Int(vT8)
vA=3.1416*vR0*vR0/4
vL=3.1416*(vR1+vR2)/2*vN
vT7=2.42*vR0*vR0*vN/(vR2-vR1)
if vT1="铜芯线" then
vT9=0.01851*vL/1000/vA
vT10=8.9*vA*vL/1000
else
vT9=0.0294*vL/1000/vA
vT10=2.7*vA*vL/1000
end if
Session("T7")=Int(vT7)
Session("T9")=Int(vT9*1000)/1000
Session("T10")=Int(vT10)/1000
end if
else
if Int(vT4*1000)=0 or Int(vT5)=0 or Int(vT6)=0 or Int(vT8)=0 or Int(vT6)<=Int(vT5) then
vMsg=" 提示：线圈参数不正确！"
else
vA=vT4
vR1=Int(vT5)
vR2=Int(vT6)
vN=Int(vT8)
vL=3.1416*(vR1+vR2)/2*vN
vT7=2.42*vT4*vN/(vR2-vR1)
if vT1="铜芯线" then
vT9=0.01851*vL/1000/vA
vT10=8.9*vA*vL/1000
else
vT9=0.0294*vL/1000/vA
vT10=2.7*vA*vL/1000
end if
Session("T7")=Int(vT7)
Session("T9")=Int(vT9*1000)/1000
Session("T10")=Int(vT10)/1000
end if
end if
end if
LoadTemplate server.mappath(vTemplatePath) & "/Default.htm", "All"
SetVar "SiteName",vSiteName
SetVar "TemplatePath",vTemplatePath
mShowHeader vSiteName
mShowNavigationTop vSiteName,"yes" '显示当前位置（位于顶部）
LoadTemplate server.mappath(vTemplatePath) & "/Tool.htm", "Main"
LoadTemplate server.mappath(vTemplatePath) & "/Left_Body.htm","Left_Body"
dim MenuName
MenuName=trim(request.QueryString("MenuName"))
If MenuName="" Then
Show_MenuClass_Child vSiteName,"设计工具"
Else
Show_MenuClass_Child vSiteName,MenuName
End If
mShowHot_Link vSiteName
' Parse "Left_Body",false '无作用
SetVar "PageName","(R)线圈电阻与重量计算器"
SetVar "Title","线圈电阻与重量计算器"
' SetVar "FormBody","" '不设置时，显示内容
SetVar "Tool1_Title",""
dim vSel1,vSel2
vSel1=" 材料："
if Session("T1")<>"" then
vSel1=Replace(vSel1,"value="&Session("T1"),"value="&Session("T1")&" selected")
end if
vSel2=" 规格："
if Session("T2")<>"" then
vSel2=Replace(vSel2,"value="&Session("T2"),"value="&Session("T2")&" selected")
end if
SetVar "InputType1",""
SetVar "Input2",vSel1
SetVar "Input3",vSel2
SetVar "Input4","
线材直径：(mm)
截面积：(mm2)
"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 内径：(mm)"
SetVar "Input3"," 外径：(mm)"
SetVar "Input4","线圈长度：(mm)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 匝数：(匝)"
SetVar "Input3","线圈电阻：(Ω)"
SetVar "Input4","参考重量：(kg)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2",""&vMsg&""
if isempty(request("B1")) then
SetVar "Input3",""
else
SetVar "Input3",""
end if
SetVar "Input4"," "
Parse "InputType2",false
Parse "InputList",true
SetVar "Input1"," 说明：1.计算结果为20℃的电阻值和参考重量。 2.线圈长度与绕制线圈时的间隙有关。 3.圆线的直径不小于0.001毫米，扁线的截面积不小于0.001平方毫米。"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
SetVar "ActionFile","Coil_RWC.asp?MenuName="&Server.URLEncode(MenuName)
Show_Title_List MenuName
' Parse "Main",true '无作用
mShowNavigationBottom vSiteName,"yes" '显示当前位置（位于底部）
mShowFooter vSiteName
Parse "All",false
response.write PrintVar("All")
if err then
response.write "Error:" & err.description
response.end
end if
Function Show_Title_List(vMenuName)
Dim vTitle,k,vContentTemp
Dim ObjMenu_Tree_View,vUrl
set objMenu_Tree_View=new clsMenu_Tree_View
With ObjMenu_Tree_View
.getallbyquery " And ParentName='" & vMenuName & "' And NodeOrder>0 Order By NodeOrder Asc"
if Not .Eof Then
k=1
vContentTemp=""
Do While Not .Eof
vTitle=gCheckNullStr(.MenuName)
vUrl=gCheckNullStr(.MenuUrl)
if vUrl<>"#" then
vUrl=vUrl&"?MenuName="&Server.URLEncode(vMenuName)&"&SiteName="&Server.URLEncode(vSiteName)
end if
If ((k-1) mod 2)=0 Then
vContentTemp=vContentTemp&"
"
End If
If instr(GbLimitTitle(vTitle,20),"...")>0 Then
vContentTemp=vContentTemp&"