<%@ LANGUAGE = VBScript CodePage = 936%><% Option Explicit Session.CodePage=936 Response.Buffer = True Dim conn,db,prefix,timeset,connstr,time1,onlinetime,rs prefix="zym6kbbs" db="data/6kbbs.asp" Server.ScriptTimeout=40 timeset=0 '时区相对东八区（北京时间） onlinetime=1 '保存用户在线的时间(小时)。 %>