sub on_lianxiren(byval n)
	location = "Resources\Tck.asp?LIANXIREN_ID=" & N 
end sub
public sub ON_leixingxuanzhe(byval str)
	if str<>"成人" then
		div_qita.style.display=""
		div_chengren.style.display="none"
		if str="儿童" then
			aaa.selected="selected"
		else
			bbb.selected="selected"
		end if
	else
		div_qita.style.display="none"
		div_chengren.style.display=""
		div_qita.chengkeleixing2.value="id"
	end if
end sub
public sub ON_leixingxuanzhe2(byval str)
	if str = "成人"  then
		div_qita.style.display="none"
		div_chengren.style.display=""
		ccc.selected="selected"
	else
		div_qita.style.display=""
		div_chengren.style.display="none"
	end if 
end sub
private sub On_Close()
	dim str 
	str="<%=cityclass%>"
	if str ="from" then
		div_qita.style.display="none"
	else
		div_chengren.style.display="none"
	end if
	sform.lianxiren.style.visibility = ""
end sub
private sub OT_Close()
	dim str 
	str="<%=cityclass%>"
	if str ="from" then
		div_chengren.style.display="none"
	else
		div_qita.style.display="none"
	end if
		sform.lianxiren.style.visibility = ""
end sub
sub ON_check()
	div_chengren.style.left =275
	div_chengren.style.top = 315
	div_qita.style.left = 275
	div_qita.style.top = 315
	div_chengren.style.display=""
	div_qita.style.display="none"
	'sform.lianxiren.style.visibility = "hidden"
end sub
'非会员订票乘机人信息添加脚本开始window_onload
sub initchengjiren()
	On_Chengjiren_Count 1
end sub
sub On_Chengjiren_Count(byval n)
	dim i,str
	for i=1 to cint(n)
		str= str & "<table width='538' border='0' cellpadding='0' cellspacing='0'><tr><td width='67' align='right'>乘机人(" & cint(i) & ")</td><td width='92'><input name='chengjiren_Name" & cstr(i) & "' type='text' size='12' /></td><td width='50'><select name='chengjiren_Class" & cint(i) & "' style='width:50'><option value='成人'>成人</option><option value='儿童'>儿童</option><option value='婴儿'>婴儿</option></select></td><td width='66' align='center'><select name='IDNO_Class" & cint(i) & "' style='width:78'><option value='身份证'>身份证</option><option value='护照'>护照</option><option value='军官证'>军官证</option><option value='出生日期'>出生日期</option></select></td><td width='161' ><input name='IDNO" & cint(i) & "' type='text' size='20' /></td><td width='71' align='center'>是否要保险</td><td width='29' ><input type='checkbox' name='baoxian" & cint(i) & "' value='true' /></td></tr></table>"	
	next
	str=str & "<input name='chengjiren_iCount' type='hidden' value='" & n & "'/>"
	chengjiren.innerHTML=str
end sub
''非会员订票乘机人信息添加脚本结束