新的商城系统调用.txt

功能最强大的ASP网站

如果你会一点asp
就知道把数据库里的东西显示出来是多么简单的事情了
但是很多人还是不会 
在这里写下代码

 <%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from shops order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时还没有有关商城的记录")
else
rs.PageSize=10
if page=0 then page=1 
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page  
    
for j=1 to rs.PageSize 
%>

显示页码

制作表格
在表格相应位置写上

<%=rs("shop_name")%>等

具体参数请手动参考数据库
为了你的网站安全,数据库密码请咨询官方网站和安装包
在这里重新说明一下 请务必删除安装包，否则将会被别人修改密码

<%
rs.movenext
if rs.eof then exit for
next                                                       
%>
循环结束


          <%if Page<2 then      
    response.write "首页 上一页&nbsp;"
  else
    response.write "<a href=admin_info.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  end if
  if rs.pagecount-page<1 then
    response.write "下一页 尾页"
  else
    response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
    response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
  end if
   response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
   response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
   response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"     
%>
显示页码

            <% 
end if
rs.close
set rs=nothing
%>
最后结束

其他的地方只要按html制作就可以了，保存为asp文件