<% 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 "
" 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">下载