Jag har ett enkelt asp-formulär som skickar data till en MS SQL. Jämter finns en funktion för att ladda upp filer till en mapp på servern. Jag skulle vilja ha en funktion där jag kan bläddra (inom en mapp) mig fram till den filen jag vill ha på servern för att sedan få in det värdet i formuläret. Sidan med formuläret är skrivet i J-script. Någon som har någon lösning? Enklast är väl att använda Detta kanske kan vara till hjälp 2 filer albauploadform.asp och albauploascript.asp. Det finns lite kvar att göra på scriptet t ex så är där kryssrutor framför varje filnamn som jag tänkt koppla till en tabort-funktion men den är inte klar ännu.Välja fil på servern i ett formulär
Sv: Välja fil på servern i ett formulär
<code>
<input type="file" ... />
</code>
i formuläret?Sv:Välja fil på servern i ett formulär
Lägg bägge filerna i en mapp med namnet dokument, Ändra rad 13 i albauploadscript till din sökväg i servern men behåll namnet den sista delen i sökvägen (dokument).
albauploadform.asp
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Upload</TITLE>
<link REL="stylesheet" TYPE="text/css" href="style2.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
Dim fs
Dim fo
Dim MyDirectory
Dim MyFiles
Dim Filefound
'Definiera sökväg
Session("sokvag") = Session("sokvag") & "../dokument/" & Request.QueryString("sv")
If Request.QueryString("sv") = "start" Then
Session("sokvag") = ""
End If
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder(Server.MapPath(Session("sokvag")))
'Städa upp
Set fo=nothing
Set fs=nothing
%>
<FONT FACE="Arial" size="2">
<B><br>
<div align="center">
<table border="0" width="740" bgcolor="#E7ECF7" cellspacing="0" cellpadding="0">
<tr>
<td width="15" valign="top" height="20">
</td>
<td width="330" valign="top" height="20">
</td>
<td valign="top" height="20" align="center"> </td>
<td valign="top" height="20" width="340">
<tr>
<td width="15" valign="top">
</td>
<td width="330" valign="top">
<form method="POST" action="tabort_filer.asp">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<FONT FACE="Arial" size="2">
Visar filer i:
</font>
</td>
<td> </td>
<td>
<FONT FACE="Arial" size="2">
<B>
<input type="text" name="T1" size="28" style="background-color: #F2F2F2" value="<%= Session("sokvag") %>"></b></font></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#E7ECF7" height="20" style="border-left: 1px solid #FFFFFF; border-right: 1px solid #666666; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #666666" width="180">
<span style="background-color: #E7ECF7">Name:</span></td>
<td bgcolor="#E7ECF7" height="20" style="border-left: 1px solid #FFFFFF; border-right: 1px solid #666666; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #666666" width="60">
<span style="background-color: #E7ECF7">Storlek(b)</span></td>
<td bgcolor="#E7ECF7" height="20" style="border-left: 1px solid #FFFFFF; border-right: 1px solid #666666; border-top: 1px solid #FFFFFF; border-bottom: 1px solid #666666" width="60">
<span style="background-color: #E7ECF7">typ</span></td>
</tr>
<tr>
<td style="border-right:2px solid #FFFFFF; border-left:2px solid #666666; border-top:2px solid #666666; border-bottom:2px solid #FFFFFF; " bgcolor="#FFFFFF" height="300" colspan="3" width="400" valign="top">
<b>
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td width="5" height="21"> </td>
<td height="21"> </td>
</tr>
<tr>
<td width="5">
</td>
<td>
<form method=get action=tabort_Filer.asp">
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath(Session("sokvag")))
For Each filefound In MyFiles.files
If right(filefound.name,3) <> "asp" Then
%>
<a target="I1" href="<%= Session("sokvag") %>/<% = filefound.Name %>"><%Response.write "<input type=checkbox name = markering value = tabort>" & filefound.Name %></a>
<%
Response.Write vbcrlf&filefound.Size&vbcrlf&filefound.type&"<br><br>"
'Response.Write vbcrlf&filefound.Size&vbcrlf&filefound.type&"<br><br>"
End If
Next
'Städa upp
Set MyDirectory= Nothing
Set MyFiles= Nothing
%>
</form>
</td>
</tr>
</table>
</b></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
<td valign="middle" align="center">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<form method="POST" action="Albauploadform.asp">
<p>
<FONT FACE="Arial" size="2">
<B>
<input type="submit" value="<-------" name="B12" style="font-size: 8pt; font-weight:bold"></b></font></p>
</form>
</td>
</tr>
<tr>
<td>
<form method="POST" action="javascript:window.close()">
<p>
<FONT FACE="Arial" size="2">
<B>
<input type="submit" value=" Stäng " name="B13" style="font-size: 8pt"></b></font></p>
</form>
</td>
</tr>
</table>
</td>
<td valign="top" width="340">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<FONT FACE="Arial" size="2">
<B>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 height="300" width="100%">
<td bgcolor="#E7ECF7" valign="top" height="68">
<FONT FACE="Arial" size="2">
<FORM NAME="MyForm0" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="Albauploadscript.asp" target="I1">
<div align="left">
<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=0 width="100%" height="100%">
<TD BGCOLOR="#E7ECF7" height="56" valign="top">
<INPUT TYPE=FILE SIZE=40 NAME="FILE4" style="font-size: 8pt"><BR>
<INPUT TYPE=submit VALUE="Upload" style="font-size: 8pt"></TD>
</TABLE>
</div>
</FORM>
</FONT>
</center>
</div>
</td>
</tr>
<tr>
<td bgcolor="#E7ECF7">
<p>
<iframe name="I1" src="Uploadscript.asp" width="330" height="302" marginwidth="1" marginheight="0">
Your browser does not support inline frames or is currently configured not to display inline frames.
</iframe><br>
</p>
</td>
</tr>
</table>
</b></font>
</td>
</tr>
</table>
</table>
</div>
</b></font>
</BODY>
albauploadscript.asp
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
'Använd om filer skall kunna skrivas över.
'Upload.OverwriteFiles = False
'Använd denna om filer ej skall kunna skrivas över, sparar dubbletter som kopior.
Upload.OverwriteFiles = True
On Error Resume Next
'Max filstorlek, kan ändras
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Upload.Save "g:\din sökväg till servere\dokument"
%>
<HTML>
<BODY BGCOLOR="#FFFFFF" topmargin="0" leftmargin="0">
<CENTER>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 width="100%" height="100%">
<TR>
<% For Each File in Upload.Files
If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" or File.Type = "doc" Then %>
<TD ALIGN=CENTER valign="middle">
<IMG SRC="<% = File.FileName%>"><BR><% = File.FileName%><BR>
</TD>
<%
Else
If File.Type = "doc" then
Response.write File.Filename&"<br>"&File.FileName&"<br>"
End if
End if
%>
<TR>
<% Next %>
</TABLE>
</FONT>
<P>
</CENTER>
</BODY>
</HTML>