<%
Sub ysp()
strSQL = "Select a.iGlideNum,a.dAccDate,a.dSFinishDate,a.dAFinishDate,a.sAccFlag,b.sItemName,c.sCustDept,c.sCustName FROM EG_SHL_ACCEPT a,EG_BAS_SERVERITEM b,EG_Shl_Apply c where a.sApplyNo=c.sApplyNo and a.sItemNo =b.sItemNo and Right(a.sAccFlag,2) in('x3','x4','x5') UNION all Select a.iGlideNum,a.dAccDate,a.dSFinishDate,a.dAFinishDate,a.sAccFlag,b.sItemName,c.sCustDept,c.sCustName FROM EG_SHL_ACCEPT a,EG_BAS_SERVERITEM b,EG_Shl_Apply c where a.sApplyNo=c.sApplyNo and a.sItemNo = b.sItemNo and Right(a.sAccFlag,2) ='25' AND a.sItemType='0' AND a.dAccDate=now() UNION all Select a.iGlideNum,a.dAccDate,a.dSFinishDate,a.dAFinishDate,a.sAccFlag,b.sItemName,c.sCustDept,c.sCustName FROM EG_SHL_ACCEPT a,EG_BAS_SERVERITEM b,EG_Shl_Apply c where a.sApplyNo=c.sApplyNo and a.sItemNo = b.sItemNo and Right(a.sAccFlag,2) ='25' AND a.sItemType='1' and a.dAccDate>dateadd('ww',-1,now()) ORDER BY a.dAccDate DESC"
set rs_ysp = Server.CreateObject("ADODB.RecordSet")
rs_ysp.cachesize = 100
rs_ysp.Open strSQL,conn,1,1
If Not rs_ysp.Eof Then
i=0
Do While Not rs_ysp.Eof
result = GetAcceptType(Mid(rs_ysp("sAccFlag"),5,2))
Response.Write "
| "&rs_ysp("sCustName")&" | "&rs_ysp("sItemName")&" | "&rs_ysp("dAccDate")&" | "&result&" |
"
Response.Write "
|
"
rs_ysp.movenext
i = i + 1
Loop
Else
Response.write "
| 没有已审批办件！ |
"
End If
rs_ysp.Close
set rs_ysp = nothing
End Sub
Sub getgjfg()
strSQL = "Select top 6 sRuleTitle,dRuleDate,iRecNo from EG_OA_RULE order by dRuleDate desc"
set conn = GetMdbConnection()
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn,3
Response.Write "
"
End Sub
Sub getdownlist()
strSQL = "Select DISTINCT top 9 sFileName From EG_NET_DOWNLOAD Where sKind='1'"
set rs = GetMdbRecordset(strSQL)
Response.Buffer = True
Response.ExpiresAbsolute = Now() -1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Response.Write "
"
While Not Rs.Eof
Response.Write " "
Response.Write " | "
Response.Write ""&rs("sFileName")&" | "
Response.Write "
"
rs.MoveNext
Wend
Response.Write " "
Response.Write "| "&"更多>>>"&" | "
Response.Write "
"
Response.Write "
"
rs.close
set rs = nothing
End Sub
%>
更多>>
<% call getdownlist() %>
办件公告
