<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*版权所有：湖南省联众科技有限公司
'*功能：亥姆霍兹线圈磁场计算
'*作者：陈泽军
'*日期：2010-11-30
'*更新记录
'* 创建此代码 2010-11-30 陈泽军
'*用途：设计亥姆霍兹线圈
'***************************************************************************
%>
<%
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")=""
Session("T3")=""
Session("T4")=""
Session("T5")=""
Session("T6")=""
else
dim vT1,vT2,vT3,vT4,vT5,vT6
vT1=request.Form("T1")
vT2=request.Form("T2")
vT3=request.Form("T3")
Session("T1")=vT1
Session("T2")=vT2
Session("T3")=vT3
Session("T4")=""
Session("T5")=""
Session("T6")=""
if vT1="" or vT2="" or vT3="" then
vMsg=" 提示：线圈参数不完整！"
elseif Int(vT1)=0 then
vMsg=" 提示：线圈参数不正确！"
else
vT4=vT1/2
vT5=vT1/4*0.7
' vT6=0.8992*vT2*vT3/vT4*10
vT6=0.715*vT2*vT3/vT4*4*3.1416
Session("T4")=Int(vT4)
Session("T5")=Int(vT5)
Session("T6")=Int(vT6)
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"," 直径：(mm)"
SetVar "Input3"," 匝数：(匝)"
SetVar "Input4"," 电流：(A)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 高度：(mm)"
SetVar "Input3"," 均匀区：(mm)"
SetVar "Input4"," 磁场：(Gs)"
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","Helmholtz_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&"| "&GbLimitTitle(vTitle,20)&" | "
Else
vContentTemp=vContentTemp&" "&GbLimitTitle(vTitle,20)&" | "
End If
If (k mod 2)=0 and (Not .Eof) Then
vContentTemp=vContentTemp&"
"
End If
K=K+1
.MoveNext
Loop
If (K mod 2)=0 Then
vContentTemp=vContentTemp&" | "
End If
SetVar "Tool_Title_List",vContentTemp
Parse "Tools",false
end if
End With
Set ObjMenu_Tree_View=Nothing
End Function
%>