⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 list.asp

📁 功能齐全的oa系统
💻 ASP
字号:
🔍 
<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<!-- #include virtual="Include/SelectValue.asp" -->
<!-- #include virtual="include/Roles.asp" -->

<%
	Dim ObjDB,StrSQL,ObjRS
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim IntParentID

	if session("AccountID")="" then
%>
<script language=javascript>
  	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
   	Response.End
	end if
	
	IntPageNo	= Request.QueryString("PageNo")
	IntPageSize = 16
	IntParentID = Request.QueryString("ParentID")
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
    OpenDB ObjDB
    
	dim ars
    Set ars = ObjDB.Execute("select t_OA_Sub_SubRoles.isall from t_OA_Sub_SubRoles,t_OA_SYS_Account where t_OA_Sub_SubRoles.SubRoleID=t_OA_SYS_Account.SubRoles and t_OA_SYS_Account.ID="&Session("AccountID"))

	if ars("isall")=1 then
	
	If Request.QueryString("W")<>"" Then
       StrSQL = "Select ID,LesName,Score From V_Hrms_LessonRecordEnd Where 1=1 " & Request.QueryString("W")&" order by ID desc" 
	
	else
		StrSQL = "Select ID,LesName,Score From V_Hrms_LessonRecordEnd order by ID desc"
	End If
	else 
		If Request.QueryString("W")<>"" Then
	  		StrSQL = "Select ID,LesName,Score From V_Hrms_LessonRecordEnde Where 1=1 " & Request.QueryString("W")&" CreatorID='"&ComIDIsAll(ObjDB)&"' Order by ID desc"
		Else
	  		StrSQL = "Select ID,LesName,Score From V_Hrms_LessonRecordEnd Where CreatorID='"&ComIDIsAll(ObjDB)&"'  Order by ID desc"
		End If
	end if
	ars.close
	ObjDB.close


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

	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
	Set C = Server.CreateObject ("CMS2003.DBhandle")

	C.Init(ObjDB)
	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=3%>
<input type=checkbox id=0 name=ITEM  >
    </td>
		
    <td width=4%></td>
		
    <td width=40%>姓名</td>
		
    <td width=15%>成绩</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 align="center"><img src="../../../Images/OA/Private/Data/2.gif" width="16" height="16"></td>
		<td><%=SelectValueView(ObjDB,"Select ID,Name from t_Hrms_Employees_UsersBasic",CStr(ArrList(1,i)))%></td>
		<td><%=ArrList(2,i)%></td>
	</tr>
<%
		Next
%>
	</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -