ASP高手请进，求一小段代码

来源：百度知道 编辑：UC知道 时间：2024/06/09 19:49:44
我有一个页面，首先用户登陆后会进入到这个页面，此时显示用户名，在页面中间我想做个图片的广告，就是从数据库里banner表里读取img里的图片，与url里的连接，就是这样。一个页面我想放5个这样的广告，那么怎么让它自动获取id，然后显示呢。最好是能带有分页的代码了。

<%function showpage(url,typeid)
page=request("page")
PageSize =15
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
response.Write"<form method=Post action='"&url&"' name='go'>"
response.Write"<table border='0' cellpadding='0' cellspacing='0'

height='22'><Tr>"
response.Write"<td align='left'> 共<font color='#0033CC'>"&rs.recordcount&"</font>条"
response.Write"["&page&"/<b>"&rs.pagecount&"</b>页]"
if page=1 then
response.Write"<font color=gray>[首页] [上一页