<% @language="vbscript" %>
<%
If Request.QueryString("CurPage") = "" then
Curpage=1
Else
Curpage=cint(Request.QueryString("CurPage"))
End if
sql="select * from masternews order by news_date desc "
Set rs = Server.CreateObject("ADODB.Recordset")
Set rsv = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3
rsv.open sql,conn,3
RS.PageSize=136
if CurPage>RS.Pagecount then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
%>
<% 'Set MyPageCounter = Server.CreateObject("MSWC.PageCounter") %>
<%
response.buffer=true
Response.Expires=0
'最新文章的时间
NewDate = NOW-7
CheckNewMessages = True
'利用cookies对象从浏览器读取访问时间的有关信息
If Request.Cookies("news").HasKeys Then
LastVisitDate = Request.Cookies("news")("LastVisit") '读取cookie对象Article中关键字为“lastvisit”的值
VisitMessage = VisitMessage & " 您上一次访问时间：" & LastVisitDate & ""
Else
VisitMessage = "欢迎您第一次访问《军事交通》网站！"
CheckNewMessages = False
End If
'response.Cookies("news").domain="www.hvacronline.com"
'可以避免cookie值被其他服务器修改
Response.Cookies("news")("LastVisit") = Now
'强制将cookies存储在硬盘上，并设置其失效时间
Response.Cookies("news").Expires = Date + 365
%>
走进职教
<% '显示页面的弹出窗口子程序 %> <% '对输入表单进行检查子程序 %>
请用IE5.0以上浏览器,1024*768分辨率,以获得本站的最佳浏览效果！
：webmaster
：025-4414131
