走进职教

<% @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 %> 走进职教 <% '显示页面的弹出窗口子程序 %> <% '对输入表单进行检查子程序 %>