home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / setup3.cab / pak210-x86.exe / RCDATA / CABINET / uploadx.asp < prev    next >
Text File  |  1997-10-23  |  1KB  |  46 lines
  1. <% Response.Buffer = TRUE %>
  2. <% if (Len(Request.ServerVariables("LOGON_USER")) = 0 ) then %>
  3.     <% Response.Status = "401 Unauthorized" %>
  4.     <B>Error: Access is denied.</B><P>
  5. <% end if %>
  6. <HTML>
  7. <HEAD>
  8. <TITLE>File Upload Control</TITLE>
  9. </HEAD>
  10.  
  11. <BODY LEFTMARGIN=20 TOPMARGIN=20 BGCOLOR=#FFFFFF TEXT=#000000 LINK=#FF0066 VLINK=#330099 ALINK=#000000 language="VBS" onload="InitializeControl">
  12.  
  13. <FONT FACE="ARIAL" SIZE=2>
  14.  
  15. <CENTER>
  16. <P><FONT SIZE=5><B>Welcome</B></FONT>
  17. </CENTER>
  18.  
  19. <H3>File Upload</H3>
  20. <P>
  21. You can upload your html content using this control.
  22. <OBJECT
  23.     classid="clsid:886E7BF0-C867-11CF-B1AE-00AA00A3F2C3"
  24.     id=IFlUpl1
  25.     width=100
  26.     height=100
  27.     align=textmiddle
  28.     color=blue
  29.     codebase=http://<%= Request.ServerVariables("SERVER_NAME") %>/FlUpl.cab#Version=6,1,27,0
  30. >
  31. </OBJECT> 
  32. You may drag and drop files onto this. Or double click on it to get a FileOpen dialog.
  33.  
  34. <SCRIPT LANGUAGE="VBS">
  35.  
  36. Sub InitializeControl
  37.     IFlUpl1.CreateTempBinding "http://<%= Request.ServerVariables("SERVER_NAME") %>/users/<%= Request.ServerVariables("LOGON_USER") %>","{8B14B770-748C-11D0-A309-00C04FD7CFC5}"
  38. End Sub
  39.  
  40. </SCRIPT>
  41.  
  42. </FONT>
  43.  
  44. </BODY>
  45. </HTML>
  46.