|
Home > Archive > Business Desk > July 2004 > Upload file.................
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Upload file.................
|
|
|
|
Anyone can help me?
I try coding to tranfer file from BizDesk client to
server. I can't find any documents, samples....... to help
me about that.
If you know, please help me...
Thanks a lot
Candy
| |
| David Messner [MSFT] 2004-07-19, 5:53 pm |
| Take a look at the catalog import feature from Business Desk. It uses
WebDav to transfer the file contents when uploading from a client location.
-djm
--
This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use. © 2004 Microsoft Corporation. All rights
reserved.
--------------------
Content-Class: urn:content-classes:message
From: "Candy" <anonymous@discussions.microsoft.com>
Sender: "Candy" <anonymous@discussions.microsoft.com>
Subject: Upload file.................
Date: Fri, 16 Jul 2004 19:32:00 -0700
Lines: 13
Message-ID: <2ead001c46ba6$3cdb6190$a501280a@phx.gbl>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Newsreader: Microsoft CDO for Windows 2000
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
Thread-Index: AcRrpjzbVMTwFK0XRvKoPwWP4VUtKA==
Newsgroups: microsoft.public.commerceserver.businessdesk
Path: cpmsftngxa06.phx.gbl
Xref: cpmsftngxa06.phx.gbl microsoft.public.commerceserver.businessdesk:6330
NNTP-Posting-Host: tk2msftngxa13.phx.gbl 10.40.1.165
X-Tomcat-NG: microsoft.public.commerceserver.businessdesk
Anyone can help me?
I try coding to tranfer file from BizDesk client to
server. I can't find any documents, samples....... to help
me about that.
If you know, please help me...
Thanks a lot
Candy
| |
|
|
Hi David, thank for your helping.
I created a file to manage uploading file, but I always=20
received this message:
"This page is accessing information that is not under=20
its control. This poses a security risk. Do you want to=20
continue?"
when this code was executed:
=20
...
...
on error resume next
set Req =3D CreateObject("MSXML2.XMLHTTP.2.6")
set Fso =3D CreateObject("Scripting.FileSystemObject")
set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -1)
if (err.number <> 0) then
if (LCase(Right(sFileName, 4)) <> ".xml") then
err.clear
sFileName =3D sFileName & ".xml"
set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -1)
end if
if (err.number <> 0) then
showErrorDlg L_Error_DialogTitle, _
L_ErrorOpeningFileForImport_ErrorMessage
, _
err.description, _
ERROR_ICON_ALERT
err.clear
exit sub
end if
end if
<%
' check for UTF-8 signature
%>
dim sPrefix, b1, b2, b3
sPrefix =3D Stm.Read(3)
b1 =3D AscB (MidB (sPrefix,1,1))
b2 =3D AscB (MidB (sPrefix,2,1))
b3 =3D AscB (MidB (sPrefix,3,1))
if (b1 =3D 239) and (b2 =3D 187) and (b3 =3D 191) then
dim oXMLDocument
set Stm =3D Nothing
set oXMLDocument =3D CreateObject("MSXML.DOMDocument")
oXMLDocument.async =3D False
call oXMLDocument.Load (sFileName)
else
set Stm =3D Nothing
set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -2)
end if
dtNow =3D Now()
.file_name.value =3D "Catalog" & _
Month(dtNow) & Day(dtNow) & Year(dtNow) & _
Hour(dtNow) & Minute(dtNow) & Second(dtNow)
sServerPath =3D "http://" & .server_name.value & "/" & _
.server_path.value & .file_name.value
call Req.open("PUT", sServerPath, False)
call Req.setRequestHeader("Translate", "f")
call Req.setRequestHeader("Content-Type", "text/xml")
...
...
I saw it issued that message when reaching the line:
"call Req.open("PUT", sServerPath, False)"
What can I do?, please help me.
Thank a lot.
>-----Original Message-----
>Take a look at the catalog import feature from Business=20
Desk. It uses=20
>WebDav to transfer the file contents when uploading from=20
a client location.
>
>-djm
>--=20
>This posting is provided "AS IS" with no warranties, and=20
confers no rights.
>You assume all risk for your use. =A9 2004 Microsoft=20
Corporation. All rights
>reserved.
>
>--------------------
>Content-Class: urn:content-classes:message
>From: "Candy" <anonymous@discussions.microsoft.com>
>Sender: "Candy" <anonymous@discussions.microsoft.com>
>Subject: Upload file.................
>Date: Fri, 16 Jul 2004 19:32:00 -0700
>Lines: 13
>Message-ID: <2ead001c46ba6$3cdb6190$a501280a@phx.gbl>
>MIME-Version: 1.0
>Content-Type: text/plain;
> charset=3D"iso-8859-1"
>Content-Transfer-Encoding: 7bit
>X-Newsreader: Microsoft CDO for Windows 2000
>X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
>Thread-Index: AcRrpjzbVMTwFK0XRvKoPwWP4VUtKA=3D=3D
>Newsgroups: microsoft.public.commerceserver.businessdesk
>Path: cpmsftngxa06.phx.gbl
>Xref: cpmsftngxa06.phx.gbl=20
microsoft.public.commerceserver.businessdesk:6330
>NNTP-Posting-Host: tk2msftngxa13.phx.gbl 10.40.1.165
>X-Tomcat-NG: microsoft.public.commerceserver.businessdesk
>
>
> Anyone can help me?
>
> I try coding to tranfer file from BizDesk client to=20
>server. I can't find any documents, samples....... to=20
help=20
>me about that.
>
> If you know, please help me...
>
> Thanks a lot
>
> Candy
> =20
>
| |
| David Messner [MSFT] 2004-07-25, 5:52 pm |
| Hmm, that's an IE security warning. I'm not sure if there's a way to turn
it off. Maybe someone else on the forum knows. Otherwise, you might post
your IE related questions to one of the IE newsgroups.
Good luck!
-djm
--
This posting is provided "AS IS" with no warranties, and confers no rights.
You assume all risk for your use. © 2004 Microsoft Corporation. All rights
reserved.
--------------------
Content-Class: urn:content-classes:message
From: "Candy" <anonymous@discussions.microsoft.com>
Sender: "Candy" <anonymous@discussions.microsoft.com>
References: <2ead001c46ba6$3cdb6190$a501280a@phx.gbl>
<edSZsHebEHA.2924@cpmsftngxa06.phx.gbl>
Subject: RE: Upload file.................
Date: Wed, 21 Jul 2004 00:09:56 -0700
Lines: 123
Message-ID: <117701c46ef1$ba8e7b10$a301280a@phx.gbl>
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-Newsreader: Microsoft CDO for Windows 2000
Thread-Index: AcRu8bqMtkt3i+8UT/OVvjchfdZaaw==
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
Newsgroups: microsoft.public.commerceserver.businessdesk
Path: cpmsftngxa06.phx.gbl
Xref: cpmsftngxa06.phx.gbl microsoft.public.commerceserver.businessdesk:6337
NNTP-Posting-Host: tk2msftngxa11.phx.gbl 10.40.1.163
X-Tomcat-NG: microsoft.public.commerceserver.businessdesk
Hi David, thank for your helping.
I created a file to manage uploading file, but I always
received this message:
"This page is accessing information that is not under
its control. This poses a security risk. Do you want to
continue?"
when this code was executed:
...
...
on error resume next
set Req = CreateObject("MSXML2.XMLHTTP.2.6")
set Fso = CreateObject("Scripting.FileSystemObject")
set Stm = Fso.OpenTextFile (sFileName, 1, False, -1)
if (err.number <> 0) then
if (LCase(Right(sFileName, 4)) <> ".xml") then
err.clear
sFileName = sFileName & ".xml"
set Stm = Fso.OpenTextFile (sFileName, 1, False, -1)
end if
if (err.number <> 0) then
showErrorDlg L_Error_DialogTitle, _
L_ErrorOpeningFileForImport_ErrorMessage
, _
err.description, _
ERROR_ICON_ALERT
err.clear
exit sub
end if
end if
<%
' check for UTF-8 signature
%>
dim sPrefix, b1, b2, b3
sPrefix = Stm.Read(3)
b1 = AscB (MidB (sPrefix,1,1))
b2 = AscB (MidB (sPrefix,2,1))
b3 = AscB (MidB (sPrefix,3,1))
if (b1 = 239) and (b2 = 187) and (b3 = 191) then
dim oXMLDocument
set Stm = Nothing
set oXMLDocument = CreateObject("MSXML.DOMDocument")
oXMLDocument.async = False
call oXMLDocument.Load (sFileName)
else
set Stm = Nothing
set Stm = Fso.OpenTextFile (sFileName, 1, False, -2)
end if
dtNow = Now()
.file_name.value = "Catalog" & _
Month(dtNow) & Day(dtNow) & Year(dtNow) & _
Hour(dtNow) & Minute(dtNow) & Second(dtNow)
sServerPath = "http://" & .server_name.value & "/" & _
.server_path.value & .file_name.value
call Req.open("PUT", sServerPath, False)
call Req.setRequestHeader("Translate", "f")
call Req.setRequestHeader("Content-Type", "text/xml")
...
...
I saw it issued that message when reaching the line:
"call Req.open("PUT", sServerPath, False)"
What can I do?, please help me.
Thank a lot.
>-----Original Message-----
>Take a look at the catalog import feature from Business
Desk. It uses
>WebDav to transfer the file contents when uploading from
a client location.
>
>-djm
>--
>This posting is provided "AS IS" with no warranties, and
confers no rights.
>You assume all risk for your use. © 2004 Microsoft
Corporation. All rights
>reserved.
>
>--------------------
>Content-Class: urn:content-classes:message
>From: "Candy" <anonymous@discussions.microsoft.com>
>Sender: "Candy" <anonymous@discussions.microsoft.com>
>Subject: Upload file.................
>Date: Fri, 16 Jul 2004 19:32:00 -0700
>Lines: 13
>Message-ID: <2ead001c46ba6$3cdb6190$a501280a@phx.gbl>
>MIME-Version: 1.0
>Content-Type: text/plain;
> charset="iso-8859-1"
>Content-Transfer-Encoding: 7bit
>X-Newsreader: Microsoft CDO for Windows 2000
>X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
>Thread-Index: AcRrpjzbVMTwFK0XRvKoPwWP4VUtKA==
>Newsgroups: microsoft.public.commerceserver.businessdesk
>Path: cpmsftngxa06.phx.gbl
>Xref: cpmsftngxa06.phx.gbl
microsoft.public.commerceserver.businessdesk:6330
>NNTP-Posting-Host: tk2msftngxa13.phx.gbl 10.40.1.165
>X-Tomcat-NG: microsoft.public.commerceserver.businessdesk
>
>
> Anyone can help me?
>
> I try coding to tranfer file from BizDesk client to
>server. I can't find any documents, samples....... to
help
>me about that.
>
> If you know, please help me...
>
> Thanks a lot
>
> Candy
>
>
| |
|
|
Thank you very much, David 
=20
>-----Original Message-----
>Hmm, that's an IE security warning. I'm not sure if=20
there's a way to turn=20
>it off. Maybe someone else on the forum knows. =20
Otherwise, you might post=20
>your IE related questions to one of the IE newsgroups.
>
>Good luck!
>
>-djm
>--=20
>This posting is provided "AS IS" with no warranties, and=20
confers no rights.
>You assume all risk for your use. =A9 2004 Microsoft=20
Corporation. All rights
>reserved.
>
>--------------------
>Content-Class: urn:content-classes:message
>From: "Candy" <anonymous@discussions.microsoft.com>
>Sender: "Candy" <anonymous@discussions.microsoft.com>
>References: <2ead001c46ba6$3cdb6190$a501280a@phx.gbl>=20
><edSZsHebEHA.2924@cpmsftngxa06.phx.gbl>
>Subject: RE: Upload file.................
>Date: Wed, 21 Jul 2004 00:09:56 -0700
>Lines: 123
>Message-ID: <117701c46ef1$ba8e7b10$a301280a@phx.gbl>
>MIME-Version: 1.0
>Content-Type: text/plain;
> charset=3D"iso-8859-1"
>Content-Transfer-Encoding: quoted-printable
>X-Newsreader: Microsoft CDO for Windows 2000
>Thread-Index: AcRu8bqMtkt3i+8UT/OVvjchfdZaaw=3D=3D
>X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
>Newsgroups: microsoft.public.commerceserver.businessdesk
>Path: cpmsftngxa06.phx.gbl
>Xref: cpmsftngxa06.phx.gbl=20
microsoft.public.commerceserver.businessdesk:6337
>NNTP-Posting-Host: tk2msftngxa11.phx.gbl 10.40.1.163
>X-Tomcat-NG: microsoft.public.commerceserver.businessdesk
>
> Hi David, thank for your helping.
> I created a file to manage uploading file, but I always=20
>received this message:
> "This page is accessing information that is not under=20
>its control. This poses a security risk. Do you want to=20
>continue?"
> when this code was executed:
> =20
> ...
> ...
> on error resume next
> set Req =3D CreateObject("MSXML2.XMLHTTP.2.6")
> set Fso =3D CreateObject("Scripting.FileSystemObject")
> set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -1)
> if (err.number <> 0) then
> if (LCase(Right(sFileName, 4)) <> ".xml") then
> err.clear
> sFileName =3D sFileName & ".xml"
> set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -1)
> end if
> if (err.number <> 0) then
> showErrorDlg L_Error_DialogTitle, _
> L_ErrorOpeningFileForImport_ErrorMessage
, _
> err.description, _
> ERROR_ICON_ALERT
> err.clear
> exit sub
> end if
> end if
><%
> ' check for UTF-8 signature
>%>
> dim sPrefix, b1, b2, b3
> sPrefix =3D Stm.Read(3)
> b1 =3D AscB (MidB (sPrefix,1,1))
> b2 =3D AscB (MidB (sPrefix,2,1))
> b3 =3D AscB (MidB (sPrefix,3,1))
> if (b1 =3D 239) and (b2 =3D 187) and (b3 =3D 191) then
> dim oXMLDocument
> set Stm =3D Nothing
> set oXMLDocument =3D CreateObject("MSXML.DOMDocument")
> oXMLDocument.async =3D False
> call oXMLDocument.Load (sFileName)
> else
> set Stm =3D Nothing
> set Stm =3D Fso.OpenTextFile (sFileName, 1, False, -2)
> end if
> dtNow =3D Now()
> .file_name.value =3D "Catalog" & _
> Month(dtNow) & Day(dtNow) & Year(dtNow) & _
> Hour(dtNow) & Minute(dtNow) & Second(dtNow)
> sServerPath =3D "http://" & .server_name.value & "/" & _
> .server_path.value & .file_name.value
> call Req.open("PUT", sServerPath, False)
> call Req.setRequestHeader("Translate", "f")
> call Req.setRequestHeader("Content-Type", "text/xml")
> ...
> ...
> I saw it issued that message when reaching the line:
>"call Req.open("PUT", sServerPath, False)"
> What can I do?, please help me.
> Thank a lot.
>Desk. It uses=20
>a client location.
>confers no rights.
>Corporation. All rights
>microsoft.public.commerceserver.businessdesk:6330
>help=20
>
|
|
|
|
|