[asp]탭스다운로드, tabsdownload, 파일다운로드

탭스다운로드 입니다.

탭스다운로드 모듈이 설치가 되어 있어야 하구요. 아래는 간단한 사용 예제 입니다.

<%@ Language=VBScript EnableSessionState="False"%>

<%
     Response.Buffer = False

     Dim filepath
     Dim filename

     g_num = request("g_num")

     sql = "Select top 1 g_file from notice where g_num = '" & g_num & "'"

     set rs = dbcon.execute(sql)

     if not( rs.eof or rs.bof ) then pprs = rs.getRows

     dbcon.close
     set dbcon = nothing
    
     If not isArray(pprs) Then
          response.write "파일이 존재하지 않습니다." : response.End
     End If
    
     fileName = pprs(0,0)
     filepath = server.mappath("\admin\") & "\" & filename
     Response.Expires=-1

     Dim Download
     Set Download = Server.CreateObject("TABSUpload4.Download")
     Download.FilePath = filepath
     Download.TransferFile true, true
%>