<%@ Language=VBScript %> <% option explicit response.buffer = true '*************************************************************************** '*版权所有：湖南省联众科技有限公司 '*功能：钕铁硼磁铁表磁计算 '*作者：陈泽军 '*日期：2010-9-2 '*更新记录 '* 创建此代码 2010-09-02 陈泽军 '* 增加形状选择 2010-09-10 陈泽军 '*用途：计算钕铁硼的表磁 '*************************************************************************** %> <% 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 Session("T2")="" Session("T3")="" Session("T4")="" Session("T5")="" Session("T6")="" Session("T7")="" Session("T8")="" Session("T9")="" else dim vT1,vT2,vT3,vT4,vT5,vT6,vT7,vT8,vT9 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") vT9=request.Form("T9") 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")=vT9 dim cd,kd,hd,pc,bj,zj,xzxs,sc if vT1="方块" and (vT2="" or vT3="" or vT4="") or vT1="圆饼" and (vT8="" or vT9="") or vT6="" then vMsg="　　提示：磁铁参数不完整！" elseif vT1="方块" then if Int(vT2)=0 or Int(vT3)=0 or Int(vT4)=0 then vMsg="　　提示：磁铁参数不正确！" else cd=vT2 kd=vT3 hd=vT4 pc=((4*hd)/kd)/(((cd/kd)^0.6)+1) bj=0.113*(pc^6)-0.9292*(pc^5)+2.7834*(pc^4)-3.606*(pc^3)+1.7887*(pc^2)+0.6082*pc-0.0157 sc=vT6 vT7=(bj*sc)/(2.1+(bj/2)*pc) Session("T7")=Int(vT7) end if else if Int(vT8)=0 or Int(vT9)=0 then vMsg="　　提示：磁铁参数不正确！" else zj=vT8/2 if zj <=1.5 then xzxs=0.45 elseif 1.56.25 then xzxs=0.89 end if bj=zj hd=vT9 sc=vT6 vT7=xzxs*((sc/2)*hd)/sqr((hd*hd)+(bj*bj)) Session("T7")=Int(vT7) 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 vSelect vSelect="　　形状：" if Session("T1")<>"" then vSelect=Replace(vSelect,"value="&Session("T1"),"value="&Session("T1")&" selected") end if SetVar "InputType1","" SetVar "Input2",vSelect SetVar "Input3","" SetVar "Input4","" Parse "InputType2",false Parse "InputList",true SetVar "InputType1","" SetVar "Input2","

　　长度：(mm)

　　直径：(mm)

" SetVar "Input3","

　　宽度：(mm)

　　厚度：(mm)

" SetVar "Input4","

　　厚度：(mm)

" Parse "InputType2",false Parse "InputList",true vSelect="　　性能：" if Session("T5")<>"" then vSelect=Replace(vSelect,"value="&Session("T5"),"value="&Session("T5")&" selected") end if SetVar "InputType1","" SetVar "Input2",vSelect SetVar "Input3","　　剩磁：(Gs)" SetVar "Input4","　　表磁：(Gs)" 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.厚度方向为充磁方向，表磁结果为磁铁NS极中心点的近似值。
　　　　　2.对于M，H，SH，UH，EH，AH牌号材料，其表磁与对应的N牌号相同。
　　　　　　如：N35=N35M=N35H=N35SH=N35UH=N35EH=N35AH，依此类推。
　　　　　3.相同牌号的剩磁有所差别，请先修改剩磁输入框中的数值，再计算表磁。" Parse "InputType1",false SetVar "InputType2","" Parse "InputList",true SetVar "ActionFile","Magnet_MIC.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 %>