📄 list_03.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,conn
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
'------------------------------------------------------------------------
'因不能正常的调用DeleteComMessage()进行删除操作，因此定义一个SESSION变量在Delete_Forever.asp中做删除已发送箱中的记录
Session("Delete_already_Shock_Application")="icomeformxinjianggoodaks"
'-------------------------------------------------------------------------
IntAccountID = Session("AccountID")
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 16
'StrSQL = "SELECT ExeID,Title,ComMsgSendTime,Attachs FROM V_OA_Work_Commessage"
'StrSQL = StrSQL & " WHERE ExeIsDel = 0 AND IsCreator = 1 AND ComMsgState = 1 AND ExecuteID = "
'StrSQL = StrSQL & IntAccountID & " Order By ComMsgSendTime 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 ExeIsDel = 0 AND IsCreator = 1 AND dbo.t_crm_stock_application.State = 1 AND ExecuteID = " & IntAccountID & " Order By ID Desc"
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
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>"
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 "<table border=0 height='100%' width='100%'><tr><td valign=middle align=center>目前在已发送箱里没有任何采购申请<td></tr></table>"
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=78%>商品名称</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.doView()" id=button1 name=button1><input type=button class=button value="删除选中的申请" onclick="parent.frmToolbar.DeleteComMessage()" id=button2 name=button2>
</td></tr></table>
<%
End If
End Sub
%>
<!-- #include file="Templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -