list.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 90 行
ASP
90 行
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
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 C,ArrList,i,j,IntRows,IntCols
Dim IntParentID
Dim IntAccountCount,ArrAccount,VarString

IntParentID = Request.QueryString("ParentID")

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

VarString ="<tr><td valign=middle align=center><a href='Account/index.asp?ParentID="&IntParentID&"'  target='_parent'>查看岗位信息</a><td></tr>"

If IntParentID = "" Then IntParentID = 0

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

Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

StrSQL = "Select ID,DepName,Survey From T_Hrms_Dep Where ParentID = " & FixSQL(IntParentID)
'response.write StrSQL 
'response.End()
Set ObjRS = ObjDB.Execute(StrSQL)
If ObjRS.EOF Then
	Response.Write "<body background='../../../images/bg.gif'><table border=0 height='100%' width='100%'><tr><td valign=middle align=center>目前暂时没有设置部门<td></tr></table></body>"
	
	'Response.End
End if

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


ObjDB.Close
Set ObjDB = Nothing

Sub Main
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
<%
	If Cint(IntParentID)<>0 Then 	 
%>
	<tr class=LHtr>
		<td colspan=4>下属部门信息</td>
	</tr>
<%
	End If
%>
	<tr class=LStr>
		<td width=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=1%></td>
		<td width=83%>部门名称</td>
		
    <td width=15%>&nbsp;</td>
	</tr>
<%
	For i = 0 To IntRows
%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><input type=checkbox name=ITEM  id=<%=ArrList(0,i)%>></td>
		<td><img src="../../../images/department.gif"></td>
	<td><%=ArrList(1,i)%></td>
	<td>&nbsp;</td>
	</tr>
<%
	Next		
%>
	</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?
list.asp

list.asp - 源码说明

⌨️ 快捷键说明
