📄 list.asp
字号:
<%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/SelectValue.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
Dim ObjDB,StrSQL,ObjRS
Dim IntParentID
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
IntParentID = Request.QueryString("ParentID")
IntPageSize = 16
IntPageNO = Request.QueryString("PageNO")
If IntParentID = "" Then IntParentID = 0
If IntPageNO = "" Then
IntPageNO = 1
Else
IntPageNO = Cint(IntPageNO)
End If
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDBH ObjDB
Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)
StrSQL = "Select Pos,ID,AccountID From V_Hrms_Dep_Pos Where ID = " & IntParentID
Set ObjRS = ObjDB.Execute(StrSQL)
If ObjRS.EOF Then
Response.Write "<body background='../../../../images/bg_1.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()获得总返回的列数
Sub Main
%>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=2%><input type=checkbox id=0 name=ITEM></td>
<td width=30%>序号</td>
<td width=30%>岗位</td>
</tr>
<%
For i = 0 To IntRows
%>
<tr class=Ltr name=ITEMTR id=<%=ArrList(2,i)%>>
<td><input type=checkbox name=ITEM id=<%=ArrList(2,i)%>></td>
<td><%=SelectValueView(ObjDB,"Select ID,DepName from T_Hrms_Dep",CStr(ArrList(1,i)))%></td>
<td><%=SelectValueList(ObjDB,"Select ID,JobName from T_Hrms_Sys_Job",CStr(ArrList(0,i)))%></td>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -