📄 edituserlist.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<!--#include file="ckqx.aspx" -->
<html>
<head>
<title>用户编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#CCCCCC">
<form runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../pic/002.png">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="78%"><font color="#FFFFFF"><strong> 用户编辑</strong></font>
</td>
<td width="18%"><a href="adduser.aspx"><strong><font color="#FFFFFF"><img src="../pic/inboxnonew.gif" width="16" height="16" border="0"> 添加</font></strong></a></td>
<td width="4%"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="549" height="380" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
<tr>
<td valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<asp:datagrid runat="server" ID="mygrid"
DataKeyField="id"
AutoGenerateColumns="false"
AllowPaging="true"
PageSize="15"
OnPageIndexChanged="zscpage"
HorizontalAlign="Center"
BorderColor="#CCCCCC"
OnEditCommand="zscedit"
OnDeleteCommand="zscdel"
Width="98%"
>
<headerstyle Font-Bold="true" HorizontalAlign="center" />
<itemstyle HorizontalAlign="center" />
<pagerstyle Mode="numericpages" PageButtonCount="5" HorizontalAlign="right" />
<columns>
<asp:boundcolumn DataField="ousername" HeaderText="用户名(登录名)" />
</columns>
<columns>
<asp:boundcolumn DataField="orealname" HeaderText="真实姓名" />
</columns>
<columns>
<asp:boundcolumn DataField="oworkroom" HeaderText="部门" />
</columns>
<columns>
<asp:boundcolumn DataField="ointostr" HeaderText="权限" />
</columns>
<columns>
<asp:templatecolumn HeaderText="操作">
<itemtemplate>
<asp:linkbutton runat="server" CommandName="edit" Text="编辑" />
<asp:linkbutton runat="server" CommandName="delete" Text="删除" />
</itemtemplate>
</asp:templatecolumn>
</columns>
</asp:datagrid>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
sub page_load(s as object,e as eventargs)
if not (checkqx("a")) then response.redirect("error.aspx")
bindlist()
end sub
sub bindlist()
dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../office.mdb"))
conn.open()
dim objada as new oledbdataadapter("select * from userinfo",conn)
dim ds as new dataset()
objada.fill(ds,"userinfo")
dim dt as datatable=ds.tables("userinfo")
dt.columns.add("ointostr",gettype(string))
dim i,zsta,zend as integer
zsta=mygrid.currentpageindex*15
zend=zsta+14
dim zqxstr()={"网管","高级管理员","普通管理员","普通员工"}
for i=zsta to zend
if i>dt.rows.count-1 then exit for
dt.rows(i)("ointostr")=zqxstr(asc(dt.rows(i)("ointo"))-97)
'由于在数据表中权限是以字母a、b、c、d的形式存储，
'而这四个字母的ascii值分别为97、98、99、100
'所以，由此可得到zqxstr中对应的字串
next
mygrid.datasource=dt
mygrid.databind()
conn.close
end sub
sub zscedit(s as object,e as DataGridCommandEventArgs)
response.redirect("usermodify.aspx?id=" & s.datakeys(e.item.itemindex))
end sub
sub zscdel(s as object,e as DataGridCommandEventArgs)
response.redirect("userdel.aspx?id=" & s.datakeys(e.item.itemindex))
end sub
sub zscpage(s as object,e as DataGridPageChangedEventArgs)
s.currentpageindex=e.newpageindex
bindlist()
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -