<% @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 %> <% const MaxPerPage=40 dim totalPut dim CurrentPage dim TotalPages dim i,j dim typename typename="站点制作" if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> 欢迎光临沈阳二手相机市场

 


本站最新:
<%set rstmp=news_conn.execute("SELECT top 40 * 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"))%>)
进入观看更多文章>>>

沈阳分店
地址:

沈阳中街北方大厦(商业面)
照材市场916室

电话:
024-24846926转3916(9时-17时)
024-88521696(早晚)
传真:
024-24860989
邮编:
110011

邮购地址:
地址:

辽宁省阜新市益民街新华一号楼
照相机商店 李辉收

招商银行

汇款:

一卡通卡号

0024 10406064 李辉

电话:

0418-2837548
13019878190 李辉(郭铁师)

信箱:
sy916a@sina.com
邮编:

123000

       制作及维护:lan@sy163.net Copyright (C) 2000. All rights reserved.

<% 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 %>