public sub OnOrderSet(byval str) dim sstr sstr="
" yuding_post.innerHTML=sstr yuding.submit() end sub public sub onpiaojia() window.location="av.asp?DOSTR=PIAOJIA" end sub public sub next_page(byval ctime) fenyeshow.disabled="disabled" window.location="av.asp?DOSTR=GOON&TIME=" & ctime end sub public sub onEticket() window.location="av.asp?DOSTR=ET" end sub public sub onreturn() window.location="av.asp" end sub public sub changecolor() document.FGColor=int(256*256*256*rnd) end sub public sub allseat(byval n) dim d,i,did set d=document.all.tags("div") for i=0 to d.length-1 did=d(i).id if len(did)>4 then if n <> 99999 then if did="alls" & cstr(n) then d(i).style.display ="none" end if if did="onlys" & cstr(n) then d(i).style.display ="" end if else if instr(1,did,"alls")>0 then d(i).style.display ="none" end if if instr(1,did,"onlys")>0 then d(i).style.display ="" end if end if end if next set d= nothing end sub public sub onlyseat(byval n) dim d,i,did set d=document.all.tags("div") for i=0 to d.length-1 did=d(i).id if len(did)>4 then if n <> 99999 then if did="alls" & cstr(n) then d(i).style.display ="" end if if did="onlys" & cstr(n) then d(i).style.display ="none" end if else if instr(1,did,"alls")>0 then d(i).style.display ="" end if if instr(1,did,"onlys")>0 then d(i).style.display ="none" end if end if end if next set d= nothing end sub public sub select_open1() div1.style.left =(window.event.x - window.event.offsetX) -6 div1.style.top = (window.event.y - window.event.offsetY) +16 + document.body.scrollTop div1.style.display="" div2.style.display="none" end sub public sub select_open2() div2.style.left =(window.event.x - window.event.offsetX) -6 div2.style.top = (window.event.y - window.event.offsetY) +16 + document.body.scrollTop div2.style.display="" div1.style.display="none" end sub public sub guonei_click() ens_lod1.style.display="none" ens_lod2.style.display="" end sub public sub guoji_click() ens_lod2.style.display="none" ens_lod1.style.display="" end sub