法律咨询平台<% set cnn=server.createobject("ADODB.connection") cnn.open"DBQ=" & server.MapPath("database.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)}" set rs=cnn.Execute ("SELECT 留言信息表.*,用户注册表.邮箱 FROM 留言信息表,用户注册表 WHERE 留言信息表.用户名 = 用户注册表.用户名") do until rs.eof %>发布者：<%=rs("用户名")%> 电子邮件：<%=rs("邮箱")%> 留言时间：<%=rs("时间")%> <%=rs("留言内容")%> <% rs.movenext loop %> |