display.asp

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 41 行

<%
'连接数据库，做查询
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
	Server.MapPath("lyb.mdb"))
sql = "SELECT * FROM lyb ORDER BY 时间 DESC"
set rs = conn.Execute( sql )
%>
<%
'按照的样式输出
While Not rs.EOF
%>
  <TABLE BORDER="0" BORDERCOLOR="#111111">
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">姓名：</FONT></B></TD>
      <TD><%=rs("姓名")%></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">
	  Email:</FONT></B></TD>
      <TD><A HREF="MAILTO:<%=rs("email")%>">
      <%=rs("email")%></A></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">主题：</FONT></B></TD>
      <TD WIDTH="542" HEIGHT="17"><%=rs("主题")%></TD>
    </TR>
	   <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">时间：</FONT></B></TD>
      <TD><%=rs("时间")%></TD>
    </TR>
    <TR>
      <TD><B><FONT SIZE="4" COLOR="#008080">内容</FONT></B></TD>
      <TD><%=rs("内容")%></TD>
    </TR>
  </TABLE>
  <HR>
<%
rs.movenext()
Wend
%>