home *** CD-ROM | disk | FTP | other *** search
/ 202.53.64.216 / 202.53.64.216.tar / 202.53.64.216 / janahitha / Admin / AdsAdminUpdateLogin.asp < prev    next >
Text File  |  2004-11-26  |  7KB  |  175 lines
  1. <%
  2.     if session("AdminLogin")="" then Response.Redirect "default.asp"
  3. %>
  4. <!-- #include file="AdsAdminConstants.asp" -->
  5. <!-- #include file="../AdsOpenConn.asp" -->
  6. <%
  7.     if Request.Form.Count = 0 then
  8.         loginid = Request.querystring("logid")
  9.         if Request.QueryString("mode")="a" then
  10.             mode = "Add"
  11.         else
  12.             mode = "Update"
  13.         end if
  14.         if mode="Update" then
  15.             set rs = server.CreateObject("adodb.recordset")
  16.             sql = "select LoginName, Password from Logins where LoginId=" + loginid
  17.             rs.open sql, con, 3, 3
  18.             loginname = rs("LoginName")
  19.             password = rs("Password")
  20.             rs.close
  21.             set rs = nothing
  22.         end if
  23. %>
  24. <html>
  25.     <head>
  26.         <title> <%=SiteName%> - Welcome </title>
  27.         <meta name="author" content="Jagadish">
  28.         <script language="javascript" src="../func.js"></script>
  29.         <script language="javascript">
  30.             function check()
  31.             {
  32.                 validateform = document.updateloginform;
  33.                 if(isempty(validateform.loginname))
  34.                     validateform.loginname.focus();
  35.                 else
  36.                 if(isempty(validateform.password))
  37.                     validateform.password.focus();
  38.                 else
  39.                     validateform.submit();
  40.             }
  41.         </script>
  42.     </head>
  43.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  44.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  45.         <tr height=1>
  46.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  47.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  48.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  49.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  50.         </tr>
  51.         <tr>
  52.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  53.             <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>
  54.         </tr>
  55.         <tr>
  56.             <td bgcolor="<%=LeftColor%>">   </td>
  57.             <td colspan=2 align=center height=100 bgcolor="<%=OuterTblBGColor%>">
  58.                 <br>
  59.                 <form name="updateloginform" method=post action="<%=Request.ServerVariables("script_name")%>">
  60.                 <table cellpadding=0 cellspacing=0 border=0>
  61.                 <tr> <td bgcolor="<%=TblBorderColor%>">
  62.                 <table cellspacing=1 cellpadding=3 border=0 width=400>
  63.                 <tr bgcolor="<%=TblHeadBGColor%>">
  64.                     <th colspan=2> 
  65.                         <font face=verdana color="<%=TblHeadFGColor%>"> <%=mode%> A Login </font>
  66.                         <input type=hidden name="mode" value="<%=mode%>">
  67.                     </td>
  68.                 </tr>
  69.                 <tr bgcolor="<%=TblBGColor%>">
  70.                     <td width="50%"> 
  71.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Login Name </font> 
  72.                     </td>
  73.                     <td width="50%"> 
  74.                         <input type=text name="loginname" maxlength="20" value="<%=loginname%>">
  75.                     </td>
  76.                 </tr>
  77.                 <tr bgcolor="<%=TblBGColor%>">
  78.                     <td> 
  79.                         <font face="verdana" size=2 color="<%=TblFGColor%>"> Password </font> 
  80.                     </td>
  81.                     <td> 
  82.                         <input type=text name="password" size=8 value="<%=password%>">
  83.                     </td>
  84.                 </tr>
  85.                 </table>
  86.                 </td> </tr>
  87.                 </table>
  88.                 <br>
  89.                 <input type=hidden name="loginid" value="<%=loginid%>">
  90.                 <input type=button value="<%=mode%> The Login" onclick="javascript:check();">
  91.                 </form>
  92.             </td>
  93.             <td bgcolor="<%=RightColor%>">   </td>
  94.         </tr>
  95.         <tr>
  96.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  97.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  98.         </tr>
  99.         </table>
  100.     </body>
  101. </html>
  102. <%
  103.     else
  104.         loginid = Request.Form("loginid")
  105.         loginname = replace(trim(Request.Form("loginname")), "'", "''")
  106.         password = replace(trim(Request.Form("password")), "'", "''")
  107.         mode = Request.Form("mode")
  108.         set rs = server.CreateObject("adodb.recordset")
  109.         msg = ""
  110.         sql = "select count(*) from Logins where LoginName='" + loginname + "'"
  111.         if mode="Update" then sql = sql + " and LoginId<>" + loginid
  112.         rs.open sql, con, 3, 3
  113.         if rs(0)>0 then msg = "Login Already Exists"
  114.         rs.close
  115.         set rs = nothing
  116.         if msg<>"" then
  117. %>
  118. <html>
  119.     <head>
  120.         <title> <%=SiteName%> - Welcome </title>
  121.         <meta name="author" content="Jagadish">
  122.     </head>
  123.     <body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
  124.         <table cellpadding=0 cellspacing=0 border=0 width=780 height=450>
  125.         <tr height=1>
  126.             <td width="100" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  127.             <td width="290" bgcolor="<%=LeftColor%>"><font face=verdana size=1> </font></td>
  128.             <td width="290" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  129.             <td width="100" bgcolor="<%=RightColor%>"><font face=verdana size=1> </font></td>
  130.         </tr>
  131.         <tr>
  132.             <td bgcolor="<%=LeftColor%>" colspan=2 valign=top > <font face="courier new" size=6 color="<%=SiteNameColor%>"> <b>   <%=SiteName%> </b> </font> </td>
  133.             <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>
  134.         </tr>
  135.         <tr>
  136.             <td bgcolor="<%=LeftColor%>">   </td>
  137.             <td colspan=2 align=center height=200 bgcolor="<%=OuterTblBGColor%>">
  138.                 <table cellpadding=2 cellspacing=0 border=0>
  139.                 <tr> <td bgcolor="<%=OuterTblBorderColor%>">
  140.                 <table width="576" bgcolor=<%=OuterTblBGColor%> height=200 border=0 cellpadding=0 cellspacing=0>
  141.                 <tr>
  142.                     <th>
  143.                         <br>
  144.                         <font face=verdana size=2 color="<%=ErrMsgColor%>">
  145.                             <%=msg%> <br> <br>
  146.                             <a href="javascript:history.back();"><font color="<%=ErrMsgColor%>">Back</font></a>
  147.                         </font>
  148.                     </th>
  149.                 </tr>
  150.                 </table>
  151.                 </td> </tr>
  152.                 </table>
  153.             </td>
  154.             <td bgcolor="<%=RightColor%>">   </td>
  155.         </tr>
  156.         <tr>
  157.             <td colspan=2 bgcolor="<%=LeftColor%>">   </td>
  158.             <td colspan=2 bgcolor="<%=RightColor%>">   </td>
  159.         </tr>
  160.         </table>
  161.     </body>
  162. </html>
  163. <%            
  164.         end if
  165.         set rs1=server.CreateObject("ADODB.Recordset")        
  166.         if mode="Add" then
  167.             sql = "insert into Logins(LoginName,Password1) values('" & loginname & "', '" & password & "')"
  168.         elseif mode="Update" then
  169.             sql = "update Logins set LoginName='" + loginname + "', Password1='" + password + "' where LoginId=" + loginid
  170.         end if
  171.         con.Execute sql
  172.         Response.Redirect "AdsAdminViewLogins.asp"
  173.     end if
  174. %>
  175. <!-- #include file="../AdsCloseConn.asp" -->