Function setfont(a)
	
		Set alltxt = document.all("textmaincontent")
		Select Case a
			Case 0
				alltxt.style.FontSize = "16px"
				alltxt.style.Lineheight = "32px"
			Case 1
				alltxt.style.FontSize = "14px"
				alltxt.style.Lineheight = "24px"
			Case 2
				alltxt.style.FontSize = "12px"
				alltxt.style.Lineheight = "22px"
		End Select
	End Function


Function sendform()
	window.event.returnValue = False
	Set ffall = document.getelementbyid("xdLayout").all.tags("input")
	
	
	For i = 0 To ffall.length-1
		If InStr(ffall(i).name,"alore")>0 Then
			If Trim(ffall(i).value) = "" Then
				alert(ffall(i).elname&"不允许为空!")
				ffall(i).focus
				Exit Function
			End If
		End If
	Next
	
	i=0
	Set ffall = document.getelementbyid("xdLayout").all.tags("textarea")
	For i = 0 To ffall.length-1
		If InStr(ffall(i).name,"alore")>0 Then
			If Trim(ffall(i).value) = "" Then
				alert(ffall(i).elname&"不允许为空!")
				ffall(i).focus
				Exit Function
			End If
		End If
	Next
	
	If document.getelementbyid("zimgcode").value = "" Then 
		document.getelementbyid("zimgcode").focus
		alert("验证码不允许为空!")
		Exit Function
	End If
	
	document.getelementbyid("f1").value = document.getelementbyid("xdLayout").outerhtml
	window.event.returnValue = True
End Function