home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminSaveImage.asp < prev    next >
Text File  |  2004-11-26  |  4KB  |  93 lines
  1. <%@ Language=VBScript %>
  2. <%Response.Buffer=true%>
  3. <HTML>
  4. <HEAD>
  5. <META NAME="Author" Content="Gopi Tanguturi">
  6. </HEAD>
  7. <!-- Calling the upload function in order to upload the data -->
  8. <!--#include file="AdsAdminUpload.asp" -->
  9. <BODY leftMargin="0" topMargin="0" MARGINWIDTH="0" MARGINHEIGHT="0">
  10.  
  11. <%
  12.     totbytes=request.totalbytes
  13.     requestbin=request.binaryread(totbytes)    
  14.     
  15.     'Creating new folder to store the images
  16.     
  17.     set newuserfolderobj=server.CreateObject("Scripting.Filesystemobject")
  18.     if newuserfolderobj.FolderExists(server.MapPath("." & "/" & "images")) =true then
  19.         else
  20.         newuserfolderobj.CreateFolder server.MapPath("." & "/" & "images")
  21.     end if
  22.     set uploadrequest=SERVER.CreateObject("scripting.dictionary")    
  23.  
  24.  
  25.     Builduploadrequest requestbin    'method to upload the image
  26.     
  27.     filepath=uploadrequest.item("fupload").item("FileName")
  28.     filename=right(filepath,len(filepath)-instrrev(filepath,"\"))
  29.     if filename<>"" then
  30.         filecontent=uploadrequest.item("fupload").item("Value")
  31.         
  32.         'Creating the actual Image File
  33.         
  34.         set fso=server.createobject("scripting.filesystemobject")
  35.         set myfile=fso.createtextfile(server.mappath("." & "/" & "images" & "/" & filename))
  36.         session("logopath")=session("name") & "/" & filename
  37.         for i=1 to lenb(filecontent)
  38.             myfile.write chr(ascb(midb(filecontent,i,1)))
  39.         next
  40.         myfile.close
  41.         set fso=nothing
  42.  
  43.     end if
  44. %>
  45. </BODY>
  46. </HTML>
  47. <!--    To display the confirmation after the image is uploaded -->
  48. <html>
  49.     <head>
  50.         <title> <%=SiteName%> - Welcome </title>
  51.         <meta name="author" content="Gopi Tanguturi">
  52.     </head>
  53.     <!-- #include file="AdsAdminConstants.asp" -->
  54.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  55.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  56.         <tr height=1>
  57.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  58.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  59.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  60.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  61.         </tr>
  62.         <tr>
  63.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  64.             <td bgcolor="<%=RightColor%>" colspan=2 align=right valign=top> <font face=verdana size=2> <a href="AdsAdminHome.asp"><font color="<%=TopLinksColor%>">Home</font></a>     <a href="AdsAdminHome.asp?lo"><font color="<%=TopLinksColor%>">Logout</font></a>   </font> </td>
  65.         </tr>
  66.         <tr>
  67.             <td bgcolor="<%=LeftColor%>">   </td>
  68.             <td colspan=2 align=center height=100 bgcolor="<%=OuterTblBGColor%>">
  69.                 <table cellpadding=2 cellspacing=0 border=0>
  70.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  71.                 <table width="576" bgcolor="<%=OuterTblBGColor%>" height=100 border=0 cellpadding=0 cellspacing=0>
  72.                 <tr>
  73.                     <th>
  74.                         <br>
  75.                         <font face=verdana size=2 color="<%=MsgColor%>">
  76.                              Uploaded Successfully <br> <br>
  77.                             <a href="AdsAdminUploadPicture.asp"><font color="<%=MsgColor%>">Upload More Images</font></a>
  78.                         </font>
  79.                     </th>
  80.                 </tr>
  81.                 </table>
  82.                 </td> </tr>
  83.                 </table>
  84.             </td>
  85.             <td bgcolor="<%=RightColor%>">   </td>
  86.         </tr>
  87.         <tr>
  88.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  89.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  90.         </tr>
  91.         </table>
  92.     </body>
  93. </html>