<% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.jet.OLEDB.4.0" conn.open Server.mappath("databaseunion.mdb") title = request.form("title") unionsql = "select title from News where title like '%" & title & "%'" set rs2 = conn.Execute(unionsql) sql = "select * from News where title like '%" & title & "%'" set rs = conn.Execute(sql) %>
<% while not rs.eof %> <% rs.movenext wend conn.close set rs=nothing set rs=nothing %>
新闻标题: 新闻内容: 新闻发布时间:
<%=rs("title")%> <%=rs("news")%> <%=rs("time")%>