webForumDet fria alternativet

Får inte med variabeln

ASP

3 svar · 237 visningar · startad av WebbisNet

Medlem sedan feb. 20032 027 inlägg
Frågan#1

Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra

Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp

Från denna fil

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "/error.asp?msg=wrongFileType"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "/error.asp?msg=fileTooBig"
    File.Delete 
    End If
Next

Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   

Dim objConn
	SET objConn = connect()
	picture = "INSERT INTO tblMotive"
	picture = picture & "(motive,sender,cardOK) "
	picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
	objConn.Execute picture
	%>

<%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>

till denna fil

<%
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.FileName = (Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.ImageFormat = 1
Image.JPEGQuality = 70
Image.Resize 120,80
Image.SaveImage
Set Image = Nothing
%>

<%response.redirect "/motiveUpload.asp?pic="& strFileName &"&a=1&d=1"%>
Medlem sedan mars 20025 907 inlägg
#2

Du måste väl använda request.querystring("pic") på den mottagande sidan istället för bara pic?!

Medlem sedan feb. 20032 027 inlägg
#3

Peeer skrev:

Du måste väl använda request.querystring("pic") på den mottagande sidan istället för bara pic?!

Glömde visst det :-D

Jag har lite nätproblem, kan nån gå in på http://kort.webbisen.com/motiveUpload.asp och kolla om det funkar att ladda upp bild

Medlem sedan feb. 20032 027 inlägg
#4

Re: Får inte med variabeln

WebbisNet skrev:

Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra

Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp

Från denna fil

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "/error.asp?msg=wrongFileType"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "/error.asp?msg=fileTooBig"
    File.Delete 
    End If
Next

Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   

Dim objConn
	SET objConn = connect()
	picture = "INSERT INTO tblMotive"
	picture = picture & "(motive,sender,cardOK) "
	picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
	objConn.Execute picture
	%>

<%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>

till denna fil

<%
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.FileName = (Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.ImageFormat = 1
Image.JPEGQuality = 70
Image.Resize 120,80
Image.SaveImage
Set Image = Nothing
%>

<%response.redirect "/motiveUpload.asp?pic="& strFileName &"&a=1&d=1"%>

Löste det med <%response.redirect "/motiveUpload.asp?pic="& varPic &" &d=1"%> i den andra filen

263 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)