|
| 主 办 |
江西日报社 |
| 编辑出版 |
《报刊精萃》 杂志编辑部 |
| 邮购地址 |
河南省郑州市黄河路26号中孚大厦四楼D座 |
| 组稿中心 |
北京市中关村北二街水清木华园4号楼503室 |
| 邮 编 |
450002 |
| 广告热线 |
010-82642449 0371-63588161 |
| 订阅热线 |
010-82642449 0371-63588160 |
| 电子邮箱 |
magazinead@vip.163.com |
| 国内刊号 | CN36-1275/Z（大 16 开） |
| 零 售 价 |
20 元 / 期 |
| 全年订阅 |
120 元 / 年 |
|
| 正在组团的最新消息 出国热线：010-82642449 短信：13601018431 |
<%
connstr1="DBQ="+server.mappath("./data/news.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr1
If curpage1="" then
curpage1=1
End If
If Request.QueryString("idx") = "" Then
id1 = "9"
Else
id1 = Request.QueryString("idx")
End If
set rs=server.createobject("adodb.recordset")
sql="select * from (select top 9 * from (select top " + id1 + " * from News order by id desc) as tab order by id asc) as tt order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
| "
target=_blank class="neirong" style="color: #000000; font-size: 14px; ">· <%= rs("title") %> |
<%
rs.movenext
loop
%>
|
<%
SET rs1= Server.CreateObject("adodb.recordset")
sql1="select count(*) as zong from News"
rs1.open sql1,conn,1,1
zong1=rs1("zong")
if zong1 mod 9=0 then
zong2=zong1/9
else
zong2=int(zong1/9)+1
end if
%>
<% temp1=id1+9 %>
<% temp2=id1-9 %>
首页 上一页
下一页 尾页
|
| 历史成功组团案例 出国热线：010-82642449 短信：13601018431 |
咨询热线：010-82642449 email：magazinead@vip.163.com
|
|
