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 / admin_user.asp < prev    next >
Text File  |  2008-11-29  |  4KB  |  131 lines
  1. <%@language=VBScript%>
  2. <%Option Explicit%>
  3. <html>
  4. <head>
  5. <title>IndianFunWorld</title>
  6. <link href="style.css" rel="stylesheet" type="text/css" />
  7. <!--[if gte IE 5.5]>
  8. <script language="JavaScript" src="ie.js" type="text/JavaScript"></script>
  9. <![endif]-->
  10. </head>
  11. <body>
  12. <div id="header">
  13.       <img src="Images/banner.gif" width="1007" height="140" alt="" /></div>
  14.       <!-- end header -->
  15.       <br>
  16.         <%
  17.       if not(request.cookies("uname")="")then
  18.         response.write "<h4>Welcome to IndianFunWorld "& request.cookies("uname")  &"    <a href=Logout.asp>Logout</a>     <a href=setting.asp>Setting</a>"
  19.         response.write ""
  20.         response.write ""
  21.       else
  22.         response.write "<h4>Welcome to IndianFunWorld Guest</h4>"
  23.       End If
  24.       If not(request.cookies("uname")="")then
  25.           response.write"    <a href=cart.asp>View Cart</a>"
  26.       End If
  27.       If (request.cookies("uname")="admin")then
  28.           response.write"    <a href=admin.asp>Administration Tools</a></h3>"
  29.       End If
  30.       %>
  31. <form method=post action=search.asp>
  32. <input type=text name="searchname">
  33. <select name="type">
  34. <option>All</option>
  35. <option>CD</option>
  36. <option>DVD</option>
  37. </select>
  38. <select name="category">
  39. <option>All</option>
  40. <option>Movie</option>
  41. <option>Application</option>
  42. <option>Game</option>
  43. <option>Music</option>
  44. </select>
  45. <input type=Submit value="Search">
  46. </form>
  47. <div id="wrapper">
  48.       <dl id="browse">
  49.       <ul id="navmenu">
  50.   <li><a href="indexmain.asp">Home</a></li>
  51.   <li><a href="admin_user.asp">Category +</a>
  52.     <ul>
  53.       <li><a href="admin_user.asp">CD+</a>
  54.         <ul>
  55.           <li><a href="cd_movie.asp">Movie</a></li>
  56.           <li><a href="cd_app.asp">Application</a></li>
  57.           <li><a href="cd_game.asp">Games</a></li>
  58.           <li><a href="cd_music.asp">Music</a></li>
  59.         </ul>
  60.       </li>
  61.       <li><a href="admin_user.asp">DVD+</a>
  62.         <ul>
  63.           <li><a href="dvd_movie.asp">Movie</a></li>
  64.           <li><a href="dvd_app.asp">Application</a></li>
  65.           <li><a href="dvd_game.asp">Games</a></li>
  66.           <li><a href="dvd_music.asp">Music</a></li>
  67.         </ul>
  68.       </li>
  69.     </ul>
  70.   </li>
  71.       <li><a href="login.html">Login</a></li>
  72.       <li><a href="register.html">Register</a></li>
  73.       <li><a href="feedback.html">FeedBack!!!</a></li>
  74.         
  75.   <li><a href="Aboutus.html">About Us</a></li>
  76.   <li><a href="Contact.html">Contact Us</a></li>
  77. </ul>
  78. <!-- end navmenu -->
  79. </dl>
  80. <!-- end browse -->
  81.   <div id="inner">
  82.     <div id="body">
  83.       <div class="inner">
  84.       <h1>Available users</h1><br>
  85. <%
  86. dim conn,rec
  87. dim query
  88. set conn=Server.CreateObject("ADODB.Connection")
  89. set rec=Server.CreateObject("ADODB.RecordSet")
  90. conn.Open="Provider=Microsoft.Jet.oledb.4.0;Data Source=C:\Inetpub\wwwroot\IndianFunWorld\db1.mdb"
  91. query="Select * from [user]"
  92. rec.open query,conn
  93.  
  94. %>
  95. <form method=post action=user.asp>
  96. <table border=1 cellspacing=5 align=center>
  97. <tr>
  98. <td><h3>Select</h3></td>
  99. <td align=center><h3>Username</h3></td>
  100. <td><h3>More Info</h3></td>
  101. <td align=center><h3>Delete</h3></td>
  102. </tr>
  103. <%
  104. response.write"<tr>"
  105. do while not rec.EOF
  106. response.write"<td><input type=radio name=user value="& rec.fields(0) &"></td>"
  107. response.write"<td><h3>"& rec.fields(0) &"</h3></td>"
  108. response.write"<td><input type=Submit value='More Info' name=action></td>"
  109. response.write"<td><input type=Submit value='Delete' name=action> </td>"
  110. response.write"</tr>"
  111. rec.movenext
  112. loop
  113. %>
  114. </table>
  115. </form>
  116. <br><br><br><br><br><br><br><br><br><br><br><br><br>
  117.     </div>
  118.     <!-- end inner -->
  119.     </div>
  120.     <!-- end body -->
  121.     <div class="clear"></div>
  122.     <div id="footer">  Best View on Mozilla FireFox at 1024X786 resolution.</div>
  123.     <!-- end footer -->
  124.   </div>
  125.   <!-- end inner -->
  126. </div>
  127. <!-- end wrapper -->
  128.  
  129. </body>
  130. </html>
  131.