网站精确查询系统程序- main. as :% Set conn= Server CreateObject("ADODB Connection conn Open"driver=Microsoft Access Driver ( mdb): dbq="& Server. Map Path(sample. mdb") Set rs=con. Execute("成绩单") %> <form method="POST"action="handle. asp"> <% Response. Write"<select size=1 name=name> While Not rs EOF Response. WRITE"<option>"&rs Fields(1).Value&"</option> s MoveNext Wend Response. Write"</select> %> <p><input type="submit"value=EX"name"B1" ><input type="reset"value=" 全部重写"name="B2"></p </form> 东学取业学院网站精确查询系统程序一main.asp <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("sample.mdb") Set rs = conn.Execute("成绩单") %> <form method="POST" action="handle.asp"> <% Response.Write "<select size=1 name=name>" While Not rs.EOF Response.WRITE "<option>" & rs.Fields(1).Value & "</option>" rs.MoveNext Wend Response.Write "</select>" %> <p><input type="submit" value="提交" name="B1"><input type="reset" value=" 全部重写" name="B2"></p> </form>