webForumDet fria alternativet

aspupload, flera filer i db

ASP

0 svar · 178 visningar · startad av Weedma

Medlem sedan nov. 200125 inlägg
Frågan#1

Ska skriva in några textfält + 5 stycker filer med hjälp av aspupload.. så här ser det ut.
********************************
<%

Set objFile = Server.CreateObject("Persits.Upload.1")
objFile.OverwriteFiles = FALSE
objFile.Save(Server.MapPath("PicsNews"))

'Det ifyllda värdet från formulärfältet hämtas in

datum = objFile.Form("datum")
If datum = "" Then
Response.Redirect("news.asp?fel=ja")
end if

datum = kontroll(datum)

headline = objFile.Form("headline")
If headline = "" Then
Response.Redirect("news.asp?fel=ja")
end if

headline = kontroll(headline)

news = objFile.Form("news")
If news = "" Then
Response.Redirect("news.asp?fel=ja")
end if

news = kontroll(news)

sign = objFile.Form("sign")
If sign = "" Then
Response.Redirect("news.asp?fel=ja")
end if

sign = kontroll(sign)

function kontroll(check)
check = trim(check)
check = replace(check,"'","''")
check = replace(check,"<",".")
check = replace(check,">",".")
check = replace(check,vbCrLf,"<br>")
kontroll = check
end function

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")&";"

SQL = "INSERT INTO WEnews (datum,headline, news, sign,bild01,bild02,bild03,bild04,bild05) VALUES ('" & datum & "','" & headline & "','" & news & "','" & sign & "','"&Mid(objFile.Files("bild01").Path , InStrRev(objFile.Files("bild01").Path, "\"))&"','"&Mid(objFile.Files("bild02").Path , InStrRev(objFile.Files("bild02").Path, "\"))&"','"&Mid(objFile.Files("bild03").Path , InStrRev(objFile.Files("bild03").Path, "\"))&"','"&Mid(objFile.Files("bild04").Path , InStrRev(objFile.Files("bild04").Path, "\"))&"','"&Mid(objFile.Files("bild05").Path , InStrRev(objFile.Files("bild05").Path, "\"))&"');"

Con.Execute(SQL)

Con.close
Set con = nothing

Response.Redirect "news3.asp"

%>
***************************'
felmeddelandet:

Microsoft VBScript runtime error '800a01a8'

Object required: 'objFile.Files(...)'

news2.asp, line 54

************
jag vet inte hur jag ska göra riktigt...
chansade att det skulle vara så här.. men det blir fel.
plz hilfe mir!

/Widman

258 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
127 ms — ändringar (db)