2 svar · 493 visningar · startad av M.Cheraghi
Hej hej.
Jag har efter en väldigt lång tid börjat småprogrammera i ASP igen, dom få kunskaper jag hade är nästan borta numera. Har vart inne på https://www.aspupload.com och läst deras väldigt bra guider. Men jag lyckas ändå inte få det hela att fungera tråkigt nog! :(
<html>
<!--#include file="dbconn.asp" -->
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
strComment = Upload.Form("strComment")
strSQL = "INSERT INTO tblFlog (kommentar) VALUES ('"& strComment &"')"
conn.execute(strSQL)
set rs = Conn.execute( "select @@IDENTITY from tblFlog")
strID = rs(0)
Path = Server.MapPath("../upload")
File.SaveAs path & "/" & strID & File.Ext
%>
</html>
Det jag vill göra är att:
1. Ladda upp bilden
2. Lägga till en kommentar i databasen
3. Använda ID numret från databasen till att döpa om bilden till det unika numret
4. spara bilden i "../upload" med ID-numret som namn + filändelsen.
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
line 22
Testa detta:
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
for each file in upload.files
strComment = Upload.Form("strComment")
strSQL = "INSERT INTO tblFlog (kommentar) VALUES ('"& strComment &"')"
conn.execute(strSQL)
set rs = Conn.execute( "select @@IDENTITY from tblFlog")
strID = rs(0)
Path = Server.MapPath("../upload")
File.SaveAs path & "/" & strID & File.Ext
next
Du behöver inte spöka ut din kod med funktioner som finns inbyggt.
mannen.jpg
mannen(1).jpg
mannen(2).jpg
' ## ASPJPEG
' ## [url]http://www.aspjpeg.com/[/url]
' ## NO OVERWRITE
Upload.OverwriteFiles = False
' ## ASP SMART UPLOAD
' ## [url]http://www.aspsmart.com/aspSmartUpload/[/url]
' ## CHECK IF FILE EXISTS
DIM fso, myFileName, myArray
DIM strFileName, strExt, intCounter
SET fso = CreateObject("Scripting.FileSystemObject")
myFileName = mySmartUpload.Files.Item(1).FileName
IF fso.fileExists( server.MapPath("\images\" & myFileName ) ) THEN
myArray = split( myFileName, ".", -1, 1)
strFileName = myArray(0)& "_"
intCounter = 1
strExt = "." & myArray(1)
myFileName = strFileName & intCounter & strExt
' ## CHECK FOR DUPLICATES
WHILE (fso.fileExists(server.MapPath("\images\" & myFileName)))
myFileName = strFileName & CInt(intCounter) +1 & strExt
intCounter = intCounter + 1
WEND
END IF