<%'************Show_Message.asp************%>

<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("MyDatabase.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & DBPath SQLcmd = "Select * From MESSAGE Order By A_Time Desc" Set RS = conn.Execute(SQLcmd) Do While Not RS.EOF %>
<%=RS("A_ID")%>
">
發言人: <%=RS("A_Name")%> 居住地: <%=RS("A_Add")%>
伊妹兒: "> 留言時間 <%=RS("A_Time")%>
留言內容
<%=RS("A_Memo")%>
<% RS.MoveNext Loop RS.Close conn.Close %>