%@ Language=VBScript %> <% Response.Buffer = True Server.ScriptTimeout = 9999 Dim objUpload, lngLoop If Request.TotalBytes > 0 Then Set objUpload = New clsUpload For lngLoop = 0 to objUpload.Files.Count - 1 'If accessing this page annonymously, 'the internet guest account must have 'write permission to the path below. objUpload.Files.Item(lngLoop).Save server.mappath("DB\file") Next %> <% RESPONSE.END End If %>
|
|
© FONG
YU INDUSTRIAL CO., LTD. 1F, NO. 103, WU GONG 1ST ROAD, WU KU INDUSTRIAL PARK, TAIPEI HSIEN, TAIWAN, R.O.C. Tel: 886-2-22999618 Fax: 886-2-2299-9616 |