<%dim id if request.QueryString("id")="" then id=100 else id=request.QueryString("id") end if%> <%=conn.execute("select linkname from newsclass where linkid ="&id)("linkname")%>_金兰企划网
 当前位置:<%=conn.execute("select linkname from newsclass where linkid ="&id)("linkname")%>
<%rs.open "select * from news where classid="&id&" order by adddate desc,newsid desc",conn,1,1 if rs.eof and rs.bof then response.Write "" else dim pc,page,ps rs.pagesize=30 pc=rs.pagecount page = clng(request("page")) if page<=0 then page=1 if request.querystring("page")="" then page=1 end if rs.absolutepage=page for ps=1 to rs.pagesize if rs.Eof then exit for end if %> <%rs.movenext next end if %>
还没有上传任何信息!
    · .html" target="_blank" ><%=left(rs("newsname"),16)%> <%=year(rs("adddate"))%>/<%if month(rs("adddate"))<10 then response.Write"0" end if response.Write month(rs("adddate"))%>/<%if day(rs("adddate"))<10 then response.Write"0" end if response.Write day(rs("adddate"))%>
   
<% if page<>1 then Response.Write "第一页  " Response.write "上一页  " end if if page<>pc then Response.Write "下一页  " Response.write "最后一页  " end if response.Write "共有记录"&rs.recordcount&"条  每页"&rs.pagesize&"条  当前为第"&page&"/"&pc&"页  转到" %>
    <%rs.close%>

 
推荐资讯
<%rs.open "select top 10 * from news order by tj desc,newsid desc",conn,1,1 do while not rs.eof%> <%rs.movenext loop rs.close%>
· .html" target="_blank" ><%=left(rs("newsname"),17)%>
 
精品服务推荐
 
<%=textencode(conn.execute("select contactindex from config where id =1")("contactindex"))%>