新闻列表

<%
set conn= Server.CreateObject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&Server.mappath("news.mdb")&";"
conn.open connstr

rsstr="select * from news"
set rs=conn.execute(rsstr)
i=1
%>

<% do while not rs.eof and not rs.bof and i<=20%>
<div><%= i %>&nbsp;<a href="show.asp?tid=<%= rs("id") %>"><%= rs("title") %></a></div>
<%
rs.movenext
i=i+1
loop
 %>

新闻详细页

<%
set conn= Server.CreateObject("adodb.connection")
connstr="driver={microsoft access driver (*.mdb)};dbq="&Server.mappath("news.mdb")&";"
conn.open connstr
id=request.QueryString("tid")

if request.QueryString("tid")="" then
response.redirect("aaa.asp")
response.end
end if

rsstr="select * from news where id="&id
set rs=conn.execute(rsstr)
%>

<div class="title"><%= rs("title") %></div>
<div class="red"><%= rs("hit") %></div>
<div class="red"><%= rs("fdate") %></div>
<div class="gray"><%= rs("content") %></div>
<div class="red"><%= rs("author") %></div>