The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Thanks in advance
I want to write the code name of the uploaded image when shown in this figure
Code:
<CENTER>
<TABLE BORDER=1 WIDTH=506 Background="https://encrypted-tbn3.google.com/images?q=tbn:ANd9GcRXTgCb70pk-RNIRvAG3VBhbHxrIzj8lJQGwfy6aGqvG96IUuqE" height="419"> <TR><TD ALIGN=CENTER>
<h1 align="right"> <h1 align="right"> <h1 align="right"> <p align="right"> </p>
<p align="right"> </p>
<p align="right"> </p>
<h1 align="right">
<FONT COLOR="white" FACE="DecoType Naskh" SIZE="5"> Name image</FONT> </center> </marquee></TD></TR></TABLE></center> Add a line to write the image name upload.html
Add a column name of the image inside the Database
Text to show the image with the code name
I need help
نوشته شده در
Which mod does this belong to? Don't recall any upload program which used an "upload.html" file.
If you change that code to asp and response.write format, you could start with something like this. I'm assuming the image name you want displayed is the background image? If so, that name is probably in a field in the database already. So you'd change the (CONDITIONS) to say something like this ENCODED_IMAGE = '" & trim(Request.Form("imagecode")) & "'
If you change that code to asp and response.write format, you could start with something like this. I'm assuming the image name you want displayed is the background image? If so, that name is probably in a field in the database already. So you'd change the (CONDITIONS) to say something like this ENCODED_IMAGE = '" & trim(Request.Form("imagecode")) & "'
Code:
<%
strSql = "SELECT IMAGE_NAME, ENCODED_IMAGE FROM [TABLE] WHERE (CONDITIONS)"
Set rsImage=my_Conn.Execute(strSql)
If not rsImage.EOF Then
strImageName = rsImage("IMAGE_NAME")
strEncodedImage = rsImage("ENCODED_IMAGE")
rsImage.Close
End If
Set rsImage = Nothing
Response.Write "<table align=""center"" border=""1"" width=""506px;"" background=""https://encrypted-tbn3.google.com/images?q=tbn:" & strEncodedImage & """ height=""419"">" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <h1><br /><br /><br /><br /><br /><br /><br /></h1>" & vbNewLine & _
" <font color=""white"" face=""decotype naskh"" size=""5"">" & vbNewLine & _
" "<marquee onmouseover=""this.stop();"" onmouseout=""this.start();""><a href=""" & strImageURL & """ & strImageName & ">" & strImageName & "</a>" & vbNewLine & _
" </marquee>" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
%>