accountlist.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/GetRoleName.asp" -->
<!-- #include virtual="include/DateFunction.asp" -->
<%
Dim intID
intID = Request.QueryString("ID")
%>
<script language=javaScript>
function doEdit()
{
	window.location = "Edit.asp?ID=" + <%=intID%>;
}
</script>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

Dim ObjDB,StrSQL,ObjRS
Dim IntPageCount,IntPageNo,IntPageSize
Dim D,ArrList,i,j,IntRows,IntCols
Dim StrWhere

IntPageNo	= Request.QueryString("PageNo")
StrWhere	= Request.QueryString("W")
IntPageSize = 16

StrSQL = "Select ID,AccountName,TrueName,RoleIDs,CreateTime From V_OA_SYS_Account Where 1=1" & StrWhere

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB

Set D = Server.CreateObject ("CMS2003.DBhandle")

D.Init(ObjDB)
ArrList = D.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
IntPageCount = D.GetPageCount()				   	      '使用GetPageCount()函数获得总页码
IntRows = D.GetRows()							              '使用GetRows()获得总返回的行数
IntCols = D.GetCols()							              '使用GetCols()获得总返回的列数

ObjDB.Close
Set ObjDB = Nothing

Sub Main%>
<%'------------------------------------------------------------------%>

	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=15%>账号</td>
		<td width=85%>真实姓名</td>
	</tr>

	<%
		For i = 0 To IntRows
	%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><%=FixStr(ArrList(0,i))%></td>
		<td><%=FixStr(ArrList(2,i))%></td>
	</tr>

	<%
		Next		
	%>
	</table>
<%
  PageFooter IntPageCount,"PageNo"
%>
<input class=button type=button value="返  回" onclick="doEdit()">
<%
End Sub
%>

<!-- #include virtual="Templet/Templet.asp" -->