ho questi quesiti:
1...add.asp
<FORM method="post" action="add-process.asp">
........
<td width="79" bgcolor="#000000" height="4" bordercolor="#FFFFFF"><font face="Tahoma" color="#FFCC00" size="1">PICCOLA N.1:</font></td>
<td width="98" bgcolor="#000000" height="4" bordercolor="#FFFFFF" align="left">
<font color="#FFCC00"><input name="foto1" maxlength="40" size="15" value="nofoto.gif" style="color: #FFCC00; font-size: 8 pt; font-weight: bold; background-color: #000000; border-style: solid; border-color: #FFFFFF"></font></td>
-----seleziono il campo foto----------
2....add-process.asp
<%
foto1=Request.Form("foto1")
strSQL="SELECT riferimento FROM tabella1 WHERE riferimento='"& riferimento &"' "
set objRS=server.createObject("ADODB.Recordset")
objRS.Open strSQL, Conn
if objRS.EOF then
'Inserisci perché il riferimento non c'è'
SQL = "INSERT INTO tabella1 (foto1)"
SQL = SQL&"VALUES("&foto1&"')"
Conn.Execute(SQL)
Response.Redirect "riservato.asp"
else
response.Write("Il riferimento è già presente!")
end if
objRS.Close
Set objRS=Nothing
%>
--------permette di salvare il collegamento della foto su database corrispondente a quel recordst----------
3.....salvafoto.htm
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>CONTRATTACI</TITLE>
</HEAD>
<BODY bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp">
<p align="center"><font face="Verdana" size="2">
File : <INPUT TYPE="file" NAME="blob">
<INPUT TYPE="submit" NAME="Enter">
</font>
</FORM>
</center>
<p align="center"><font color="#800000" face="Tahoma" size="3">Salva la
foto</font></td>
</tr>
<tr>
<td width="100%">
<p align="center">[img]../images/logosmall.gif[/img]
</td>
</tr>
</table>
</div>
</BODY>
</HTML>
------questa paginetta permette di selezionare il file da salvare e questa pagina è collegata a .....-------------
4......outputfile.asp
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
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")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<head>
<title></title>
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font face="Verdana" size="2">
File "<%=filename%>" ricevuto con successo</font>
<font size="2" face="Arial">Back</font></P>
------permette di salvare materialmente (la parola è giusta) su ftp la foto------
Il quesito
il quesito
il quesito
e' possibile riportare il codice di salvafoto.htm (che permette di sfogliare all'interno del mio computer e salvarmi su la foto materialemente direttamente su quella pagina) sul file add.asp dove avviene solo un semplice collegamento ad un file? Sto provando a trovare una soluzione per integrare bene i 2 file add-process.asp (che permette di salvare il record nuovo su database) ma contemporaneamente di salvare la foto con lo script di outputfile.asp.....
Sembra facile spiegare ma non lo è cmq il problema è questo se avete bisogno del file upload.asp sono qua
grazie ragazzi...
Rispondi quotando