| Datum | <%= now %> |
| bild | <%= fileName %> |
| Ort | <%= kommun %> |
| Namn | <%= namn %> |
| Telefon | <%= telefon %> |
| Rubrik | <%= rubrik %> |
| Epost | <%= epost %> |
| Kategori | <%= kategori %> |
| Kategori | <%= beskriv %> |
<%= namn %>! Tack för besöket
<%
'======================kopling härifrån==================
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("omni.mdb")
' detta är hämtas från form-en från insertx.asp
datum =now
filename = Request.Form("FileName")
Kommun = Request.Form("kommun")
Namn = Request.Form("namn")
Epost = Request.Form("epost")
Telefon = Request.Form("telefon")
Kategori = Request.Form("kategori")
Anno = Request.Form("anno")
Rubrik = Request.Form("rubrik")
Beskrivning = Request.Form("beskriv")
'deklarea som man vill lägga in i databasen
SQL = "Insert Into files(filename,kommun,namn,epost,telefon,kategori,anno,rubrik,beskriv,datum) Values ('"& filename &"','"& Kommun &"','"& Namn &"','" & epost & "','" & telefon & "','" & kategori & "','" & anno & "','" & rubrik & "','" & beskriv & "','" & datum & "')"
'nedre raden tillhör kopplingen och viktigt!
Set rs = Conn.Execute(SQL)
Set rs = nothing
'======================slut=====================
If Err.number = 0 Then
Response.Write "Insertion into Database complete ...
"
Else
Response.Write "Välkommen åter ...
"
End If
%>
```
Permalänk: https://www.webforum.nu/p/697343
## #59 — cupy, 2002-06-13T23:27Z
\--------------------------------------------------------------------------------
loader:
```
<%
' -- Loader.asp --
' -- version 1.2
' Faisal Khan
' [email]faisal@stardeveloper.com[/email]
' [url]www.stardeveloper.com[/url]
' Class for handling binary uploads
Class Loader
Private dict
Private Sub Class_Initialize
Set dict = Server.CreateObject("Scripting.Dictionary")
End Sub
Private Sub Class_Terminate
If IsObject(intDict) Then
intDict.RemoveAll
Set intDict = Nothing
End If
If IsObject(dict) Then
dict.RemoveAll
Set dict = Nothing
End If
End Sub
Public Property Get Count
Count = dict.Count
End Property
Public Sub Initialize
Dim binData
binData = Request.BinaryRead(Request.TotalBytes)
getData binData
End Sub
Public Function getFileData(name)
If dict.Exists(name) Then
getFileData = dict(name).Item("Value")
Else
getFileData = stringToByte("Not Found")
End If
End Function
Public Function getValue(name)
If dict.Exists(name) Then
getValue = CStr(dict(name).Item("Value"))
Else
getValue = "Not Found"
End If
End Function
Public Function getFileName(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = 1 + InStrRev(temp, "\")
getFileName = Mid(temp, tempPos)
Else
getFileName = ""
End If
End Function
Public Function getFilePath(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = InStrRev(temp, "\")
getFilePath = Mid(temp, 1, tempPos)
Else
getFilePath = "Not Found"
End If
End Function
Public Function getFilePathComplete(name)
If dict.Exists(name) Then
getFilePathComplete = dict(name).Item("FileName")
Else
getFilePathComplete = "Not Found"
End If
End Function
Public Function getFileSize(name)
If dict.Exists(name) Then
getFileSize = LenB(dict(name).Item("Value"))
Else
getFileSize = "Not Found"
End If
End Function
Public Function getFileSizeTranslated(name)
If dict.Exists(name) Then
temp = 1 + LenB(dict(name).Item("Value"))
If Len(temp) <= 3 Then
getFileSizeTranslated = temp & " bytes"
ElseIf Len(temp) > 6 Then
temp = FormatNumber(((temp / 1024) / 1000), 2)
getFileSizeTranslated = temp & " megabytes"
Else
temp = FormatNumber((temp / 1024), 2)
getFileSizeTranslated = temp & " kilobytes"
End If
Else
getFileSize = "Not Found"
End If
End Function
Public Function getContentType(name)
If dict.Exists(name) Then
getContentType = dict(name).Item("ContentType")
Else
getContentType = "Not Found"
End If
End Function
Private Sub getData(rawData)
Dim separator
separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
Dim lenSeparator
lenSeparator = LenB(separator)
Dim currentPos
currentPos = 1
Dim inStrByte
inStrByte = 1
Dim value, mValue
Dim tempValue
tempValue = ""
While inStrByte > 0
inStrByte = InStrB(currentPos, rawData, separator)
mValue = inStrByte - currentPos
If mValue > 1 Then
value = MidB(rawData, currentPos, mValue)
Dim begPos, endPos, midValue, nValue
Dim intDict
Set intDict = Server.CreateObject("Scripting.Dictionary")
begPos = 1 + InStrB(1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))
nValue = endPos
Dim nameN
nameN = MidB(value, begPos, endPos - begPos)
Dim nameValue
If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))
midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "FileName", trim(byteToString(midValue))
begPos = 14 + InStrB(endPos + 1, value, stringToByte("Content-Type:"))
endPos = InStrB(begPos, value, ChrB(13))
midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "ContentType", trim(byteToString(midValue))
begPos = endPos + 4
endPos = LenB(value)
nameValue = MidB(value, begPos, endPos - begPos)
Else
nameValue = trim(byteToString(MidB(value, nValue + 5)))
End If
intDict.Add "Value", nameValue
intDict.Add "Name", nameN
dict.Add byteToString(nameN), intDict
End If
currentPos = lenSeparator + inStrByte
Wend
End Sub
End Class
Private Function stringToByte(toConv)
Dim tempChar
For i = 1 to Len(toConv)
tempChar = Mid(toConv, i, 1)
stringToByte = stringToByte & chrB(AscB(tempChar))
Next
End Function
Private Function byteToString(toConv)
For i = 1 to LenB(toConv)
byteToString = byteToString & chr(AscB(MidB(toConv,i,1)))
Next
End Function
%>
```
det var allt hoppas du kan lösa
MVH/cupy
Permalänk: https://www.webforum.nu/p/697344
## #60 — @nders, 2002-06-14T04:19Z
Snälla, använd \[kod\]-taggar så blir koden mer lättläst (mindre svårläst). Långa kodstycken är inte roliga att läsa om du bara paste:ar in dem.
Mvh
Permalänk: https://www.webforum.nu/p/697365
---
Tråden på webben: https://www.webforum.nu/amne/asp/45483-upload/page3
Föregående sida: https://www.webforum.nu/amne/asp/45483-upload/page2.md
Nästa sida: https://www.webforum.nu/amne/asp/45483-upload/page4.md