cv?uc?mDMYq?ɈϵR?h^T$ިM8)AII=P |AII=P<6-IL_$ޯmM )|zoK?J_?B?m?2?F˜1ɋJIdO)Er?$"W*uqEMPHX ƿ4l{Y?dj q8*? UoELYR 4?D/k AEdN ?+????v!Yd ??ʛr??Oe *{bG '&? $!w\&a?rr? v#R?UA?N??4?eN`>wXDAK6?Is??url,"|","")&"','"&replace(fileExt,".","")&"',"&F_Type&",'"&F_Readme&"',"&F_Flag&" )") Dvbbs.Dvbbs_suc("
  • "&Template.Strings(19)) end sub 'ɾļ Sub fdel() Dim delid,fixid If dvbbs.GroupSetting(48)=0 then Dvbbs.AddErrCode(28) Exit Sub End if delid=replace(request("delid"),"'","") delid=replace(delid,";","") delid=replace(delid,"--","") delid=replace(delid,")","") fixid=replace(delid," ","") fixid=replace(fixid,",","") If Not IsNumeric(fixid) Then Dvbbs.AddErrCode(35) Exit Sub End If If delid="" or IsNull(delid) Then Dvbbs.AddErrCode(42) Exit Sub Else If Dvbbs.master or Dvbbs.superboardmaster or Dvbbs.boardmaster Then dvbbs.execute("delete from DV_Upfile where F_ID in ("&delid&")") Else dvbbs.execute("delete from DV_Upfile where F_Flag<>2 and F_UserID="&Dvbbs.userID&" and F_ID in ("&delid&")") End If Dvbbs.Dvbbs_suc("
  • "&Template.Strings(20)) end if end sub 'ɾļ Sub alldel() If dvbbs.GroupSetting(48)=0 then Dvbbs.AddErrCode(28) Exit Sub End If Dim delid,fixid delid=replace(request("delid"),"'","") fixid=replace(delid," ","") fixid=replace(fixid,",","") If Not IsNumeric(fixid) Then Dvbbs.AddErrCode(35) Exit Sub End If If delid="" or isnull(delid) Then Dvbbs.AddErrCode(42) Exit Sub End If dvbbs.execute("delete from DV_Upfile where F_Flag=1 and F_UserID="&Dvbbs.userid) Dvbbs.Dvbbs_suc("
  • "&Template.Strings(21)) End Sub Function filenum(types) Dim stype If IsNumeric(types) Then Select case types case 0 stype="F_Type=0 and" Case 1 stype="F_Type=1 and" Case 2 stype="F_Type=2 and" Case 3 stype="F_Type=3 and" Case 4 stype="F_Type=4 and" Case Else stype="" End Select Else stype="" End If Rs=Dvbbs.execute("Select Count(F_ID) From DV_Upfile Where "&stype&" F_UserID="&Dvbbs.userid&"") filenum=Rs(0) Set rs=nothing If IsNull(filenum) Then filenum=0 End Function %>