<% Sub showchat(tempsays) dim tempsays2 tempsays2=convJS(tempsays) chatroominfo = Split(Application("hxf_c_chatroominfo"), ";") Application.Lock For x = 0 To UBound(chatroominfo) sd = Application("hxf_c_sd" & x) Line = Int(Application("hxf_c_line" & x)) + 1 Application("hxf_c_line" & x) = 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"",""对"",""" & tempsays2 & """);" Application("hxf_c_sd" & x) = sd Next Application.UnLock End Sub Function convJS(Jss) Jss = Replace(Jss, "\", "\\") Jss = Replace(Jss, "/", "\/") convJS = Replace(Jss, Chr(34), "\" & Chr(34)) End Function %>