<% Sub showchat(chatroomsn,tempsays) sd=Application("hxf_c_sd"&chatroomsn) line=int(Application("hxf_c_line"&chatroomsn))+1 Application("hxf_c_line"&chatroomsn)=line for i=1 to 95 sd(i)=sd(i+5) next sd(96)=line 'sd(116)=1 sd(97)=0 sd(98)="系统" sd(99)="大家" sd(100)="parent.sh(1,0,""系统"",""大家"",""#660099"",""#660099"",""对"",""" & convJS(tempsays) & """);" Application.Lock Application("hxf_c_sd"&chatroomsn)=sd Application.UnLock End sub Function convJS(Jss) Jss = Replace(Jss, "\", "\\") Jss = Replace(Jss, "/", "\/") convJS = Replace(Jss, Chr(34), "\" & Chr(34)) End Function %>