% If Request("t")="1" Then Upfile_Main() Else Main() End If Sub Main() Dvbbs.Loadtemplates("") Dvbbs.Head() Dvbbs.ShowErr Dim dateupnum Dim upset upset=CInt(Dvbbs.Groupsetting(66)) dateupnum=Cint(Dvbbs.UserToday(2)) %>