Question

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

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

Answer 1

<%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>[首页] [上一页]</font>"
else
response.Write"[<a href='"&url&"?page=1&typeid="&typeid&"'>首页</a>]"
response.Write"[<a href='"&url&"?page="&page-1&"&typeid="&typeid&"'>上一页</a>]"
end if
if rs.pagecount-page<1 then
response.Write"<font color=gray>[下一页] [尾页]</font>"
else
response.Write"[<a href='"&url&"?page="&page+1&"&typeid="&typeid&"'>下一页</a>] "
response.Write"[<a href='"&url&"?page="&rs.pagecount&"&typeid="&typeid&"'>尾页

</a>]"
end if
response.Write" 第<select name='page' onchange='document.go.submit();'>"
for i=1 to rs.pagecount
if rs.absolutepage=i then
response.Write"<option selected>"
else
response.Write"<option>"
end if
response.Write""&i&"</option>"
next
response.Write"</select>页"

response.Write"</td>"
response.Write"</tr></table>"
response.Write" </form>"
end function
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select img,url from banner"
if rs.eof and not rs.bof
response.write "无图片"
else
i=0
do while not (rs.eof or rs.bof) and i<rs.pagesize
call showpage(test.asp,typeid)
'调用分页，url为所在页面链接名称，typeid为分页传参，可为空。
%>
<li><img src="<%=rs("url")%>" border=0></img></li>
<%
rs.movenext
i=i+1
loop
end if
rs.close
set conn=nothing
%>