| 考试成绩查询系统 |
|
<%
set dbconnection=server.createobject("adodb.connection")
dbconnection.open "member"
set rs=server.createobject("adodb.recordset")
rs.open "student",dbconnection
if request.form("ID") <>empty then
rs.find="学号=' "& request.form("ID") & " ' "
if rs.eof then
response.write "很抱歉，没有 " & request("ID") & "的数据"
else
response.Write"查询到的数据如下:" & " " for i=0 to rs.fields.count-1 response.write rs(i) & " " next end if end if %> |