% @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("title")%>
<%if rstmp("datetime")>=date() then response.write("!") %> |
(<%=month(rstmp("datetime"))%>/<%=day(rstmp("datetime"))%>) |
<%rstmp.movenext
loop%>
|
|
|
进入观看更多文章>>> |
|
|
沈阳分店 |
地址: |
|
电话: |
024-24846926转3916(9时-17时)
024-88521696(早晚)
|
传真: |
024-24860989
|
邮编: |
110011
|
|
|
邮购地址:
|
地址:
|
辽宁省阜新市益民街新华一号楼
照相机商店 李辉收
|
|
|
电话:
|
0418-2837548
13019878190 李辉(郭铁师)
|
信箱:
|
sy916a@sina.com
|
邮编:
|
123000
|
|
|
<%
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 ""
end function
%>