Så här ser uppladdningen ut och den fungerar bra, men jag vill lägga till en hyperlänk i tabellen "Mall och (Fältnamn) Resultat samtidigt som jag kör uppladdningen nedan till tabellen "Upload"
<%
Select Case Request("cmd")
Case ""
%>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload2.asp?cmd=upload">
File:<BR><INPUT TYPE=FILE NAME="fil"><P>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
<%
Case "upload"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 100000, True
Count = Upload.Save
Set File = Upload.Files("fil")
If Not File Is Nothing Then
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb")
Set rs = Server.CreateObject("adodb.recordset")
'Optional: check whether this file already exists using MD5 hash
Hash = File.MD5Hash
rs.Open "SELECT * from Upload WHERE Hash='" & Hash & "'", Connect, 2, 3
If Not rs.EOF Then
Response.Write "This file already exists in the database."
Response.End
End If
rs.Close
' Reopen recordset to insert file
rs.Open "Upload", Connect, 2, 3
rs.AddNew
rs("UdBlob") = File.Binary
rs("UdNamn") = File.FileName
rs("UdStorlek") = File.Size
rs("hash") = Hash
rs.Update
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
Länken kommer se ut så här:
<A HREF="download.asp?UdId=1">Resultat</A>
och använda sig av Scriptet download.asp som ser ut så här:
<%
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb")
Set db = Server.CreateObject("ADODB.Connection")
db.Open Connect
SQL = "SELECT * FROM Upload where UdId = " & Request("UdId")
Set rs =db.Execute( SQL )
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(rs("UdNamn"))
Response.AddHeader "Content-Length", rs("UdStorlek")
Response.BinaryWrite rs("UdBlob")
%>
Tabellen Mall har ju ett Id-Fältnamn och ett Resultat-Fältnamn som har Datatypen Hyperläng, hur lägger jag till en hyperlänk i tabell1 när jag laddar upp i Tabell2 ?
