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

Function flashtd(msgnum)
	If msgnum<>0 Then
	   msgtd.background="images/img_main/msgbg.gif"
	End if
End Function


Function alllogform_onsubmit()
   i=0
   For Each ra In alllogform.usr_type
      If ra.checked=True Then i=i+1
   Next
   If i=0 Then
	   alert("请选择用户类型（学生、家长、企业）")
	   alllogform_onsubmit=False
	   Exit function
   End If
End Function 

Sub inhiddentype(usrtype)
   inhiddenusrtype.innerhtml="<input type=hidden name='hiddenusrtype' value='"&usrtype&"'>"
End Sub

Sub allregbut_onclick()
   i=0
   For Each ra In alllogform.usr_type
      If ra.checked=True Then i=i+1
   Next
   If i=0 Then
	   alert("请选择用户类型（学生、家长、企业）")
   Else
      utype=alllogform.hiddenusrtype.value
	  top.Location.href="reg_index.asp?utype="&utype
   End If
end sub

Function Reggo_form_onsubmit()
   i=0
   For Each rd In reggo_form.regtype
      If rd.checked=True Then i=i+1
   Next
   If i=0 Then
		alert("请选择注册用户类型！")
		Reggo_form_onsubmit=false
		Exit Function
   End If
End Function

Function   comp_reg_form_onsubmit()
        If Replace(comp_reg_form.comp_name.value," ","")="" Then
		   alert("请输入用户名！")
		   comp_reg_form.comp_name.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End If
		If Len(comp_reg_form.comp_name.value)<2 Or Len(comp_reg_form.comp_name.value)>20 Then
		   alert("用户名长度只能在2-20之间！")
		   comp_reg_form.comp_name.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End If
	    If comp_reg_form.comp_pwd.value="" Then
		   alert("请输入密码！")
		   comp_reg_form.comp_pwd.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End If
		If Len(comp_reg_form.comp_pwd.value)<6 Or Len(comp_reg_form.comp_pwd.value)>20 Then
		   alert("密码长度只能在6-20之间！")
		   comp_reg_form.comp_pwd.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End If
	    If comp_reg_form.comp_pwd2.value="" Then
		   alert("请再次输入密码！")
		   comp_reg_form.comp_pwd2.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End If
	    If comp_reg_form.comp_pwd.value<>comp_reg_form.comp_pwd2.value Then
		   alert("2次输入的密码不一样！")
		   comp_reg_form.comp_pwd.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End if
		If comp_reg_form.comp_realname.value="" Then
		   alert("请输入公司名称！")
		   comp_reg_form.comp_realname.Select
		   comp_reg_form_onsubmit=false
		   Exit Function
	    End if
End Function 

Function  comp_reg_form2_onsubmit()
		If comp_reg_form2.comp_fax.value="" Then
		   alert("请输入座机电话！")
		   comp_reg_form2.comp_fax.Select
		   comp_reg_form2_onsubmit=false
		   Exit Function
	    End If
		If comp_reg_form2.comp_lxname.value="" Then
		   alert("请输入联系人姓名！")
		   comp_reg_form2.comp_lxname.Select
		   comp_reg_form2_onsubmit=false
		   Exit Function
	    End If
		
		If comp_reg_form2.comp_addr.value="" Then
		   alert("请输入单位地址！")
		   comp_reg_form2.comp_addr.Select
		    comp_reg_form2_onsubmit=false
		   Exit Function
	    End If
End Function 

Function  comp_login_form_onsubmit()
		If comp_login_form.comp_name.value="" Then
		   alert("请输入用户名！")
		   comp_login_form.comp_name.Select
		   comp_login_form_onsubmit=false
		   Exit Function
	    End If
		If comp_login_form.comp_pwd.value="" Then
		   alert("请输入密码！")
		   comp_login_form.comp_pwd.Select
		   comp_login_form_onsubmit=false
		   Exit Function
	    End If
		If comp_login_form.comp_entercode.value="" Then
		   alert("请输入验证码！")
		   comp_login_form.comp_entercode.Select
		   comp_login_form_onsubmit=false
		   Exit Function
	    End If
End Function

Function  comp_modify_info_form_onsubmit()
		If comp_modify_info_form.comp_fax.value="" Then
		   alert("请输入座机电话！")
		   comp_modify_info_form.comp_fax.Select
		   comp_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_info_form.comp_lxname.value="" Then
		   alert("请输入联系人姓名！")
		   comp_modify_info_form.comp_lxname.Select
		   comp_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		
		If comp_modify_info_form.comp_addr.value="" Then
		   alert("请输入单位地址！")
		   comp_modify_info_form.comp_addr.Select
		   comp_modify_info_form_onsubmit=false
		   Exit Function
	    End If
End Function 

Function comp_modify_pwd_form_onsubmit()
		If comp_modify_pwd_form.comp_oldpwd.value="" Then
		   alert("请输入旧密码！")
		   comp_modify_pwd_form.comp_oldpwd.Select
		   comp_modify_pwd_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_pwd_form.comp_newpwd.value="" Then
		   alert("请输入新密码！")
		   comp_modify_pwd_form.comp_newpwd.Select
		   comp_modify_pwd_form_onsubmit=false
		   Exit Function
	    End If
		If Len(comp_modify_pwd_form.comp_newpwd.value)<6 or Len(comp_modify_pwd_form.comp_newpwd.value)>20 Then
		   alert("密码长度为6-20之间！")
		   comp_modify_pwd_form.comp_newpwd.Select
		   comp_modify_pwd_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_pwd_form.comp_newpwd2.value="" Then
		   alert("请再次输入新密码！")
		   comp_modify_pwd_form.comp_newpwd2.Select
		   comp_modify_pwd_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_pwd_form.comp_newpwd.value<>comp_modify_pwd_form.comp_newpwd2.value Then
		   alert("2次输入的密码不相同！")
		   comp_modify_pwd_form.comp_newpwd.Select
		   comp_modify_pwd_form_onsubmit=false
		   Exit Function
	    End If        
End Function

Function  comp_add_news_form_onsubmit()
		If comp_add_news_form.jobcontent.value="" Then
		   alert("请输入工作内容！")
		   comp_add_news_form.jobcontent.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_add_news_form.jobtime.value="" Then
		   alert("请输入工作时间！")
		   comp_add_news_form.jobtime.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_add_news_form.jobaddr.value="" Then
		   alert("请输入工作地点！")
		   comp_add_news_form.jobaddr.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_add_news_form.jobsalary.value="" Then
		   alert("请输入工作报酬！")
		   comp_add_news_form.jobsalary.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_add_news_form.neednum.value="" Then
		   alert("请输入需要人数！")
		   comp_add_news_form.neednum.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If not isnumeric(comp_add_news_form.neednum.value) Then
		   alert("人数必须是数字！")
		   comp_add_news_form.neednum.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_add_news_form.facetime.value="" Then
		   alert("请输入面试时间！")
		   comp_add_news_form.facetime.Select
		   comp_add_news_form_onsubmit=false
		   Exit Function
	    End If
End Function

Function comp_modify_news_form_onsubmit()
		If comp_modify_news_form.jobcontent.value="" Then
		   alert("请输入工作内容！")
		   comp_modify_news_form.jobcontent.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_news_form.jobtime.value="" Then
		   alert("请输入工作时间！")
		   comp_modify_news_form.jobtime.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_news_form.jobaddr.value="" Then
		   alert("请输入工作地点！")
		   comp_modify_news_form.jobaddr.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_news_form.jobsalary.value="" Then
		   alert("请输入工作报酬！")
		   comp_modify_news_form.jobsalary.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_news_form.neednum.value="" Then
		   alert("请输入需要人数！")
		   comp_modify_news_form.neednum.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If not isnumeric(comp_modify_news_form.neednum.value) Then
		   alert("人数必须是数字！")
		   comp_modify_news_form.neednum.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
		If comp_modify_news_form.facetime.value="" Then
		   alert("请输入面试时间！")
		   comp_modify_news_form.facetime.Select
		   comp_modify_news_form_onsubmit=false
		   Exit Function
	    End If
End Function



Function  admin_modify_info_form_onsubmit()
		If admin_modify_info_form.comp_pwd.value="" Then
		   alert("请输入密码！")
		   admin_modify_info_form.comp_pwd.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		If Len(admin_modify_info_form.comp_pwd.value)<6 Or Len(admin_modify_info_form.comp_pwd.value)>20 Then
		   alert("密码长度只能在6-20之间！")
		   admin_modify_info_form.comp_pwd.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		If admin_modify_info_form.comp_realname.value="" Then
		   alert("请输入公司名称！")
		   admin_modify_info_form.comp_realname.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End if
		If admin_modify_info_form.comp_fax.value="" Then
		   alert("请输入座机电话！")
		   admin_modify_info_form.comp_fax.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		If admin_modify_info_form.comp_lxname.value="" Then
		   alert("请输入联系人姓名！")
		   admin_modify_info_form.comp_lxname.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End If
		
		If admin_modify_info_form.comp_addr.value="" Then
		   alert("请输入单位地址！")
		   admin_modify_info_form.comp_addr.Select
		   admin_modify_info_form_onsubmit=false
		   Exit Function
	    End If
End Function 

Function  add_train_form_onsubmit()
		If add_train_form.train_name.value="" Then
		   alert("请输入培训机构名称！")
		   add_train_form.train_name.Select
		   add_train_form_onsubmit=false
		   Exit Function 
	    End If
		If add_train_form.train_addr.value="" Then
		   alert("请输入培训机构地址！")
		   add_train_form.train_addr.Select
		   add_train_form_onsubmit=false
		   Exit Function
	    End If		
		If add_train_form.train_lxname.value="" Then
		   alert("请输入联系人名字！")
		   add_train_form.train_lxname.Select
		   add_train_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_form.train_lxtel.value="" Then
		   alert("请输入联系人电话！")
		   add_train_form.train_lxtel.Select
		   add_train_form_onsubmit=false
		   Exit Function
	    End If
End Function 

Function modify_train_form_onsubmit()
		If modify_train_form.train_name.value="" Then
		   alert("请输入培训机构名称！")
		   modify_train_form.train_name.Select
		   modify_train_form_onsubmit=false
		   Exit function
	    End If
		If modify_train_form.train_addr.value="" Then
		   alert("请输入培训机构地址！")
		   modify_train_form.train_addr.Select
		   modify_train_form_onsubmit=false
		   Exit function
	    End If		
		If modify_train_form.train_lxname.value="" Then
		   alert("请输入联系人名字！")
		   modify_train_form.train_lxname.Select
		   modify_train_form_onsubmit=false
		   Exit function
	    End If
		If modify_train_form.train_lxtel.value="" Then
		   alert("请输入联系人电话！")
		   modify_train_form.train_lxtel.Select
		   modify_train_form_onsubmit=false
		   Exit Function
	    End If
End Function


Function add_train_news_form_onsubmit()
		If add_train_news_form.train_addr.value="" Then
		   alert("请输入培训地点！")
		   add_train_news_form.train_addr.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.TrainBName.value="" Then
		   alert("请选择培训类型！")
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.TrainSName.value="" Then
		   alert("请选择培训具体项目！")
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.train_markprice.value="" Then
		   alert("请输入培训费市场价！")
		   add_train_news_form.train_markprice.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.train_x.value="" Then
		   alert("请输入培训费勤俭频道优惠价！")
		   add_train_news_form.train_x.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.train_txprice.value="" Then
		   alert("请输入考证费！")
		   add_train_news_form.train_txprice.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.train_lxname.value="" Then
		   alert("请输入联系人名字！")
		   add_train_news_form.train_lxname.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If add_train_news_form.train_lxtel.value="" Then
		   alert("请输入联系人电话！")
		   add_train_news_form.train_lxtel.Select
		   add_train_news_form_onsubmit=false
		   Exit Function
	    End If

End Function

Function modify_train_news_form_onsubmit()
		If modify_train_news_form.train_addr.value="" Then
		   alert("请输入培训地点！")
		   modify_train_news_form.train_addr.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.TrainBName.value="" Then
		   alert("请选择培训类型！")
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.TrainSName.value="" Then
		   alert("请选择培训具体项目！")
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.train_markprice.value="" Then
		   alert("请输入培训费市场价！")
		   modify_train_news_form.train_markprice.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.train_x.value="" Then
		   alert("请输入培训费勤俭频道优惠价！")
		   modify_train_news_form.train_x.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.train_txprice.value="" Then
		   alert("请输入考证费！")
		   modify_train_news_form.train_txprice.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.train_lxname.value="" Then
		   alert("请输入联系人名字！")
		   modify_train_news_form.train_lxname.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
		If modify_train_news_form.train_lxtel.value="" Then
		   alert("请输入联系人电话！")
		   modify_train_news_form.train_lxtel.Select
		   modify_train_news_form_onsubmit=false
		   Exit Function
	    End If
End Function


'**************************************************************
'**************************************************************
Function gettrainbigclass()
         str="劳动部职业资格证书,国家职业资格认证,劳动部计算机高新技术证书,信息产业部证书,国际认证,其他"
		 sz=Split(str,",")
		 ct="<select name=train_Bclass onchange='vbscript:ChangeTrainClass()'>"
		 ct=ct&"<option value=0>-----------请选择-----------"
		 For i=0 To UBound(sz)
		    ct=ct&"<option value='"&sz(i)&"'>"&sz(i)
		 next
		 ct=ct&"</select>"
         inbigclass.innerhtml=ct
End Function 

Function ChangeTrainClass()
     TrainBigClassName=add_train_news_form.train_Bclass.value
	 If TrainBigClassName<>"0" Then
	    add_train_news_form.TrainBName.value=TrainBigClassName
     Else
        add_train_news_form.TrainBName.value=""
     End If
     add_train_news_form.TrainSName.value=""
     Select Case TrainBigClassName
	      Case "劳动部职业资格证书"
		      str="计算机系统操作工,家电维修工,客房服务员,餐厅服务员,前厅服务员"
	      Case "国家职业资格认证"
		      str="办公软件操作员,电子商务师,网络管理师,导游,市场调查员,推销员,公关员,营销师,税务师,注册会计师,金融分析师,企业信息管理师,心理咨询师,物流师,物业管理师,人力资源管理师,管理策划师,分析策划师,美术设计师"
          Case "劳动部计算机高新技术证书"
		      str="图象制作员PhotoShop,图象制作员3D MAX,图象制作员GorelDraw,办公自动化,AutoCAD绘图员,网页制作员Dreamweaver,网页制作员Fireworks,网页制作员Flash,微机系统维修员,数据库操作员,网络管理员,网络操作员"
          Case "信息产业部证书"
		      str="办公自动化,平面设计,网页设计,三维动画设计师,CEAC计算机辅导设计工程师,室内设计工程师,网络管理员,网络应用工程师,CEAC微机装配与维护工程师,CEAC电子政务技术工程师,CEAC电子政务应用管理工程师,信息分析师"
		  Case "国际认证"
		      str="Adodb Acrobat中国产品专家,Adodb Illustrator中国产品专家,Adodb Photoshop中国产品专家,Adodb中国认证设计师（ACCD）,Macromedia Dreamweaver MX,Macromedia Fireworks MX,Macromedia Flash MX,Macromedia 网页设计师,Discreet认证工程师（3Ds Max）证书"
          Case "其他"
              str="其他"
	 End Select 
	 sz=Split(str,",")
	 ct="<select name=train_Sclass onchange='vbscript:ChangeTrainClass2()'><option value=0>-----------请选择-----------"
	 For i=0 To UBound(sz)
	       ct=ct&"<option value='"&sz(i)&"'>"&sz(i)
	 next
	 ct=ct&"</select>"
	 insmclass.innerhtml=ct
End Function 

Function ChangeTrainClass2()
     TrainSmallClassName=add_train_news_form.train_Sclass.value
	 If TrainSmallClassName<>"0" Then
	    add_train_news_form.TrainSName.value=TrainSmallClassName
     Else
        add_train_news_form.TrainSName.value=""
     End if    
End Function 

'********COPY上面的3个函数**************

Function Mgettrainbigclass()
         str="劳动部职业资格证书,国家职业资格认证,劳动部计算机高新技术证书,信息产业部证书,国际认证,其他"
		 sz=Split(str,",")
		 ct="<select name=train_Bclass onchange='vbscript:MChangeTrainClass()'>"
		 ct=ct&"<option value=0>-----------请选择-----------"
		 For i=0 To UBound(sz)
		    ct=ct&"<option value="&sz(i)&">"&sz(i)
		 next
		 ct=ct&"</select>"
         inbigclass.innerhtml=ct
End Function 

Function MChangeTrainClass()
     TrainBigClassName=modify_train_news_form.train_Bclass.value
	 If TrainBigClassName<>"0" Then
	    modify_train_news_form.TrainBName.value=TrainBigClassName
     Else
        modify_train_news_form.TrainBName.value=""
     End If
     modify_train_news_form.TrainSName.value=""
     Select Case TrainBigClassName
	      Case "劳动部职业资格证书"
		      str="计算机系统操作工,家电维修工,客房服务员,餐厅服务员,前厅服务员"
	      Case "国家职业资格认证"
		      str="办公软件操作员,电子商务师,网络管理师,导游,市场调查员,推销员,公关员,营销师,税务师,注册会计师,金融分析师,企业信息管理师,心理咨询师,物流师,物业管理师,人力资源管理师,管理策划师,分析策划师,美术设计师"
          Case "劳动部计算机高新技术证书"
		      str="图象制作员PhotoShop,图象制作员3D MAX,图象制作员GorelDraw,办公自动化,AutoCAD绘图员,网页制作员Dreamweaver,网页制作员Fireworks,网页制作员Flash,微机系统维修员,数据库操作员,网络管理员,网络操作员"
          Case "信息产业部证书"
		      str="办公自动化,平面设计,网页设计,三维动画设计师,CEAC计算机辅导设计工程师,室内设计工程师,网络管理员,网络应用工程师,CEAC微机装配与维护工程师,CEAC电子政务技术工程师,CEAC电子政务应用管理工程师,信息分析师"
		  Case "国际认证"
		      str="Adodb Acrobat中国产品专家,Adodb Illustrator中国产品专家,Adodb Photoshop中国产品专家,Adodb中国认证设计师（ACCD）,Macromedia Dreamweaver MX,Macromedia Fireworks MX,Macromedia Flash MX,Macromedia 网页设计师,Discreet认证工程师（3Ds Max）证书"
          Case "其他"
              str="其他"
	 End Select 
	 sz=Split(str,",")
	 ct="<select name=train_Sclass onchange='vbscript:MChangeTrainClass2()'><option value=0>-----------请选择-----------"
	 For i=0 To UBound(sz)
	       ct=ct&"<option value="&sz(i)&">"&sz(i)
	 next
	 ct=ct&"</select>"
	 insmclass.innerhtml=ct
End Function 

Function MChangeTrainClass2()
     TrainSmallClassName=modify_train_news_form.train_Sclass.value
	 If TrainSmallClassName<>"0" Then
	    modify_train_news_form.TrainSName.value=TrainSmallClassName
     Else
        modify_train_news_form.TrainSName.value=""
     End if    
End Function 
'**************************************************************
'**************************************************************


Function bookform_onsubmit()
    If bookform.bookname.value="" Then
	   alert("请写上你的昵称！")
	   bookform.bookname.Select
	   bookform_onsubmit=False
	   Exit function
    End If
    If bookform.bookcontent.value="" Then
	   alert("留言内容不能为空！")
	   bookform.bookcontent.Select
	   bookform_onsubmit=False
	   Exit function
    End If
    If Len(bookform.bookcontent.value)>500 Then
	   alert("留言内容不能超过500个字符！")
	   bookform.bookcontent.Select
	   bookform_onsubmit=False
	   Exit function
    End If    
End Function 

Function ChkCompNameBut_onclick()
   If comp_reg_form.comp_name.value="" Then
      alert("请先输入用户名！")
	  comp_reg_form.comp_name.Select
   Else
      chkpage.chkcompnameform.comp_name.value=comp_reg_form.comp_name.value
	  chkpage.chkcompnameform.submit
   End if
End Function 

Function Tform_onsubmit()
    If Tform.Tname.value="" Then
	   alert("请写上合作伙伴名称！")
	   Tform.Tname.Select
	   Tform_onsubmit=False
	   Exit function
    End If
    If Tform.Tsite.value="" Then
	   alert("请写上合作伙伴的网址！")
	   Tform.Tsite.Select
	   Tform_onsubmit=False
	   Exit function
    End If
    If Tform.Tlogo.value="" Then
	   alert("请上传LOGO！")
	   Tform.Tlogo.Select
	   Tform_onsubmit=False
	   Exit function
    End If
End Function 

Function Lform_onsubmit()
    If Lform.Lname.value="" Then
	   alert("请写上网站名称！")
	   Lform.Lname.Select
	   Lform_onsubmit=False
	   Exit function
    End If
    If Lform.Laddr.value="" Then
	   alert("请写上网址！")
	   Lform.Laddr.Select
	   Lform_onsubmit=False
	   Exit function
    End If
    If Lform.Llogo.value="" Then
	   alert("请上传LOGO！")
	   Lform_onsubmit=False
	   Exit function
    End If
End Function 

Function soform_onsubmit()
   If soform.sotext.value="" Then
      alert("请输入关键字")
	  soform.sotext.Select
      soform_onsubmit=False
      Exit function
   End if
   If soform.lanmu.value="0" Then
      alert("请选择要搜索的栏目")
      soform_onsubmit=False
      Exit function
   End if
End function