📄 list.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/datefunction.asp" -->
<%
Dim ObjDB,StrSQL,ObjRS
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 12
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
StrSQL=" Select ID,Subject,BegDate,BegHour,BegMinute,FinDate,Finhour,FinMinute,Reporter,Address,Attachs from t_OA_Work_Conference where IsValid=1 order by ID Desc"
Set ObjRS = ObjDB.Execute(StrSQL)
If ObjRS.EOF Then
Response.Write "<body background='../../../images/bg.gif'><table border=0 height='100%' width='100%'><tr><td valign=middle align=center>目前没有任何会议资料<td></tr></table></body>"
'Response.End
End if
ArrList = C.List(IntPageNo,IntPageSize,StrSQL)
IntPageCount = C.GetPageCount()
IntRows = C.GetRows()
IntCols = C.GetCols()
Sub Main
%>
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td width=1%><input type=checkbox name=ITEM id=0></td>
<td width=1%></td>
<td width=20%>会议标题</td>
<td width=20%>会议开始时间</td>
<td width=20%>会议结束时间</td>
<td width=10%>报告人</td>
<td width=28%>会议地点</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/conference/icon.gif'><%If ArrList(10,i) <> "" Then%><img src='../../../images/oa/work/conference/att.gif'><%End If%></td>
<td><%=ArrList(1,i)%></td>
<td><%=ArrList(2,i)%> 
<%
if ArrList(3,i)<10 then
%>
0
<%
end if
%><%=ArrList(3,i)%>：<%if ArrList(4,i)<10 then%>0<%end if%><%=ArrList(4,i)%>
</td>
<td><%=ArrList(5,i)%> 
<%if ArrList(6,i)<10 then%>0<%end if%><%=ArrList(6,i)%>：<%if ArrList(7,i)<10 then%>0<%end if%><%=ArrList(7,i)%>
</td>
<td><%=ArrList(8,i)%></td>
<td><%=ArrList(9,i)%></td>
</tr>
<%
Next
%>
</table>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="Templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -