 |
|
|
 |
|
 |
Me too vote 3 for this article...
|
|
|
|
 |
|
 |
It is FREE and definitely does a good job.
Leep Boon, Tang
|
|
|
|
 |
|
|
 |
|
 |
In the attach code objUpload.Files.Count is 0
please help
|
|
|
|
 |
|
 |
Hai All
I am using vbsUpload.asp to upload my file to the server but it shows an error Microsoft VBScript runtime (0x800A01FA)
Class not defined: 'vbsUpload'
In my reg.asp, I am calling this vbsUpload file.
I am having all files in a folder namely "Website" in which reg.asp and vbsupload.asp also stored.
Please help me where i am going wrong.Partial Code is also attached. Error line also mentioned and showed here
Content of my reg.asp
***********************
<html xmlns="http://www.w3.org/1999/xhtml>
<form name="form1" method="post" ENCTYPE="multipart/form-data" action="reg.asp">
</HTML>
<%
<!-- #include file="vbsUpload.asp" -->
dim sName, sEmail,sLoc,sCountry,sPhone,sExp,sFunct,sIndus,sSkill,sBasic, sPG,sPosition,sPath
dim oCdoMail, oCdoConf, sConfURL
dim sCollectAll,foo,k
if Request.Form("Action") = "Send" then
sName = Request.Form("Name")
sEmail = Request.Form("email")
sSkill = Request.Form("skill")
sBasic = Request.Form("Basic")
sPG = Request.Form("PG")
sPosition= Request.Form("MnuPos")
sPath= Request.Form("fattach")
Dim objUpload, lngLoop
If Request.TotalBytes > 0 Then
Set objUpload = New vbsUpload 'ERRor line is here
For lngLoop = 0 to objUpload.Files.Count - 1
objUpload.Files.Item(lngLoop).Save sPath
Response.Write "File Uploaded"
Next
'other code continues
End if
End if
R.Sasikumar
|
|
|
|
 |
|
 |
Im new to asp and i downloaded and make the changes,but its not working,can anyboby help me on writing the atabase connection on this as an example
Plz help
rani
|
|
|
|
 |
|
 |
Hi all,
recently i started to develop some kind of monitors of windows servers. I started using ftp to transfer state changes of disks, processes and services... the monitors work ok..the file transfer is where it fails sometimes. Then i thought: why not use http to transfer the files? it sounded ok.
Now the problem is : how the hell do i do it?
I have this code (from the vbs side):
On Error Resume Next
'Declare variables
Dim objRequest
Dim URL
Set objRequest = CreateObject("Microsoft.XMLHTTP")
'Put together the URL link appending the Variables.
URL = "http://nribeiro2/portais/uploadfile2/Event_File.asp"
'Open the HTTP request and pass the URL to the objRequest object
objRequest.open "POST", URL , True
'Send the HTML Request
objRequest.Send "c:\Urso.ppt"
'Set the object to nothing
Set objRequest = Nothing
and this code from the Process_File.asp
well, in this code i just removed the UI part of the script the rest is intact.
Can someone help me? Please?
Thanks,
Nelson Ribeiro.
|
|
|
|
 |
|
 |
I am uploading 3 files at a time and when i ask for all three I get the following error
Request object error 'ASP 0104 : 80004005'
Operation not Allowed
../CodeLibrary/upload/vbsUpload.asp, line 34
151k pdf , a small png and 71k doc file
Any ideas please
|
|
|
|
 |
|
 |
This nagesh,
i am fresher working on asp.In my module i have user page in that user has the facility to upload file and upload image option.
And in Admin side i want display reports so that when admin clicks on file link it should be downloaded.
i am using Macromedia with asp and sql server2000 plz help me to do the same.
thank you very muchhh
Nagesh
|
|
|
|
 |
|
 |
hi
im doing a project using asp .net and using vb script as front end and ms access as backend.i have a problem that i want to display an excel sheet in excel format in the browser as read only. i dont know how to perform this...
Can anyone help me....
|
|
|
|
 |
|
 |
Hi, this script to upload a file using ASP is very simple and useful. Thanks anyway. But i have a question now, how can i haev some script which i can get the name of the file uploded? coz i wish to store this file name in my DB for 'download' page to function.
Kindly please help me on this matter.... thanks a lot
|
|
|
|
 |
|
 |
hi this is nagesh
I am fresher working on asp in small software company.In my module i have user page in that user has the facility to upload file and upload image option.
And in Admin side i want download the user uploaded file and image depending on users selected from the dropdown.
i am using Macromedia with asp and sql server2000 plz help me to do the same.
i want display all uploaded files like reports so admin can download the files by clicking on links
thank you very muchhh
Nagesh
|
|
|
|
 |
|
 |
thanks alot for this script! comes in handy when you have to work on an old POS website!!!
many thanks
|
|
|
|
 |
|
 |
The code is very nice and helpful. i want to apply these changes :
1) restrict to upload only one file.
2) types only .txt and .doc
3) replace the uploaded file or update it.
4) view the file.
5) size shud be 1 mb
i m using SQl server Db
Please any one can send me the code on
: mervin_ds@yahoo.com
Its urgent !!!!!!!!!!
mervin
|
|
|
|
 |
|
|
 |
|
 |
When I execute process_file.asp I get the following error:
Microsoft VBScript runtime (0x800A004C)
Path not found
/upload/vbsUpload.asp, line 234
What is the mistake I am doing? Please guide me.
|
|
|
|
 |
|
 |
Same thing here...I'm too lazy to count out lines in notepaad...
---mary
|
|
|
|
 |
|
 |
unknown path or directory. u can create new Folder.
objUpload.Files.Item(lngLoop).Save "D:\inetpub\yourFolder\www\uploads"
path server
pls
|
|
|
|
 |
|
 |
I have tried to upload a file to the database using Process_db.asp and it worked fine. However I tried to use the same form to upload two files and I can't seem to get it working. These are the statements I added(in bold):
if getdata("select top 0 * from " & DB,RS) > -1 then
rs.AddNew
rs.Fields("doc_name") = objUpload.Files.Item(0).FileName
rs.Fields("doc_type") = objUpload.Files.Item(0).ContentType
RS("doc_data").AppendChunk objUpload.Files.Item(0).Blob
rs.Fields("doc_name") = objUpload.Files.Item(1).FileName
rs.Fields("doc_type") = objUpload.Files.Item(1).ContentType
RS("doc_data").AppendChunk objUpload.Files.Item(1).Blob
rs.Update
Else
Response.Write "Error"
Response.End
end if
|
|
|
|
 |
|
 |
Hi guys,
i am new to asp and i am using this code on the server side to receive the file which is being posted by a client using HTTP POST multipart/formdata.
i tried using this module and it works just fine. (i have removed all the UI on the Process_File.asp)
<%@ Language=VBScript %>
<!-- #include file="vbsUpload.asp" -->
<form method=post
enctype="multipart/form-data"
action=<%=request.servervariables("script_name")%>>
</form>
<%
Dim objUpload, lngLoop
If Request.TotalBytes > 0 Then
Set objUpload = New vbsUpload
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).SaveAs "D:\Fwds\WebSite1" & "\", "bill.txt"
Response.Write "File Uploaded"
Next
End if
%>
i am sending some parameters along with the file like the content type, filename to be used on the server side from the client.
i want to receive those parameters and use them on the server side. How shud i go abut it?
|
|
|
|
 |
|
 |
Hi, is it possible to modify the script slightly to rename the file as it's uploaded? The new name will be bassed on other fields during the upload.
Thanks
|
|
|
|
 |
|
 |
Hi!
i am also facing the exact problem have u been able to solve this problem? if so, can u please share it with me. thanx!!!
|
|
|
|
 |
|
 |
I wrote an additional method which is practically a clone of the Save method but will allow you to name the uploaded file whatever you like.
This is the Code for the method. Include it in the definition for the vbsFile class in vbsUpload.asp
Public Sub SaveAs(Path, newName)
Dim objFSO, objFSOFile
Dim lngLoop
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFSOFile = objFSO.CreateTextFile(Path & newName)
For lngLoop = 1 to LenB(m_Blob)
objFSOFile.Write Chr(AscB(MidB(m_Blob, lngLoop, 1)))
Next
objFSOFile.Close
End Sub
This is the line I use to call it.
objUpload.Files.Item(lngLoop).SaveAs Server.MapPath("Uploads") & "\", "bill.wmv"
Hope this helped.
|
|
|
|
 |
|
 |
Hello everyone who have posted on this forum!
I am totally a newbie to this. I just downloaded the zip file, unzipped it and copied all the files in the zip folder on the webserver. I absolutely did not make any changes to any of the files.
Now, using Internet Explorer when I open Process_File.asp I get the following error:
Error Type:
Sun ONE ASP VBScript compilation (0x800A0422)
'Default' specification can only be used on Property Get
vbsUpload.asp, line 174, column 25
Line 174 is: Public Default Function Item(Index)
I looked this error on msdn and did not find any information on how to troubleshoot it. MSDN just says "You used the Default reserved word on a Property Let or Property Set. You can only specify the Default reserved word for a Property Get."
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/8499d363-c6e4-4a6d-97b7-52650b7e25d7.asp
I have seen posts that this script works great. However, I got the error at the very first step. Can anyone please tell me how to make this script work?
My email address is elitedude2001@yahoo.com
|
|
|
|
 |