📄 list.asp

📁 功能齐全的oa系统
💻 ASP
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.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 StrSQL,objRS,conn,RSRole,StrSQLRole,objDB
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim StrWhere

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

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
StrSQLRole="select isall from V_CRM_SubRoles where ID="&int(Session("AccountID"))
Set RSRole=Server.CreateObject("Adodb.Recordset")
RSRole.open StrSQLRole,ObjDB,1,3
if RSRole("isall")=0 Then
	If StrWhere = "" Then
  		'StrSQL = "Select Kingcrm.dbo.T_CRM_Bargain.ID,ProName,B_start,B_time,B_jia,B_yi,B_state FROM Kingcrm.dbo.T_CRM_Bargain,OA.dbo.t_OA_SYS_Department_Account where Kingcrm.dbo.T_CRM_Bargain.Bcreater=OA.dbo.t_OA_SYS_Department_Account.AccountID order by Kingcrm.dbo.T_CRM_Bargain.ID"
   		StrSQL="SELECT Kingcrm.dbo.T_CRM_Bargain.ID,ProName,B_start,B_time,B_jia,B_yi,B_state FROM Kingcrm.dbo.T_CRM_Bargain,OA.dbo.t_OA_SYS_Department_Account where Kingcrm.dbo.T_CRM_Bargain.Bcreater=OA.dbo.t_OA_SYS_Department_Account.AccountID and OA.dbo.t_OA_SYS_Department_Account.DepID in (select DepID from OA.dbo.t_OA_SYS_Department_Account where OA.dbo.t_OA_SYS_Department_Account.AccountID="&Session("AccountID")&") order by Kingcrm.dbo.T_CRM_Bargain.ID"
	Else
 
  		StrSQL = "SELECT Kingcrm.dbo.T_CRM_Bargain.ID,ProName,B_start,B_time,B_jia,B_yi,B_state FROM Kingcrm.dbo.T_CRM_Bargain,OA.dbo.t_OA_SYS_Department_Account where Kingcrm.dbo.T_CRM_Bargain.Bcreater=OA.dbo.t_OA_SYS_Department_Account.AccountID and OA.dbo.t_OA_SYS_Department_Account.DepID in (select DepID from OA.dbo.t_OA_SYS_Department_Account where OA.dbo.t_OA_SYS_Department_Account.AccountID="&Session("AccountID")&")"&StrWhere & "order by Kingcrm.dbo.T_CRM_Bargain.ID"
  		'response.Write StrSQL
  		'Response.End
	End If
elseif RSRole("isall")=1 Then
	If StrWhere = "" Then
  		StrSQL = "Select ID,B_text,B_start,B_time,B_jia,B_yi,B_state From T_CRM_Bargain order by ID"
	Else
 		StrSQL = "Select ID,B_text,B_start,B_time,B_jia,B_yi,B_state From T_CRM_Bargain where 1 = 1"& StrWhere & "order by ID"
  	End If
End if
RSRole.close
set RSRole=Nothing
ObjDB.close
set ObjDB=Nothing
	
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )

Set ObjRS = conn.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(conn)
ArrList = C.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
IntPageCount = C.GetPageCount()					        '使用GetPageCount()函数获得总页码
IntRows = C.GetRows()							              '使用GetRows()获得总返回的行数
IntCols = C.GetCols()							              '使用GetCols()获得总返回的列数

conn.Close
Set conn = Nothing

Sub Main

	<!-- #include virtual="include/DataEnvi.asp" -->
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr>
		<td width=1%><input type=checkbox id=0 name=ITEM></td>
		<td width=4%>编号</td>
		<td width=6%>项目名称</td>
		<td width=6%>签署日期</td>
		<td width=6%>合同期限</td>
		<td width=14%>甲方</td>
		<td width=14%>乙方</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><%=ArrList(0,i)%></td>
		<td><%=ArrList(1,i)%></td>
		<td><%=ArrList(2,i)%></td>
		<td><%=ArrList(3,i)%></td>
		<td><%=ArrList(4,i)%></td>
		<td><%=ArrList(5,i)%></td>



<%
    
%>

<%
	Next		
%>
	</table>
<%
	PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明

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