通航信息
　　　 船舶信息
　　　 危防信息
　　　 船员信息
　　　 审核信息
　　　 其他海事信息
　　　 浙江VTS

内容：
类型：
范围：
　当前位于：首页 > 公告信息　
<%Call listNews("004")%>

 
 
中华人民共和国浙江海事局版权所有
建议使用1024X768分辨率观看
Copyright © 2004 ZheJiang Maritime Safety Administration Of People’s Republic Of CHINA
您是第   位访问者
 
<% Function getTime(byval thedate) If IsNull(thedate) Or Not IsDate(thedate) Then getTime="" Exit Function End If strYear=CStr(Year(thedate)) strMonth=CStr(Month(thedate)) strDay=CStr(Day(thedate)) If Len(strMonth)=1 Then strMonth="0"+strMonth If Len(strDay)=1 Then strDay="0"+strDay getTime=strYear+"-"+strMonth+"-"+strDay 'getTime=strMonth+"-"+strDay End Function Sub listNews(path) Dim sRet,rs2,sql,perpage perpage=20 sRet="" Set rs2=Server.CreateObject("ADODB.RecordSet") sql="SELECT fileurl,Subject,publishdate FROM documents_view WHERE (Path LIKE '"&path&"%') AND (fileurl IS NOT NULL) AND (n_check=1) ORDER BY DocumentID DESC" intPageNo=request("page") rs2.Open sql,con,1,1 If Not rs2.Eof Then rs2.pagesize=perpage MaxPage=rs2.pagecount MaxRecord=rs2.recordcount If cint(intPageNo)<1 Or cint(intPageNo)>MaxPage Then intPageNo=1 rs2.absolutepage=intPageNo LoopNum=perpage %> <% Do While Not rs2.Eof And LoopNum>0 %> <% rs2.MoveNext LoopNum=LoopNum-1 Loop rs2.Close Set rs2=Nothing End If %>
　v " target="_blank"><%=rs2("Subject")%> (<%=getTime(rs2("publishdate"))%>)
　　
总计:<%=MaxRecord%> 当前: <%=intPageNo%>/<%=MaxPage%> <%if cint(intPageNo)>1 then%> 首页 上一页 <%else%> 首页 上一页 <%end if%> <%if cint(intPageNo) 下一页 尾页 <%else%> 下一页 尾页   <%end if%>
<% End Sub %>