<% '###################################### ' 外贸网站管理系统中英文双语版 ' Enterprise Web Site Management System ' 官方网站：http://www.shejifang.net ' 联系QQ：195094303 ' 淘宝店： http://shejifang.taobao.com '###################################### %> <% dim id,rs,exec id = request.querystring("id") if id = "" or not isnumeric(id) then response.write "" response.end end if set rs=server.createobject("adodb.recordset") exec="select * from [news] where ssfl="&id&" order by id desc " rs.open exec,conn,1,1 if rs.eof then rs.close set rs = nothing conn.close set conn = nothing response.write "" response.end end if set rs2=server.createobject("adodb.recordset") exec2="select * from news_fl where id="&id&" order by id desc " rs2.open exec2,conn,1,1 titlefl = rs2("etitle") %> <%=titlefl%>-<%=config("etitle")%> " /> " />
    <% rs.PageSize = nlist_num '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") 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%>
  • .html" title="<%=rs("etitle")%>"><%=left(rs("etitle"),80)%>
    <%=rs("data")%>
    • <% rs.movenext next %>
<% '以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","

") rs.close set rs=nothing %>