<%@ codepage ="936" %> <% Response.Buffer = True Response.Expires=-1 Response.ContentType="text/html" Response.Charset="GB2312" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=CStr(TWT_ArrArg(0)) chatroomsn=TWT_ArrArg(3) filname=TWT_ArrArg(4) userline=int(TWT_ArrArg(5)) newline=Application("hxf_c_line"&chatroomsn) star=101-((newline-userline)*5) TWT_ArrArg(5)=newline session("TWT_ARR_ArgALL")=join(TWT_ArrArg,"=") set TWT_ArrArg=nothing dim RSi2 dim RSi4 sy2=" " & nickname tempstr="" Response.Write tempstr set tempstr=nothing %>