楼主你的代码好多错的呀,我帮你改了下,加入了你要的功能
<%
set conn=server.createobject("adodb.connection")
DSNtemp = "DefaultDir=; Driver={Microsoft Access Driver (*.mdb)};"'这里你少了个defaultDir
DSNtemp = DSNtemp & "DBQ=" & server.mappath("cj.mdb")
conn.open DSNtemp
if request.form("stext") <> "" then
text = request.form("stext")
set rs = conn.execute(text)'这里你放进去的是字符串,我晕
else
set rs = conn.execute("select * from 成绩表")
end if
%>
输入一个SELECT语句,例如:Select * from 成绩表 order by 成绩
"&rs.fields.item(i).value&" | "