| 本站报道: |
<%
dim sql
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM news order by ID desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 还 没 有 任 何 文 章 "
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"mores.asp"
showContent
else
if (currentPage-1)*MaxPerPage
<%do while not rs.eof %>
| ·
><%=rs("title")%>
<%if rs("datetime")>=date() then response.write("!") %> |
(<%=month(rs("datetime"))%>/<%=day(rs("datetime"))%>) |
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
|
<%
end sub %>
|
|
| |
|
|
|
| 沈阳分店 |
| 地址： |
|
| 电话： |
024-24846926转3916（9时-17时）
024-88521696（早晚）
|
| 传真： |
024-24860989
|
| 邮编： |
110011
|
|
|
|
|
邮购地址：
|
|
地址：
|
辽宁省阜新市益民街新华一号楼
照相机商店 李辉收
|
|
|
|
|
电话：
|
0418-2837548
13019878190 李辉（郭铁师）
|
|
信箱：
|
sy916a@sina.com
|
|
邮编：
|
123000
|
|
|
