<% dim te sub fy2 (page,name,rs) response.write "" response.write "" response.write "" response.write "

" Response.Write ""&request("chanpinname")&" 相关信息有"&rs.recordcount&"条" If Page > 1 Then Response.Write "[第一页] " Response.Write "[上一页] " End If if page="" and rs.pageCount<>0 then Response.Write "[下一页] " Response.Write "[最后一页]" End If If Page < cint(rs.pageCount) Then Response.Write "[下一页] " Response.Write "[最后一页]" End If response.write "　"&"[第"&page&"页]/[共"&rs.pagecount&"页]" if rs.pageCount<>0 then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" for n=1 to rs.pageCount if n=page then response.write ""&n&"页" else response.write ""&n&"页" end if totalpage=totalpage+n next response.write "

" end if end sub %>

<% set rs=server.CreateObject("adodb.recordset") sql="select * from download where type='软件下载'" rs.open sql,conn,1,3 do until rs.eof %> <% rs.movenext loop %> 软件名称 上传时间 点击下载  <%=rs("title")%> <%=rs("uptime")%> " class="STYLE5">下载