<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*版权所有：湖南省联众科技有限公司
'*功能：电磁铁磁力计算
'*作者：陈泽军
'*日期：2010-9-1
'*更新记录
'* 创建此代码 2010-09-01 陈泽军
'*用途：计算磁铁吸力
'***************************************************************************
%>
<%
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
Session("T1")=""
Session("T2")=""
else
dim vT1,vT2,vMF
vT1=request.Form("T1")
vT2=request.Form("T2")
Session("T1")=vT1
Session("T2")=vT2
if vT1="" or vT2="" then
vMsg=" 提示：计算参数不完整！"
else
vMF=vT1*vT2*vT2/2/9.8/4/3.1416*10
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",""
SetVar "InputType1",""
SetVar "Input2"," 面积：(mm2)"
SetVar "Input3"," 磁场：(Gs)"
if isempty(request("B1")) or vT1="" or vT2="" then
SetVar "Input4"," 磁力：(kg)"
elseif Int(vMF) < 1000 then
SetVar "Input4"," 磁力：(mg)"
elseif Int(vMF) < 10000 then
SetVar "Input4"," 磁力：(mg)"
elseif Int(vMF) < 100000 then
SetVar "Input4"," 磁力：(mg)"
elseif Int(vMF) < 1000000 then
SetVar "Input4"," 磁力：(g)"
elseif Int(vMF) < 10000000 then
SetVar "Input4"," 磁力：(g)"
elseif Int(vMF) < 100000000 then
SetVar "Input4"," 磁力：(g)"
elseif Int(vMF) < 1000000000 then
SetVar "Input4"," 磁力：(kg)"
elseif Int(vMF) < 10000000000 then
SetVar "Input4"," 磁力：(kg)"
elseif Int(vMF) < 100000000000 then
SetVar "Input4"," 磁力：(kg)"
else
SetVar "Input4"," 磁力：(kg)"
end if
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2",""&vMsg&""
SetVar "Input3",""
SetVar "Input4"," "
Parse "InputType2",false
Parse "InputList",true
SetVar "Input1"," 说明：1.电磁铁磁力计算器只能对磁极的吸力进行近似的估算。 2.磁场的测量可采用高斯计或磁通计，如用高斯计测量，必须测量多点取平均值。 3.以磁极的表面磁场数据代入，会有较大的误差（结果偏小）。"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
SetVar "ActionFile","Magnet_MFC.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&"