Linux -Blue forest free software | Return to home page | Site Map | Search WWW | Contact Us |
Your current position : Homepage > Free Software > Technological exchanges >Application Programming


    

Blue Forest http://www.lslnet.com at 8:28 on August 25, 2006

Aspupload use


I downloaded aspupload procedures and the installation of the website.
We do not know how to use.
I do not know if the server has not been installed aspupload components.
Now his clients want to upload large files on the machines, wondered okay?
How we should use aspuplaod installed?
Note : A look at do not understand English

End it can be installed, not installed.

ASPUPLOAD I have learned from the example here, you want to help, as follows :

"!--#include File=" conn.asp "TOP 10
"!--#include File=" ubb.asp "TOP 10

<%

'-----------------------------------------------
'Upload components used AspUpload
'-----------------------------------------------
Set upfile = Server.CreateObject ( "Persits.Upload.1")


Fw_size=512000
Server.ScriptTimeOut=60

Dim fileE, ranNum, imgurl, img_name, fw_sort, fw_sppd
FSPath=Server.mappath (. " / ") &" \upload\ " 'Pictures stored in the folder

Upfile.Save 'Upload recorded memory

For Each File in upfile.Files' show Upload File List

Fit=LCase (File.ImageType) 'type of reading Photo
If fit= "unknown" then fit= "" 'is not similar pictures

If fit<> "gif" and fit<> "jpg" and fit<> "" then 'type of documents judge
Set upfile=nothing
Response.Write "" script language=JavaScript> "
Response.Write "alert (" "We only support upload GIF or JPG picture files. ""); "
Response.Write "javascript:history.back (1); "
Response.Write "" /script> "
Response.end
End if
If File.size "fw_size then 'file size judgment
Set upfile=nothing
Response.Write "" script language=JavaScript> "
Response.Write "alert (" "You upload the document beyond our limitations, the biggest" &fw_size/1024& "K!" "); "
Response.Write "javascript:history.back (1); "
Response.Write "" /script> "
Response.end
End if
Next

For Each File in upfile.Files' started posting of documents

FileE=LCase (File.ImageType) 'type of reading Photo
Set oFile=upfile.files (File.Name)

FileE<> if "and" then 'pictures of space-time is not to write
Randomize
RanNum=int (90000*rnd) +10000
Filename= "guest_" &year (now) &month (now) &day (now) &hour (now) &minute (now) &second (now) &ranNum&. " "&fileE
OFile.SaveAs FSPath&FileName
Imgurl=imgurl+filename& "; "
End if
Set oFile=nothing
Next

'Add upload information here

Sql= "select * from house"
Rs.open sgl, conn,1,3
Rs.addnew
       
Rs = ( "mytype") =upfile.form ( "mytype")
Rs = ( "imgurl") =imgurl

Rs.update
Rs.close

Response.Write "" script language=JavaScript> "
Response.Write "alert (" "information dissemination and successful" "); "
Response.Write "window.location= 'http://www.unescap.org/epoc/index.asp'"
Response.Write "" /script> "
%>

If the server does not support aspupload website.
How can this be done?

If the server components such as aspupload\aspjpeg normal installation can be used for any configuration.
Note files can not read English, he can look at the examples.

There are no components installed aspupload services.
This time seeking! !
Http request of the customer, in this way the plane used to uplink the documents.
The problem with this beginners difficult for me, you have a good approach?

Easy!
I downloaded a website to see where uploading files, change bars change bars on the list.

That `no first use components upload bar. . . Upload category without fear. . It's fast. .

Nor was aspupload you use?

I made it ASPUPLOAD code is the code. .




 Privacy Policy  Copyright © 1999-2000 LSLNET.COM. All rights reserved. Blue Forest website owners. E-mail : Webmaster@lslnet.com