<%=daohang("title")%>
-
艺帆CMS企业版1....
34[置顶] 资源描叙: 全站完整无错没有免费功能限制。 后台i5808 账号i5808 密码123456 新增功能： 模板和程序分离， 使用标签调便于开发和修改网站界面。... 查看详情
-
赶紧给自己的网站...
41 艺帆CMS官方模板_圣诞节网站源码 全站DIV+CSS+JS,制作漂亮大气，大背景图片可以自由更换 大小不限建议：1920*1078 功能上保留了关于我们单页 在线留... 查看详情
-
艺帆CMS企业版1....
37 艺帆CMS企业版1.5V升级计划，现在征集升级意见 我们将列出1.5V版的升级功能表，看大家有什么想要的功能，可... 查看详情
-
艺帆CMS推出模板...
19 艺帆CMS模板 每周都会更新数款 网站 模板 ，大家可以好好关注下。 原创度 和使用的JS技术都比较符合we... 查看详情
-
泉州市区一男子牵...
34 作为泉州的企业更应该关注泉州的民生, 泉州网站建设 、 泉州网站制作 、 泉州网站设计 公司就找QQ：1053754860 ... 查看详情
-
Surface触控键盘...
30 找 泉州网站建设 、 泉州网站设计 、 泉州网站制作 公司 一帆网顺 微软为Surface配备多种颜色... 查看详情
-
十八大期间加强信...
45 尊敬的用户： 在全国喜迎中国共产党第十八次全国代表大会期间，公安部、全国各地网监都非常重视近期的信息安全管理工作，严格要求对互联网信息内... 查看详情
<%
rs.PageSize =1
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=b
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
dim url,color,img
if IsNull(rs("url")) or trim(rs("url")&"")="" then
url="/ShowNews/?"&rs("id")&"-1.html"
else
url=""&rs("url")&""
end if
if IsNull(rs("color")) or trim(rs("color")&"")="" then
color="#000000"
else
color=""&rs("color")&""
end if
if IsNull(rs("img")) or trim(rs("img")&"")="" then
img="/images/pic.GIF"
else
img=""&rs("img")&""
end if
%>
-
"><%=i5808(rs("title"),15)%>
<%=rs("hit")%><% if rs("zhiding")=1 then response.Write("[置顶]") else end if %><%=i5808(rs("body"),150)%> ">查看详情
<%
rs.movenext
next
end if
%>