<%
go=Request.QueryString("go")
key=Request.QueryString("key")
if go="update" then
sFileName=Request.QueryString("filename")
if request.querystring("req")<>"" then
set rsid = cn.execute("SELECT MAX(id) AS reqid FROM responses WHERE request=" & request.querystring("req"))
cn.execute("UPDATE responses SET filename='" & sFileName & "' WHERE id=" & rsid("reqid"))
else
cn.execute("UPDATE requests SET filename='" & sFileName & "' WHERE xkey='" & key & "'")
end if
response.write ""
else
Dim oUpload
Dim oFile
Dim sFileName
Dim oFSO
Dim sPath
Dim sNewData
Dim nLength
Dim bytBinaryData
Const nForReading = 1
Const nForWriting = 2
Const nForAppending = 8
' grab the uploaded file data
Set oUpload = New clsUpload
Set oFile = oUpload("filename")
' parse the file name
sFileName = oFile.FileName
If Not InStr(sFileName, "\") = 0 Then
sFileName = Mid(sFileName, InStrRev(sFileName, "\") + 1)
End If
sFileName=year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sFileName
sFileName=replace(sFileName, " ", "_")
' Convert the binary data to Ascii
bytBinaryData = oFile.BinaryData
nLength = LenB(bytBinaryData)
if nLength>uploadlimit then
response.write "
" & lg_filetoobig & "(" & uploadlimit/1024 & "kb)
" & lg_back & ""
else
For nIndex = 1 To nLength
sNewData = sNewData & Chr(AscB(MidB(bytBinaryData, nIndex, 1)))
Next
' Save the file to the file system
sPath = Server.MapPath("..\upload") & "\"
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.OpenTextFile(sPath & sFileName, nForWriting, True).Write sNewData
Set oFSO = Nothing
Set oFile = Nothing
Set oUpload = Nothing
req=request.querystring("req")
Response.Redirect "upload.asp?go=update&req=" & req & "&key=" & key & "&filename=" & sFileName
end if
end if
%>