<% psize=10 set conn = server.createobject("adodb.connection") DBPath = Server.MapPath("dhdhd\7y63y6ye\d328383dkd28\23ddwrewe55" & ".mdb") conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data source="&DBPath conn.open sql="select * from lyb" 'response.write sql set rs=conn.execute(sql) if rs.eof then response.write "没有记录在数据库里面" else %> <% Do while not rs.eof ID = rs("ID") co=rs("co") Name = rs("Name") adress=rs("adress") country = rs("Country") tel=rs("tel") fax=rs("fax") email=rs("email") other=rs("Comments") %> <% rs.MoveNext loop rs.close set rs=nothing conn.close set conn=nothing End If %>

<%=CO%>的<%= Name %>的留言 email:<%=email%>