<%@ Language=VBScript %> <% option explicit response.buffer = true '*************************************************************************** '*版权所有：湖南省联众科技有限公司 '*功能：空心线圈磁场计算 '*作者：陈泽军 '*日期：2010-8-31 '*更新记录 '* 创建此代码 2010-08-31 陈泽军 '*用途：设计磁场线圈 '*************************************************************************** %> <% 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,a,r vT1=request.Form("T1") vT2=request.Form("T2") vT3=request.Form("T3") vT4=request.Form("T4") vT5=request.Form("T5") Session("T1")=vT1 Session("T2")=vT2 Session("T3")=vT3 Session("T4")=vT4 Session("T5")=vT5 Session("T6")="" if vT1="" or vT2="" or vT3="" or vT4="" or vT5="" then vMsg="　　提示：线圈参数不完整！" elseif Int(vT1)=0 or Int(vT2)=Int(vT1) or Int(vT2)(mm)" SetVar "Input3","　　外径：(mm)" SetVar "Input4","　　长度：(mm)" Parse "InputType2",false Parse "InputList",true SetVar "InputType1","" SetVar "Input2","　　匝数：(匝)" SetVar "Input3","　　电流：(A)" 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","

【高斯计推荐】
LZ-641H高斯计	LZ-640高斯计	LZ-620H高斯计

" Parse "InputType1",false SetVar "InputType2","" Parse "InputList",true SetVar "ActionFile","Coil_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 %>