<%@ Language=VBScript %>
<%
option explicit
response.buffer = true
'***************************************************************************
'*版权所有：湖南省联众科技有限公司
'*功能：磁学常用单位换算表
'*作者：陈泽军
'*日期：2010-9-4
'*更新记录
'* 创建此代码 2010-09-04 陈泽军
'*用途：磁学常用单位换算表
'***************************************************************************
%>
<%
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
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 "Input1"," 使用说明：
一、从国际单位制到CGS单位制数值换算，先在左边输入框输入数据，再点击输入框右边的，即
可从右边框中得到结果。
二、从CGS单位制到国际单位制数值换算，先在右边输入框输入数据，再点击输入框左边的，即
可从左边框中得到结果。"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
SetVar "Input1","
"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 国际单位制单位名称及符号"
SetVar "Input3","磁学量名称及符号 单位换算选择"
SetVar "Input4","CGS单位制单位名称及符号"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 安/米(A/m)"
SetVar "Input3"," 磁场 H "
SetVar "Input4"," 奥斯特(Oe)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 韦伯(Wb)"
SetVar "Input3"," 磁通量 φ "
SetVar "Input4"," 麦克斯韦(Mx)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 特斯拉(T)"
SetVar "Input3"," 磁感应强度 B "
SetVar "Input4"," 高斯(Gs)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 安/米(A/m)"
SetVar "Input3"," 磁化强度 M "
SetVar "Input4"," 高斯(Gs)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 安·米2(1)"
SetVar "Input3"," 磁矩 Mm "
SetVar "Input4"," 磁矩"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 安·匝(A)"
SetVar "Input3"," 磁通势 Fm "
SetVar "Input4"," 奥·厘米(2)"
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 亨利/米(3)"
SetVar "Input3"," 磁导率 μ "
SetVar "Input4",""
Parse "InputType2",false
Parse "InputList",true
SetVar "InputType1",""
SetVar "Input2"," 千焦/米3(4)"
SetVar "Input3"," 磁能积 (BH)m "
SetVar "Input4"," 兆高斯·奥(5)"
Parse "InputType2",false
Parse "InputList",true
SetVar "Input1"," 备注：(1)=(A·m2)；(2)=(Oe·cm)；(3)=(H/m)；(4)=(KJ/m3)；(5)=(MGs·Oe)。"
Parse "InputType1",false
SetVar "InputType2",""
Parse "InputList",true
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
%>