Показать несколько элементов ASP

Question

Мне нужно отобразить несколько элементов ASP. У нас есть задний инструмент, где мы можем добавить несколько записей, но будут отображаться только первые два. Я надеюсь, что есть небольшая корректировка кода, которая позволит отображать дополнительные страницы. Код для 2-х страниц, которые отображают код следующим образом:

<% 
dim sql 
sql = "select * from announcement_table where ann_status=1" 
set rs = con.execute(sql) 
%> 
<%if not(rs.eof and rs.bof) then%> 
<p><strong><%=rs("ann_title")%></strong> </p> 
<p><%=rs("ann_text")%> 
    <%else%> 
    Currently there are no announcements. 
    <% 
end if 
rs.close 
set rs = nothing 
%> 
</p> 
<hr size="1" noshade> 
<% 
dim sql_, sqlcount 
sqlcount = "select count(*) from announcement_table" 
set rscount = con.execute(sqlcount) 
sql_ = "select * from announcement_table where ann_status <> 1" 
set rs_ = con.execute(sql_) 
%> 
<%if rscount(0)>1 then%> 
<%if not(rs_.eof and rs_.bof) then%> 
<a href="announcements_more.asp?ann_id=<%=rs_("ann_id")%>"><%=rs_("ann_title")%></a>   <br> 
    <%else%> 
    Currently there are no announcements. 
    <% 
end if 
rs_.close 
set rs_ = nothing 
%> 
<%end if 
rscount.close 
set rscount = nothing 
%> 

Это вторая страница:

<% 
dim sql_ 
sql_ = "select * from announcement_table where ann_id=" & intann_id 
set rs_ = con.execute(sql_) 
%> 
<p><strong><%=rs_("ann_title")%></strong> </p> 
<p><%=rs_("ann_text")%></p> 

<%rs_.close 
set rs_ = nothing 
%> 

Answer 1

в вашей второй странице, вам нужно перебрать набор записей, чтобы показать несколько значений ,

<% 
    dim sql_ 
    sql_ = "select * from announcement_table where ann_id=" & intann_id 
    set rs_ = con.execute(sql_) 

    While Not rs_.EOF 
    %> 
    <p><strong><%=rs_("ann_title")%></strong> </p> 
    <p><%=rs_("ann_text")%></p> 

    <% 
    rs_.Movenext 
    Wend 
    rs_.close 
    set rs_ = nothing 
    %> 

и проверьте эту ссылку. SQL Injection