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

📄 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/MyFunc.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.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,LesCode,LesName,Attachs From T_Hrms_Employees_Train_Lesson Where 1=1 " & Request.QueryString("W")&" order by ID desc" 
		else
		StrSQL = "Select ID,LesCode,LesName,Attachs From T_Hrms_Employees_Train_Lesson order by ID desc"
	End If
		else 
		If Request.QueryString("W")<>"" Then
	  		StrSQL = "Select ID,LesCode,LesName,Attachs From T_Hrms_Employees_Train_Lesson Where 1=1 " & Request.QueryString("W")&" CreatorID='"&ComIDIsAll(ObjDB)&"' Order by ID desc"
		Else
	  		StrSQL = "Select ID,LesCode,LesName,Attachs From T_Hrms_Employees_Train_Lesson 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()获得总返回的列数

	ObjDB.Close
	Set ObjDB = Nothing
		
	

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=35%>培训代号</td>
    <td width=24%>课程名称</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/OA/Private/Data/2.gif" width="16" height="16"> 
	
	<%
	
      If  ArrList(3,i)<>"" Then
%>
        <img src='../../../images/oa/work/commessage/att.gif'>
<%
      End If
%></td>
    <td><%=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 + -