<% @language="vbscript" %> <% Set news_conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data/news.mdb") news_conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath %> 沈阳916摄影网

5


 





郭铁师 原名李辉。 本站站长
62年8月生人。影龄十年,网龄一年。
平生喜爱读书、写作、摄影、收藏及好茶.
最喜爱的一句话:我存在,我努力,我收获。
非常愿意结交网上朋友。
“不问你是谁,我要和你真诚面对”。

电子邮箱:SY916gts@sina.com

  专栏文章:
<%set rstmp=news_conn.execute("SELECT * FROM news WHERE ctype='娱乐新地' order by ID desc ")%> <%do while not rstmp.eof %> <%rstmp.movenext loop%>
· ><%=rstmp("title")%> <%if rstmp("datetime")>=date() then response.write("!") %> (<%=month(rstmp("datetime"))%>/<%=day(rstmp("datetime"))%>)

      
沈阳万通 版权所有 Copyright (C) 2000. All rights reserved.
916
本站由阜新易达网络有限公司制作及维护 Contact:615@21cn.com
<% function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "
" if CurrentPage<2 then response.write "新闻导航条: " response.write "首页 上一页 " else response.write "新闻导航条: " response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "下一页 尾页" end if response.write " 页次:"&CurrentPage&"/"&n&"页 " response.write " 共"&totalnumber&"篇文章 "&maxperpage&"篇文章/页 " response.write "   ------------------------------------------>跳转到:" response.write "

" end function %>