<html> <body> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/db/demo.mdb")) set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT WebName FROM Web ORDER BY WebName" rs.Open sql,conn webname=request.form("webname") %> <form method="post"> 网站名称 <select name="webname"> <% do until rs.EOF response.write("<option") if rs.fields("WebName")=webname then response.write(" selected") end if response.write(">") response.write(rs.fields("WebName")) rs.MoveNext loop rs.Close set rs=Nothing %> </select> <input type="submit" value="查看详细信息"> </form> <% if webname<>"" then sql="SELECT * FROM Web WHERE WebName='" & webname & "'" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,conn %> <table width="100%" cellspacing="0" cellpadding="2" border="1"> <tr> <th>WebID</th> <th>WebName</th> <th>WebLink</th> </tr> <% do until rs.EOF response.write("<tr>") response.write("<td>" & rs.fields("WebID") & "</td>") response.write("<td>" & rs.fields("WebName") & "</td>") response.write("<td>" & rs.fields("WebLink") & "</td>") response.write("</tr>") rs.MoveNext loop rs.close conn.Close set rs=Nothing set conn=Nothing%> </table> <% end if %> </body> </html>
效果会显示在右边 Create by 软晨网（RuanChen.com）