conn.Open"DRIVER=SQLServer;SERVER="&servername&";UID="&user&";pwd="&pw&";DATABASE="&　　databasename
　　 setrs=server.CreateObject("adodb.recordset")
　　 sql="Selectemployeeid,lastnamefromemployeesorderbyemployeeid"
　　 rs.Opensql,conn%>
　　 <tablewidth="80%"border="1">
　　 <tr>
　　 <td>
　　 <inputtype="text"name="searchContent">
　　 <inputtype="button"name="Button"value="查　　询"onclick="javascript:returnsearch_onclick()">
　　 </td>
　　 </tr>
　　 <tr>
　　 <td>查询结果<br>
　　 <selectname="searchObj"size="10">
　　　　 <%dowhilenotrs.eof%>
　　 <optionvalue="<%=rs("employeeid")%>"><%=rs("lastname")%></option>
　　 <%rs.movenext
　　 loop
　　　　 %>
　　 </select>
　　 <selectname="searchSource"size="10"style="display:none">
　　 <%
　　 rs.movefirst
　　 dowhilenotrs.eof%>
　　 <optionvalue="<%=rs("employeeid")%>"><%=rs("lastname")%></option>
　　 <%rs.movenext
　　 loop
　　 %>
　　 </select>
　　 </td>
　　 </tr>
　　 </table>
　　 <%rs.close
　　 setrs=nothing
　　 %>
　　 </body>
　　 </html>