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

📄 list_05.asp

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

if session("AccountID")="" then
%>
<script language=javascript>
 	alert("因登录时间过长，会话失效，请退出重新登陆！")
</script>
<%  
 	Response.End
end if
	
IntAccountID = Session("AccountID")
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16

'StrSQL = "SELECT ID,Title,TrueName,CreateTime,Attachs FROM v_OA_Work_Commessage_Delete"
'StrSQL = StrSQL & " WHERE ((AccountID =" & IntAccountID 
'StrSQL = StrSQL & ") OR (ExecuteID = " & IntAccountID & ")) And IsDel=0 ORDER BY ID DESC"

StrSQL="SELECT ExeID,Proname,AppTime FROM  t_crm_stock_application INNER JOIN OA.dbo.v_crm_stock_application ON dbo.t_crm_stock_application.ID = OA.dbo.v_crm_stock_application.ComMsgID WHERE ((AccountID =" & IntAccountID & " ) OR (ExecuteID = " & IntAccountID & ")) And IsDel=0 "

Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
Set ObjDB	= Server.CreateObject("ADODB.Connection")
OpenDB objDB
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>"
Else
	Set C = Server.CreateObject ("CMS2003.DBHandle")
	C.Init(conn)
	ArrList = C.List(IntPageNo,IntPageSize,StrSQL)
	IntPageCount = C.GetPageCount()
	IntRows = C.GetRows()
	IntCols = C.GetCols()
End If

Sub Main
	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>"
	Else
%>
    <table class=Ltable cellspacing=1 cellpadding=3>
      <tr class=LHtr>
        <td width=1%><input type=checkbox name=ITEM id=0></td>
        <td width=6%> 
        <td width=63%>标题</td>
         
        <td width=15%>更新日期</td>
      </tr>
<%
    For i = 0 To IntRows
%>
  <tr class=Ltr id=<%=ArrList(0,i)%> name=ITEMTR>
  <td><input type = checkbox name=ITEM id=<%=ArrList(0,i)%>></td>
  <td><img src='../../../images/oa/work/commessage/icon.gif'>

      </td>
      <td><%=ArrList(1,i)%></td>
     
      <td><%=FormatDate(ArrList(2,i))%></td>
      </tr>
<%
    Next
%>
    </table>
<%
		PageFooter IntPageCount,"PageNo"
%>
		<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td align=left></td><td align=right>
		<input type=button class=button value="恢复选中的公文" onclick="parent.frmToolbar.UnDeleteMessage()" id=button1 name=button1><input type=button class=button value="永久删除选中的公文" onclick="parent.frmToolbar.DeleteComMessageDB()" id=button1 name=button1>
		</td></tr></table>
<%
	End If
End Sub
%>
<!-- #include file="Templet.asp" -->

⌨️ 快捷键说明

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