webForumDet fria alternativet

kopiera fil

ASP

2 svar · 146 visningar · startad av evil.sid

Medlem sedan maj 200112 inlägg
Frågan#1

Tjena!

Jag vill kopiera en fil från en lokal dator till en server.

Båda datorerna står hemma hos mig

jag använder mig av koden nedan

<%
	if request.form.count<10 then
%>
			<form action='archive.asp' method='post'>
				<table border='0' cellspacing='0' cellpadding='2'>
					<tr>
						<td>file </td>
						<td colspan='3'><input type='file' name='l_file'></td>
					</tr>
					<tr>
						<td>filename </td>
						<td><input type='text' name='l_link83'></td>
						<td>name </td>
						<td><input type='text' name='l_name'></td>
					</tr>
					<tr>
						<td>author</td>
						<td><input type='text' name='l_author'></td>
						<td>genre </td>
						<td><input type='text' name='l_genre'></td>
					</tr>
					<tr>
						<td>format</td>
						<td><input type='text' name='l_format'></td>
						<td>size </td>
						<td><input type='text' name='l_filesize'></td>
					</tr>
					<tr>
						<td>length</td>
						<td><input type='text' name='l_len'></td>
						<td>year </td>
						<td><input type='text' name='l_year'></td>
					</tr>
				</table>
				<table border='0' cellspacing='0' cellpadding='2'>
					<tr>
						<td valign='top'>description</td>
						<td><textarea cols='55' rows='7' name='l_descript'></textarea></td>
					</tr>
					<tr>
						<td align='right' colspan='2'>
								<input type='submit' value='   send   '>
						</td>
					</tr>
				</table>
			</form>
			<script language=javascript>
				document.forms[0].l_file.focus();
			</script>
<%
	else
		set con=server.createobject("adodb.connection")
		con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\start page\db\links.mdb")
		sql="insert into music (l_link83,l_descript,l_filesize,l_author,l_name,l_year,l_len,l_format,l_genre) values ('"&request.form("l_link83")&"','"&request.form("l_descript")&"','"&request.form("l_filesize")&"','"&request.form("l_name")&"','"&request.form("l_year")&"','"&request.form("l_len")&"','"&request.form("l_format")&"','"&re    quest.form("l_genre")&"')"
		source=request.form("l_file")
		offset=len(source)-instrrev(source,"\")
		dest="http://www.lemonride.d2g.com/achive/" & request.form("l_name")

		call kopiera(source,dest)

	[line 76] sub kopiera(source,dest)
		    set fs = createobject("scripting.filesystemobject") 
		    fs.copyfile source,dest
		    set fs = nothing
		end sub

		response.redirect("archive.asp")
	end if
%>

jag kanske inte är så bra på att beskriva mitt problem men jag hoppas att ni förstår vad jag menar när ni tittar på koden.

tack på förhand
// sid

[Redigerat av evil.sid den 11 dec 2001]

[Redigerat av evil.sid den 11 dec 2001]

[Redigerat av evil.sid den 11 dec 2001]

Medlem sedan juli 20011 084 inlägg
#2

hehe hittade en liten konstig sak
www.lemonríde.d2g.com

Får man ha sådana tecken i en adress? Ska det inte vara vanligt i där? :e

(okej efter att jag besökt din site så tror jag det kan vara problemet)

Medlem sedan maj 200112 inlägg
#3
Körningsfel i Microsoft VBScript fel '800a0046' 

Åtkomst nekad. 

/start page/archive.asp, line 76

...bli felmeddelandet då.

kan det bero på rättigheter?
kör win 2000 server.

//sid

[Redigerat av evil.sid den 11 dec 2001]

268 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
136 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)