Sub chkdel(url)
    a=MsgBox ("真的要删除吗？",32+4,"确认是否删除")
	if a=6 then
       location.href=url
    end if
End Sub

Function ChgSoType(MySoType)
   If MySoType="CompName" Then 
      soqymlform.SoType.value="CompName"
	  inSoType.innerhtml="<span style='color:#000000'>按&nbsp;</span><span onclick='vbscript:ChgSoType(""CompName"")'  style='text-decoration: none;cursor:hand;font-weight:bold;'>公司名称</span> | <span onclick='vbscript:ChgSoType(""CompAddr"")'  style='text-decoration: underline;cursor:hand'>公司地址</span> | <span onclick='vbscript:ChgSoType(""CompAbout"")'  style='text-decoration: underline;cursor:hand'>公司简介</span>"
   End If 
   If MySoType="CompAddr" Then 
      soqymlform.SoType.value="CompAddr"
	  inSoType.innerhtml="<span style='color:#000000'>按&nbsp;</span><span onclick='vbscript:ChgSoType(""CompName"")'  style='text-decoration: underline;cursor:hand'>公司名称</span> | <span onclick='vbscript:ChgSoType(""CompAddr"")'  style='text-decoration: none;cursor:hand;font-weight:bold;'>公司地址</span> | <span onclick='vbscript:ChgSoType(""CompAbout"")'  style='text-decoration: underline;cursor:hand'>公司简介</span>"
   End If 
   If MySoType="CompAbout" Then 
      soqymlform.SoType.value="CompAbout"
	  inSoType.innerhtml="<span style='color:#000000'>按&nbsp;</span><span onclick='vbscript:ChgSoType(""CompName"")'  style='text-decoration: underline;cursor:hand'>公司名称</span> | <span onclick='vbscript:ChgSoType(""CompAddr"")'  style='text-decoration: underline;cursor:hand'>公司地址</span> | <span onclick='vbscript:ChgSoType(""CompAbout"")'  style='text-decoration: none;cursor:hand;font-weight:bold;'>公司简介</span>"
   End If 
End Function 


Function qymlform_onsubmit()
    If qymlform.compname.value="" Then
	   alert("公司名称不能为空")
       qymlform.compname.Select
       qymlform_onsubmit=False
	   Exit Function
    End If
    If qymlform.compaddr.value="" Then
	   alert("公司地址不能为空")
       qymlform.compaddr.Select
       qymlform_onsubmit=False
	   Exit Function
    End If
    If qymlform.addrcode.value="" Then
	   alert("邮政编码不能为空")
       qymlform.addrcode.Select
       qymlform_onsubmit=False
	   Exit Function
    End If
    If qymlform.comptel.value="" Then
	   alert("电话不能为空")
       qymlform.comptel.Select
       qymlform_onsubmit=False
	   Exit Function
    End If
    If qymlform.compabout.value="" Then
	   alert("简介不能为空")
       qymlform.compabout.Select
       qymlform_onsubmit=False
	   Exit Function
    End If
'==========================================================
	j=0
	For i=0 To qymlform.howfind.length-1
	   If qymlform.howfind(i).checked Then
	      j=j+1
	   End If 
	Next 
	If j=0 Then
	   alert("请告诉我,你是怎么得知本站的！")	   
       qymlform_onsubmit=False
	   Exit Function
	End If 
'==========================================================
End Function 

Function OverBg(myid,myword)
   myid.background="ImgTop/LanMuBg2.gif"
   myword.style.color="#0064BC"
   
End Function 

Function OutBg(myid,myword)
   myid.background="ImgTop/LanMuBg1.gif"
   myword.style.color="#FFFFFF"
End Function