Kort fast pa Overrides skript....

7 svar · 315 visningar · startad av crisse6 21 feb. 2003

crisse6Medlem sedan dec. 20002 526 inlägg

Frågan21 feb. 2003 04:35#1

Hej!

Antar att jag har kommit in i en brist pa aspkunskaper igen.. hehe... jaja, kanske inte... far iaf Object Required: " pa denna rad:
CatID = UploadRequest.Item("catID").Item("Value") varfor vet jag ej... sa har ser koden ut:

[red]
Response.Expires=0
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
catID = UploadReqeust.Item("catID").Item("Value")
FileDesc = UploadRequest.Item("desc").Item("Value")
DT = Now()
scriptName = UploadRequest.Item("scriptName").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/UploadedSkript/"& filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & ""

strInsertFile = "INSERT INTO t_Files ([catID], [scriptName], [fileDesc], [dt], [downloaded], [fileURL], [byUser], [Controlled]) "&_
"VALUES("&catID&",'"&scriptName&"','"&FileDesc&"',#"&DT&"#,'0', "&filename&", 'crisse6',False)"
objConn.Execute(strInsertFile)
[/red]

PalleMedlem sedan apr. 20003 174 inlägg

21 feb. 2003 07:20#2

Finns form-fältet catID ??

crisse6Medlem sedan dec. 20002 526 inlägg

22 feb. 2003 03:35#3

Jupp

jupitersMedlem sedan sep. 2002104 inlägg

22 feb. 2003 04:00#4

timmen är sen och jag har inte hållit på med asp-upload men,
vad gör egentligen:

BuildUploadRequest

rad 9

solbulleMedlem sedan mars 20015 287 inlägg

22 feb. 2003 09:46#5

I formuläret, har du: enctype="multipart/form-data"?

Annars om du tar bort just den raden, hur går det då?

crisse6Medlem sedan dec. 20002 526 inlägg

23 feb. 2003 03:17#6

jupiters skrev:

timmen är sen och jag har inte hållit på med asp-upload men,
vad gör egentligen:

BuildUploadRequest

rad 9

den andrar nat med formularen sa det blir ratt eller nat ;), vet bara att man inte kan skriva request.form("namn") nar man kor sant tror jag? jaja, skitsam...

solbulle, har inte mojlighet att testa koden nu, sitter i Chicago... hehe..... men ska gora det nar jag kommer hem, om tva dagar... ville bara kolla om ni visste direkt ;) aterkommer!

crisse6Medlem sedan dec. 20002 526 inlägg

24 feb. 2003 23:10#7

sa har ser det ut nu:

[red]
<%@ LANGUAGE=VBSCRIPT %>
<% OPTION EXPLICIT %>
<% Response.Buffer = TRUE %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
	<title>Laddar upp skript...</title>
</head>

<body>
<!--#include file="db_conn.asp" -->
<%
Dim objConn, byteCount, RequestBin, PosBeg, i, char, PosEnd
Dim boundary, boundaryPos, Pos, intCount, Name, PosFile, PosBound
Dim filename, contentType, value, filepathname
Response.Expires=0
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'catID = UploadReqeust.Item("catID").Item("Value")
FileDesc = UploadRequest.Item("desc").Item("Value")
DT = Now()
scriptName = UploadRequest.Item("scriptName").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/UploadedSkript/"& filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & ""

strInsertFile = "INSERT INTO t_Files ([catID], [scriptName], [fileDesc], [dt], [downloaded], [fileURL], [byUser], [Controlled]) "&_
"VALUES("&catID&",'"&scriptName&"','"&FileDesc&"',#"&DT&"#,'0', "&filename&", 'crisse6',False)"
objConn.Execute(strInsertFile)
%>
<!--#include file="inc_upload.asp"-->
</body>
</html>
[/red]

formularet pa sidan innan ser ut sa har:

[red]
<form method="post" action="outputfile.asp" enctype="multipart/form-data">
Välj ditt skript:<br>
<input type="file" name="blob"><br>
Namn på skriptet:<br>
<input type="text" name="scriptName"><br>
En kort beskrivning av skriptet:<br>
<textarea cols="16" rows="4"></textarea><br>
Välj kategori:<br>
<select name="catID">
<%
Do until rs.eof
response.write "<option value="""&rs("catID")&""">"&rs("catName")&"</option>"
rs.movenext
loop
%>
</select><br><br>
<input type="submit" value="Ladda upp, yo!">
</form>
[/red]

solbulleMedlem sedan mars 20015 287 inlägg

25 feb. 2003 00:08#8

<textarea cols="16" rows="4"></textarea>

Inget namn?

<% OPTION EXPLICIT %>

Det är många variabler du inte dimmar, tex alla formfält...