<% '+++++++++++++++++++++++++++++++++++++ '文件名：Default.asp '文件功能：首页 '作者：老古,小吴 '时间：2003/10/11 ' ' ' '+++++++++++++++++++++++++++++++++++++ %> <% function showtopic(topic,displaylenth) dim topiclen,turelen,temp topiclen=0 turelen=0 for temp=1 to len(topic) if len(Hex(Asc(Mid(topic,temp,1))))>2 then topiclen=topiclen+2 else topiclen=topiclen+1 end if turelen=turelen+1 if topiclen>displaylenth then exit for next if topiclen>displaylenth then showtopic=Left(topic, turelen)&"..." else showtopic=topic end if end function %>