JAVA 창고 
JSP 소스창고
기타
1 페이지
위의 위치에 있는 JSP SmartUpload 프로그램의 sample1.jsp 프로그램을 응용하여 Visual Basic 에서 Http방식으로
일반 Excel 파일을 Upload 하려고 합니다. 아래 프로그램은 VB 프로그램 입니다. 뭐가 잘못됬는지..
혹시 아시는 분은 한 수 가르쳐 주시길 부탁드립니다. Jsp 프로그램이 문제인지.. VB 프로그램이 문제인지..
---------------------------------- jsp 프로그램 -------------------------------------------------
<%@ page language="java" import="com.jspsmart.upload.*"%>
<jsp:useBean id="mySmartUpload" scope="page" class="com.jspsmart.upload.SmartUpload" />
<HTML>
<BODY BGCOLOR="white">
<H1>jspSmartUpload : Sample 1</H1>
<HR>
<%
// Variables
int count=0;
// Initialization
mySmartUpload.init(config);
mySmartUpload.service(request,response);
mySmartUpload.setTotalMaxFileSize(10000000);
// Upload
mySmartUpload.upload();
// Save the files with their original names in a virtual path of the web server
count = mySmartUpload.save("/upload");
// mySmartUpload.getFiles().getFile(0).saveAs("/test.txt");
// Display the number of files uploaded
out.println(count + " file(s) uploaded.");
%>
----------------------------- VB 프로그램 -----------------------------------------------------------
Private Sub CmdUpLoad_Click()
Dim inetUpload As Inet
Dim FileContents() As Byte
Dim vFileName As String
Dim header, strPOST, Boundary, idboundary As String
Set inetUpload = New Inet
If inetUpload.StillExecuting = True Then
inetUpload.Cancel
End If
vFileName = "C:\CCC.xls"
header = "Content-type: multipart/form-data" & vbCrLf
strPOST = "--" & Boundary & vbCrLf & _
"Content-Disposition: form-data; name=""vFileName""" & vbCrLf & vbCrLf & _
""" & EncodeBin & """ & vbCrLf & _
"--" & Boundary & vbCrLf
With inetUpload
.Protocol = icHTTP
'.Document = "/Jupload.jsp?file=" & vFileName '<--- 실행되어야 할 JSP 파일 지정.
.URL = "10.80.36.124/Jupload.jsp"
.AccessType = icDirect
'.RemoteHost = "10.80.36.124" ' txtServer.Text
'.RemotePort = 80
.Execute "10.10.10.10/Jupload.jsp", "POST", strPOST, header
Do While .StillExecuting
DoEvents
Loop
End With
' Dim retCancel As Boolean
' RaiseEvent UploadStarted(vFileName, retCancel)
'
' If retCancel = True Then
' CancelUpload (True)
' End If
End Sub
326
4,825
2009-12-15 11:05:35
닉네임
