4 svar · 254 visningar · startad av ulsy
Har problem med att få fupload att fungera.
Vill använda detta för att ladda bilder till en MySQL-bas som består av fälten:
BLOB_ID tinyint
BLOBa longblob
Får felmeddelandet: Exception when loading BLOB field.
Anväder följande kod:
<%@LANGUAGE="VBSCRIPT"%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>File Upload Test</TITLE>
</HEAD>
<BODY>
<BR>
<BR>
<CENTER>
<%
If Request.querystring("Status") = 1 Then
Set oUpload = Server.CreateObject("ASPPW.Upload")
'oUpload.UserDiskQuota= 20 * 1024 * 1024
oUpload.RejectEmptyExtension = No
oUpload.FileExtensionList "txt", "gif" ,"jpg", "*" 'remove '*', if you don't allow all types
oUpload.RegistrationCode = ""
oUpload.RemoveUploadedFilesOnError = YES
'Save uploaded file here.
'oUpload.UpLoadPath =
'***********************************************************
****
'Uncomment following lines to save files with a prefix or suffix
'for example, saving abc.gif as Prefix_abc_Suffix.gif.
'oUpload.SaveFileWithPrefix="Prefix_"
'oUpload.SaveFileWithSuffix="_Suffix"
'***********************************************************
****
'***********************************************************
****
'Uncomment following lines to upload a file into a BLOB field.
'Note: BLOB uploading doesn't support uploading multiple files
' at a single time.
' Microsoft ADO is required.
oUpload.BLOBFieldName = "BLOBa"
oUpload.LoadIntoBLOBOnly = True
oUpload.BLOBSQL ="SELECT BLOBa FROM BLOB_TBL WHERE BLOB_ID=1"
oUpload.CONNECTIONSTRING= "driver=MySQL;DB=namn på basen;SERVER=server.se;UID=admin;PWD=12345678"
'***********************************************************
****
i = oUpload.Upload
Select Case i
case 1
sMsg = "File uploading ends normally."
Case -4
sMsg = "User's disk quota full."
Case -5
sMsg = "Path on server for uploading not found or invalid."
Case -6
sMsg = "A file type for uploading is not allowed."
Case -7
sMsg = "Uploading exception."
Case -8
sMsg = "File access failure." 'Check your NTFS directory permission, Add R/W/D to IUSR_xxx
Case -9
sMsg = "Bad Content Header."
Case -11
sMsg = "Exception when loading BLOB field."
case else
sMsg = "Exception. Error Code is: " & i & "."
End Select
Response.write "<H1>" + sMsg + "</H1>"
If oUpload.GetLastErrNum <> 0 Then
Response.write "Error: " & oUpload.GetLastErrDescription & "<BR>"
End if
Response.write CStr(oUpload.NumofUploadedFiles) + " file(s) uploaded. "
If oUpload.LoadIntoBLOBOnly = false Then
Response.write CStr(oUpload.UserDiskSpaceLeft) + " bytes left for more uploading.<BR>"
End if
Set oForm = oUpload.Form 'return a Collection
Set oFiles = oUpload.UploadedFileInfo 'return a Collection
'response.write oFiles.count 'Sample operation to a collection
'Set item = oFiles.item(1) 'Sample operation to a collection
%>
<table width="100%" border="1">
<tr>
<td nowrap>Uploaded File's Name</td>
<td nowrap>Uploaded File's Length</td>
<td nowrap>FORM Item Name</td>
<td nowrap>(Optional) Caption</td>
<td nowrap>Client Side Path</td>
</tr>
<% for each file in oFiles %>
<tr>
<td nowrap><%=file.filename%></td>
<td nowrap><%=file.filelen%></td>
<td nowrap><%=file.formname%></td>
<td nowrap><%=oForm(file.formname)%></td>
<td nowrap><%=file.clipath%></td>
</tr>
<% next %>
</table>
<% 'Another demo
Set file = oFiles("uplfile1")
if file.filename <> "" then
response.write oFiles("uplfile1").formname & ": "
response.write file.filename & " "
response.write CStr(file.filelen) & " bytes "
response.write oForm(file.formname) & "<br>"
end if
Set file = nothing
%>
<%
'***********************************************************
****
'It is easy to delete the uploaded stuff.
'if oFiles.Count >0 then oUpload.DeleteFile server.mappath("/") & "\test\" & oFiles(1).filename
'oUpload.DeleteDir server.mappath("/") & "\test"
'***********************************************************
****
Set oFiles = nothing
%>
<%
'Following codes show you how you how to fetch <FORM> items.
'This COM component uses the BinaryRead method, thus
'you can not fetch form items by using request.form("What").
'According to Microsoft IIS document, this will cause an error.
%>
<p>
<H2>Demonstration of fetching form items: </H2>
<!-- Method 1 -->
<%
response.write "oForm(""Org_Code"").value: " & oForm("Org_Code").value
'response.write "oForm(""Org_Code"").value: " & oForm("Org_Code") 'Same as above
'Set item = oForm("Org_Code")
'Response.write item.value
%>
<!-- Method 2 -->
<table width="80%" border="1">
<tr>
<td>Form Item Name</td>
<td>Form Item Value</td>
</tr>
<% for each item in oForm %>
<tr>
<td><%=item.name%></td>
<td><%=item.value%></td>
</tr>
<% next %>
</table>
<%
Set oForm = nothing
Set oUpload = nothing
End if
%>
<FORM NAME=up ACTION="fupload.asp?Status=1" METHOD="POST" ENCTYPE="multipart/form-data">
<!-- You can specify the filenames for uploaded files as below
ServerName1 ...99
<FORM NAME=up ACTION="fupload.asp?Status=1&ServerName1='aa 1.gif'&ServerName2='bb 2.gif'" METHOD="POST" ENCTYPE="multipart/form-data">
-->
<H1>Upload Files</H1>
<BR>
<!-- Remove below form item if you don't need it. -->
<INPUT TYPE=HIDDEN SIZE=36 NAME="Org_Code" VALUE="Research Dept.">
<!-- Remove above form item if you don't need it. -->
<!-- Remove below form item if you don't need it. -->
<INPUT TYPE=HIDDEN SIZE=36 NAME="uplfile1" VALUE="From Research Dept.">
<!-- Remove above form item if you don't need it. -->
<!-- Remove below form item if you don't need it. -->
<!--INPUT TYPE=HIDDEN SIZE=36 NAME="uplfile2" VALUE="From Development Dept.">
<!-- Remove above form item if you don't need it. -->
<INPUT TYPE=file SIZE=36 NAME="uplfile1">
<!-- ServerName1 -->
<P>
<!-- You can add more if you want to upload more files at a single time -->
<INPUT TYPE=SUBMIT NAME="SUBMIT" VALUE=" Upload ">
<p align="right"><a href="http://www.dalun.com"><font face="Verdana, Arial" size="1">Dalun
Software, Inc. </font></a>
</FORM>
</CENTER>
</BODY>
</HTML>
Mycket tacksam för svar!
Fungerar din connectionsträng
oUpload.CONNECTIONSTRING= "driver=MySQL;DB=namn på basen;SERVER=server.se;UID=admin;PWD=********"
i andra sammanhang? (Skriv inte ut ditt password i ett allmänt forum.)
Heter din databas verkligen "namn på basen"?
Vet du att skriptet går att använda med Mysql?
connectionsträngen har jag testat på annan sida och den fungerar.
Jag har ändrat uppgifterna på db, uid, mm.
Det är gjort för att använda med MySQL enligt min leverantör, de har även installerat serverkomponenten.
Jag testade från början att köra filen till en mapp och namnet in i DB, detta fungerade perfekt. Nu när jag även vill att filen skall in i DB fungerar det inte.
Tackar för att Du försöker hjälpa mig!
Det är väl bäst om du tar kontakt med den som gjort komponenten i och med att felet uppstår när du använder den.
Ja, det är ju helt rätt.
Jag har försökt under en tid men inte lyckats att få kontakt med dem. Tänkte att det kunde vara värt att göra ett försök här då det verkar vara många som är erfarna och hjälpsamma.
Själv har jag försökt lösa detta i många timmar utan att lyckas.