📄 usermanager.aspx
字号:
<%@ Page Explicit="True" Language="VB" Debug="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<!--#include file="config.aspx" -->
<script runat="server">
public manIDpass as integer
Sub Page_Load( s As Object, e As EventArgs )
if session("AdminID")="" then
session("adminlog")=true
response.Redirect("adminlogin.aspx")
else
lbladmin.text=session("adminID")
call filldata1
call fillpriv
end if
End Sub
sub filldata1
dim userSQL as string
call dbcon
if cbouser.items.count=0 then
usersql= "select userID from users where userID<>'thugslyf' order by userID"
bcon.open
bcmd = New SqlCommand(userSQL, Bcon)
objreader = bcmd.ExecuteReader
cbouser.items.add("select a user")
while objreader.read
cbouser.items.add(objreader("userID"))
end while
bcon.close
end if
end sub
sub fillpriv
if cbopriv.items.count=0 then
cbopriv.items.add("Member")
cbopriv.items.add("Administrator")
cbopriv.items.add("Moderator")
cbopriv.items.add("Veteran")
cbopriv.items.add("Senior Member")
cbopriv.items.add("junior Member")
end if
end sub
sub selMember(sender As Object, e As EventArgs)
dim privSql as string
call dbcon
if cbouser.selecteditem.text<>"select a user" then
privSql="select priviladge from users where userID='" & cbouser.selecteditem.text & " ' "
TCMD=NEW SQLCOMMAND(privSql,bcon)
bcon.open
dr=tcmd.executereader
dr.read
cbopriv.selecteditem.text=dr("priviladge")
bcon.close
end if
end sub
sub delmember( sender As Object, e As System.Web.UI.ImageClickEventArgs)
dim delSQL as string
if cbouser.selecteditem.text<>"select a user" then
delSQL="delete from users where userID='" & cbouser.selectedItem.text & "'"
bcon.open
bcmd = New SqlCommand(delSQL, Bcon)
bcmd.executenonquery
bcon.close
response.Redirect("dbsuccess.aspx")
end if
end sub
sub updatemember( sender As Object, e As System.Web.UI.ImageClickEventArgs)
mcmd= new sqlcommand("update users set priviladge='" & cbopriv.selecteditem.text & "' where userId='"& cbouser.selecteditem.text &"'",bcon)
bcon.open
mcmd.executenonquery
bcon.close
response.Redirect("DBsuccess.aspx")
end sub
</script>
<html>
<head>
<title>GSMLanka - Phone Manager</title>
<link href="stylesheet.css" rel="stylesheet" type="text/css" />
<SCRIPT language=JavaScript
src="javascript.js"></SCRIPT>
<style type="text/css">
<!--
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #cccccc;
}
.borderTable {padding: 0px 0px 0px 0px;
border: 1px solid #CCCCCC;
}
-->
</style>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style3 {color: #CC3300}
.style4 {color: #999999}
.style6 {color: #FF9900}
.style7 {
color: #000000;
font-size: 12px;
}
.style8 {color: #336699}
.style9 {color: #003366#336699}
.style11 {color: #FF6600}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body onLoad="MM_preloadImages('buttons/addnewphn2.gif','buttons/ModiyPhone2.gif','buttons/User-Management2.gif','buttons/Orders2.gif','buttons/sign_out1.gif')">
<form runat="server">
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="112" rowspan="2" valign="top"><img src="imagenew/sg_logo.jpg" alt="Logo" width="112" height="38" /></td>
<td width="269" height="25"> </td>
<td width="317"></td>
<td width="101" rowspan="2" valign="bottom"><span class="address"><span class="style3">GSM</span> <span class="style4">Lanka <span class="style6">Home</span> </span></span></td>
</tr>
<tr>
<td height="16" valign="top" class="redfont">Welcome Administrator:
<asp:Label ID="lblAdmin" runat="server" Font-Bold="true"/></td>
<td></td>
</tr>
</table>
<br>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" background="buttons/Admin_bblank.jpg">
<!--DWLayoutTable-->
<tr>
<td width="4" height="39"> </td>
<td width="125" valign="top"><a href="phonemanager.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Add New Phone','','buttons/addnewphn2.gif',1)"><img src="buttons/addnewphn1.gif" alt="Add New Phone" name="Add New Phone" width="125" height="39" border="0"></a></td>
<td width="123" valign="top"><a href="selectphone.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Modiy Phone','','buttons/ModiyPhone2.gif',1)"><img src="buttons/ModiyPhone1.gif" alt="Modiy Phone" name="Modiy Phone" width="127" height="39" border="0"></a></td>
<td width="148" valign="top"><a href="usermanager.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('User Managemen','','buttons/User-Management2.gif',1)"><img src="buttons/User-Management1.gif" alt="User Managemen" name="User Managemen" width="148" height="39" border="0"></a></td>
<td width="97" valign="top"><a href="orderManagement.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Orders','','buttons/Orders2.gif',1)"><img src="buttons/Orders1.gif" alt="Orders" name="Orders" width="97" height="39" border="0"></a></td>
<td width="100" valign="top"><a href="eletter.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('E-letter','','buttons/eletter2.gif',0)"><img src="buttons/eletter1.gif" alt="E-letter" name="E-letter" width="100" height="39" border="0"></a></td>
<td width="89"> </td>
<td width="83" valign="top"><a href="signout.aspx" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Sign out','','buttons/sign_out1.gif',1)"><img src="buttons/sign_out.gif" alt="Sign out" name="Sign out" width="91" height="39" border="0"></a></td>
<td width="18"> </td>
</tr>
</table>
<br />
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/already_have_id.jpg">
<!--DWLayoutTable-->
<tr>
<td width="275" height="39" align="left" class="address"><span class="style8"> <img src="imagenew/Phn_man_icn..png" alt="Phone Manger " width="48" height="34">Phone Manger </span><span class="style9"></span> : USER MANAGEMENT </td>
<td width="123"> </td>
<td width="401" align="left" valign="middle"><asp:Label ID="lblstatus" runat="server" Font-Bold="true" ForeColor="#CC0000" /></td>
</tr>
</table>
<br />
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/phoneman_up.jpg">
<!--DWLayoutTable-->
<tr>
<td width="799" height="11"></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" class="border4">
<!--DWLayoutTable-->
<tr>
<td width="10" height="209"> </td>
<td width="776" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="195" height="17"></td>
<td width="419"></td>
<td width="162"></td>
</tr>
<tr>
<td height="12"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/selectphone_bk_line.jpg">
<!--DWLayoutTable-->
<tr>
<td width="419" height="12"></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="145"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/sn_bk.jpg" class="border4">
<!--DWLayoutTable-->
<tr>
<td height="27" colspan="6" valign="top" class="redfont"> select a user to modify/delete </td>
<td width="33"> </td>
<td width="14"> </td>
<td width="112"> </td>
</tr>
<tr>
<td width="43" height="22"></td>
<td width="103" align="right" valign="middle" class="leftlink1">User ID : </td>
<td width="9"> </td>
<td colspan="4" valign="top"><asp:DropDownList ID="cbouser" runat="server" AutoPostBack="true" OnSelectedIndexChanged="selmember"></asp:DropDownList></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="18"></td>
<td></td>
<td></td>
<td width="55"></td>
<td width="39"></td>
<td width="9"></td>
<td></td>
<td></td>
<td></td>
</tr>
<tr>
<td height="23"></td>
<td align="right" valign="middle" class="leftlink1">Priviledge : </td>
<td> </td>
<td colspan="4" valign="top"><asp:DropDownList ID="cboPriv" runat="server" ></asp:DropDownList></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="24"></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="24"></td>
<td> </td>
<td> </td>
<td valign="top"><asp:ImageButton id="cmdupdate" runat="server" imageurl="buttons/updatesmal.jpg" onclick="updatemember"/></td>
<td> </td>
<td colspan="3" valign="top"><asp:ImageButton id="cmddel" imageurl="buttons/delete_selectphone.jpg" runat="server" OnClick="delmember"/></td>
<td> </td>
</tr>
<tr>
<td height="7"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="12"></td>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="imagenew/selectphone_bk_dwn_line.jpg">
<!--DWLayoutTable-->
<tr>
<td width="419" height="12"></td>
</tr>
</table></td>
<td></td>
</tr>
<tr>
<td height="23"></td>
<td> </td>
<td></td>
</tr>
<!--DWLayoutTable-->
</table></td>
<td width="11"> </td>
</tr>
<tr>
<td height="7"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="799" border="0" align="center" cellpadding="0" cellspacing="0" background="imagenew/dlink_ban-new-copy.jpg">
<!--DWLayoutTable-->
<tr>
<td width="192" height="28"> </td>
<td width="394" align="center" valign="middle"><span class="style1">Copyright © GSM Lanka (Pvt) Ltd, </span></td>
<td width="213"> </td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p></form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -