home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Online_CD_214602362009.psc / IndianFunWorld / add_Disc.asp < prev    next >
Text File  |  2008-11-30  |  7KB  |  153 lines
  1. <%@language=VBScript%>
  2. <%Option Explicit%>
  3. <!--#INCLUDE FILE="clsUploadRequest.asp" -->
  4. <html>
  5. <head>
  6. <title>IndianFunWorld</title>
  7. <link href="style.css" rel="stylesheet" type="text/css" />
  8. <!--[if gte IE 5.5]>
  9. <script language="JavaScript" src="ie.js" type="text/JavaScript"></script>
  10. <![endif]-->
  11. </head>
  12. <body>
  13. <div id="header">
  14.       <img src="Images/banner.gif" width="1007" height="140" alt="" /></div>
  15.       <!-- end header -->
  16.       <br>
  17. <div id="wrapper">
  18.       <dl id="browse">
  19.       <ul id="navmenu">
  20.   <li><a href="indexmain.asp">Home</a></li>
  21.   <li><a href="add_Disc.asp">Category +</a>
  22.     <ul>
  23.       <li><a href="add_Disc.asp">CD+</a>
  24.         <ul>
  25.           <li><a href="cd_movie.asp">Movie</a></li>
  26.           <li><a href="cd_app.asp">Application</a></li>
  27.           <li><a href="cd_game.asp">Games</a></li>
  28.           <li><a href="cd_music.asp">Music</a></li>
  29.         </ul>
  30.       </li>
  31.       <li><a href="add_Disc.asp">DVD+</a>
  32.         <ul>
  33.           <li><a href="dvd_movie.asp">Movie</a></li>
  34.           <li><a href="dvd_app.asp">Application</a></li>
  35.           <li><a href="dvd_game.asp">Games</a></li>
  36.           <li><a href="dvd_music.asp">Music</a></li>
  37.         </ul>
  38.       </li>
  39.     </ul>
  40.   </li>
  41.       <li><a href="login.html">Login</a></li>
  42.       <li><a href="register.html">Register</a></li>
  43.       <li><a href="feedback.html">FeedBack!!!</a></li>
  44.         
  45.   <li><a href="Aboutus.html">About Us</a></li>
  46.   <li><a href="Contact.html">Contact Us</a></li>
  47. </ul>
  48. <!-- end navmenu -->
  49. </dl>
  50. <!-- end browse -->
  51.   <div id="inner">
  52.     <div id="body">
  53.       <div class="inner">
  54.        <%
  55.           dim conn,rec
  56.           dim query
  57.           dim title,image,price
  58.           dim info,category,t
  59.           dim qty,id,action
  60.           set conn=Server.CreateObject("ADODB.Connection")
  61.           set rec=Server.CreateObject("ADODB.RecordSet")
  62.           conn.Open="Provider=Microsoft.Jet.oledb.4.0;Data Source=C:\Inetpub\wwwroot\IndianFunWorld\db1.mdb"
  63.  
  64.           'Uploading Files
  65.               'Upload Class Step 1/4 ------------------------------
  66.                 Response.Expires = 0
  67.                 Server.ScriptTimeout = 10000        'Time-out limit for the file upload in seconds, increase if you expect and allow large files
  68.  
  69.               'Upload Class Step 2/4 ------------------------------
  70.               Dim objUploadRequest : Set objUploadRequest = New UploadRequest
  71.  
  72.               'Initialize and configurate
  73.               With objUploadRequest
  74.                 .UploadLimit = 30000000                'File size limit in Bytes
  75.                 .UploadFolder = "Images/"
  76.                 .AllowedExtensions = "jpg gif"         'Very important to avoid hijacking, otherwise an executable file could be uploaded
  77.                 .Verbose = 1                        'Display info about uploaded file(s): 0 = No / 1 = Yes
  78.                 .RandomName = 0                        'Generate a unique name for uploaded file, extension is kept: 0 = No / 1 = Yes
  79.                 .UploadPrefix = ""                    'Prefix for value names of uploaded files, example: "Uploaded/"
  80.               End With
  81.  
  82.               'Upload Class Step 3/4 ------------------------------
  83.               If objUploadRequest.GetTotalBytes() > 0 Then 'Data has been received
  84.                 'Process upload request (save files and store POST variables)
  85.                 If objUploadRequest.Process() Then
  86.                   'Show request value, use instead of Request("File1") or Request.Form("File1")
  87.                 Else 'Upload limit exceeded
  88.                   Response.Write("<DIV ALIGN=""CENTER""><B>Sorry, your request cannot be completed because:<BR><BR>Maximum allowed size for the file is " & objUploadRequest.GetRoundedKB(objUploadRequest.UploadLimit) & " KB. Your request: " & objUploadRequest.GetRoundedKB(objUploadRequest.GetTotalBytes()) & " KB</DIV>")
  89.                   Response.Write("<META HTTP-EQUIV=""REFRESH"" CONTENT=""5; URL=javascript:history.go(-1)"">")
  90.  
  91.                   'Clean up
  92.                   Set objUploadRequest = Nothing
  93.  
  94.                   Response.End
  95.                 End If
  96.               End If
  97.           
  98.           'Inserting Into Database
  99.           title=trim(objUploadRequest.GetValue("title"))
  100.           image="Images\" & trim(objUploadRequest.GetValue("image"))
  101.           price=trim(objUploadRequest.GetValue("price"))
  102.           info=trim(objUploadRequest.GetValue("info"))
  103.           category=trim(objUploadRequest.GetValue("category"))
  104.           t=trim(objUploadRequest.GetValue("t"))
  105.           qty=trim(objUploadRequest.GetValue("qty"))
  106.           id=objUploadRequest.GetValue("id")
  107.           action=objUploadRequest.GetValue("action")
  108.           
  109.           if(action="Update") Then
  110.               query="UPDATE Disc SET Disc.[Title] = '"& title &"', Disc.[Image] = '"& image &"', Disc.Price = '"& price &"', Disc.Info = '"& info &"', Disc.Category = '"& category &"', Disc.Type = '"& t &"', Disc.Quantity = "& qty &" where ID="& id &" ;"
  111.               conn.Execute(query)
  112.               response.write"<br><h3>Disc Updated Successfully<br><br><a href=admin.asp>Click Here to return on Administrative tool</a></h3>"
  113.           Else
  114.              if(title="" or image="" or price="" or category="" or t="" or qty="") then
  115.                  response.write"<br><h3>Please Fill all fields<br><br><a href=javascript:history.back(1);>Click here to return on admin Tools</a></h3>" 
  116.              else
  117.                    id=1 
  118.                    qty=cint(qty) 
  119.                    rec.open"Select * from [Disc]",conn
  120.                    do while not rec.EOF
  121.                       id=rec.fields(0) 
  122.                       rec.movenext
  123.                    loop
  124.                    id=id+1
  125.                   query="Insert into [Disc] values("& id &",'"& title &"','"& image &"','"& price &"','"& info &"','"& category &"','"& t &"',"& qty &")"
  126.                   conn.Execute(query)
  127.                   response.write"<h3>Disc Added Successfully<br><br><a href=admin.asp>Click Here to return on Administrative tool</a></h3>"
  128.               End If
  129.           End If       
  130.           
  131.           'Upload Class Step 4/4 ------------------------------
  132.           'Clean up
  133.           Set objUploadRequest = Nothing
  134.           %> 
  135.  
  136.       
  137.  <br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>
  138.       
  139.     </div>
  140.     <!-- end inner -->
  141.     </div>
  142.     <!-- end body -->
  143.     <div class="clear"></div>
  144.     <div id="footer">  </div>
  145.     <!-- end footer -->
  146.   </div>
  147.   <!-- end inner -->
  148. </div>
  149. <!-- end wrapper -->
  150.  
  151. </body>
  152. </html>
  153.