ALI
Posts: 6
|
| Posted: 08/08/2005, 1:45 AM |
|
Hello
Im using godaddy hosting ..when I upload file I m seeing this message ..
"Persits uploading component "Persits" is not found. Please select another or install the component."
-my hosting company support save virtula method
-I edited classes.asp like This
1. in clsUploadControl class
replace
mvarFilesCount = mvarUploadObject.Save
with
mvarFilesCount = mvarUploadObject.SaveVirtual
2. in clsFileElement class
replace
mvarFileObject.SaveAs NewFileName
with
mvarFileObject.SaveAsVirtual NewFileName
---But doesn't work ..
---when i use different upload(Persist)scripts it works.
This is my edited classes.asp code ..
ASP/VBScript Upload or persist
'clsFileElement Class @0-CBEFE57E
Class clsFileElement
Private mvarName
Private mvarUploadObject
Private mvarFileObject
Private mvarSize
Private mvarFileName
Private Sub Class_Initialize()
Set mvarUploadObject = Nothing
Set mvarFileObject = Nothing
mvarFileName = ""
mvarSize = 0
End Sub
Private Sub Class_Terminate()
Set mvarUploadObject = Nothing
Set mvarFileObject = Nothing
End Sub
Public Property Set UploadObject(NewObject)
Set mvarUploadObject = NewObject
End Property
Public Property Get UploadObject()
Set UploadObject = mvarUploadObject
End Property
Public Property Get FileObject()
Set FileObject = mvarFileObject
End Property
Public Property Let Name(ParameterName)
If mvarUploadObject is Nothing Then Exit Property
mvarName = ParameterName
Set mvarFileObject = mvarUploadObject.Files(ParameterName)
If Not mvarFileObject is Nothing Then
mvarFileName = mvarFileObject.FileName
mvarSize = mvarFileObject.Size
End If
End Property
Public Property Get Name()
Name = mvarName
End Property
Public Property Get FileExists()
If Not mvarFileObject is Nothing Then FileExists = (mvarFileName <> "") Else FileExists = False
End Property
Public Property Get Size()
Size = mvarSize
End Property
Public Property Get FileName()
FileName = mvarFileName
End Property
Public Function Save(NewFileName)
Save = False
If mvarFileObject is Nothing Then Exit Function
'mvarFileObject.SaveAs NewFileName
mvarFileObject.SaveAsVirtual NewFileName
Save = True
End Function
End Class
'End clsFileElement Class
*********////////////////////////**********
'clsUploadControl Class @0-17F7FCA8
Class clsUploadControl
Private mvarUploadObject
Private mvarFilesCount
Private mvarFileElements
Private mvarFormElements
Private Sub Class_Initialize()
mvarFilesCount = 0
Set mvarUploadObject = Nothing
Set mvarFileElements = CreateObject("Scripting.Dictionary")
Set mvarFormElements = CreateObject("Scripting.Dictionary")
On Error Resume Next
Set mvarUploadObject = Server.CreateObject("Persits.Upload")
mvarUploadObject.IgnoreNoPost = True
'mvarFilesCount = mvarUploadObject.Save
mvarFilesCount = mvarUploadObject.SaveVirtual
If Err.Number <> 0 Then
Response.Write "UPLOAD component ""Persits"" BULUNAMADI!!."
Response.End
End If
On Error Goto 0
End Sub
Private Sub Class_Terminate()
mvarFileElements.RemoveAll
Set mvarFileElements = Nothing
mvarFormElements.RemoveAll
Set mvarFormElements = Nothing
Set mvarUploadObject = Nothing
End Sub
Public Property Get FilesCount()
FilesCount = mvarFilesCount
End Property
Public Property Get Form(ParameterName)
Dim FormElement
If Not mvarFormElements.Exists(LCase(ParameterName)) Then
Set FormElement = new clsFormElement
Set FormElement.UploadObject = mvarUploadObject
FormElement.Name = ParameterName
mvarFormElements.Add LCase(ParameterName), FormElement
Else
Set FormElement = mvarFormElements.Item(LCase(ParameterName))
End If
Set Form = FormElement
End Property
Public Property Get Files(ParameterName)
Dim FileElement
If Not mvarFileElements.Exists(LCase(ParameterName)) Then
Set FileElement = new clsFileElement
Set FileElement.UploadObject = mvarUploadObject
FileElement.Name = ParameterName
mvarFileElements.Add LCase(ParameterName), FileElement
Else
Set FileElement = mvarFileElements.Item(LCase(ParameterName))
End If
Set Files = FileElement
End Property
End Class
'End clsUploadControl Class
Please Help
I can't find any solution  ((
Thanx
_________________
Thanks |
 |
 |
DonB
|
| Posted: 08/08/2005, 5:25 PM |
|
No problem. Set the project to use one of the other upload components. I
recommend the ASP/VBScript option.
Now, about this GoDaddy hosting thing. They must be the worst on the
planet. I used them briefly and it was abominally slow so I switched to
1planhost. Much better admin features, too.
--
DonB
http://www.gotodon.com/ccbth
|
|
|
|
Jam
|
| Posted: 08/09/2005, 2:14 AM |
|
Quote DonB:
No problem. Set the project to use one of the other upload components. I
recommend the ASP/VBScript option.
Now, about this GoDaddy hosting thing. They must be the worst on the
planet. I used them briefly and it was abominally slow so I switched to
1planhost. Much better admin features, too.
--
DonB
http://www.gotodon.com/ccbth
Hi DonB
Can I edit classes.asp ???
|
|
|
|
DonB
|
| Posted: 08/09/2005, 12:08 PM |
|
Not necessary, to do what I described - that's a Property on the project
(click the top branch of the project explorer and look at the Properties
panel of the CCS).
--
DonB
http://www.gotodon.com/ccbth
"Jam" <Jam@forum.codecharge> wrote in message
news:642f8740094605@news.codecharge.com...
> Quote DonB:
> No problem. Set the project to use one of the other upload components. I
> recommend the ASP/VBScript option.
>
> Now, about this GoDaddy hosting thing. They must be the worst on the
> planet. I used them briefly and it was abominally slow so I switched to
> 1planhost. Much better admin features, too.
>
> --
> DonB
>
> http://www.gotodon.com/ccbth
>
>
>
> Hi DonB
> Can I edit classes.asp ???
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.codecharge.com/
>
|
|
|
|
ALİ
|
| Posted: 08/14/2005, 10:49 PM |
|
if my hosting company permitted only SaveVirtual method ????
Quote DonB:
Not necessary, to do what I described - that's a Property on the project
(click the top branch of the project explorer and look at the Properties
panel of the CCS).
--
DonB
http://www.gotodon.com/ccbth
"Jam" < Jam@forum.codecharge> wrote in message
news:642f8740094605@news.codecharge.com...
> Quote DonB:
> No problem. Set the project to use one of the other upload components. I
> recommend the ASP/VBScript option.
>
> Now, about this GoDaddy hosting thing. They must be the worst on the
> planet. I used them briefly and it was abominally slow so I switched to
> 1planhost. Much better admin features, too.
>
> --
> DonB
>
> http://www.gotodon.com/ccbth
>
>
>
> Hi DonB
> Can I edit classes.asp ???
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.codecharge.com/
>
|
|
|
|
|
