½ÃÀÛÆäÀÌÁö·Î Áñ°Üã±âÃß°¡
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ l Ã⼮üũ l ¸¶ÀÌÆäÀÌÁö l CGIMALL
ÀÚ·á½Ç »çÀÌÆ®µî·Ï ·©Å·100 ÇÁ·Î±×·¥¸®ºä °ü¸®ÀÚÃßõÀÚ·á Ãʺ¸°¡À̵å
Ä¿¹Â´ÏƼ
Àüü ÆîÃ帱â
Äü¸Þ´º¸µÅ© jquery , CSS , PHP , Javascript , ¹«·áÆùÆ® , ASP
»ó¼¼°Ë»ö
Ȩ > Ä¿¹Â´ÏƼ > Áú¹®°ú´äº¯ »ó¼¼º¸±â
Ä¿¹Â´ÏƼ ±¸Àα¸Á÷
»çÀÌÆ®µî·Ï
Ŭ¶ó¿ìµåű×
javascript
PHP
ASP
CSS
mysql
html
jquery
������
image
mobile
API
slide
°Ô½ÃÆÇ
ÇöÀçÁ¢¼ÓÀÚ ¸í »õ·Î°íħ
°Ô½ÃÆÇŸÀÌƲ Áú¹®°ú´äº¯ / »ó¼¼º¸±â
Æ®À§ÅÍ·Î º¸³»±â
Ãßõ¼ö 344 | Á¶È¸¼ö 4,893 | µî·ÏÀÏ 2009-12-15 11:05:35

´Ð³×ÀÓ

junstar

À̸ÞÀÏ

jypark@smotor.com

Á¦¸ñ

Inet HTTP ¹æ½ÄÀ¸·Î ÆÄÀÏ Àü¼ÛÇÏ´Â VB ÇÁ·Î±×·¥ ?
³»¿ë

 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

 

 

 

Ãßõ½ºÅ©·¦¼Ò½ºº¸±â ¸ñ·Ï
ranksa 2009-12-16 10:38:00
´ä±Û

±âÀçÇØ ÁֽŠ³»¿ëÀº, VB°ü·Ã Àü¹® »çÀÌÆ®¿¡
Áú¹®À» ÇØÁÖ½Ã´Â°Ô ÁÁÀ»°Í °°½À´Ï´Ù

ÀÌÀü°Ô½Ã±Û Ç÷¡½Ã ¹öÆ° ¸µÅ© Áú¹®Á¡ »çÁø÷ºÎ ¤Ì 2009-12-08 23:55:46
´ÙÀ½°Ô½Ã±Û ¹«·áµµ¸ÞÀÎ »çÀÌÆ® ±¸Ãà ÀÇ·Ú Çغ¾´Ï´Ù. 2010-01-06 08:30:11