高手请进 ASP查询 在线等

<%
'首先接受并难数据
Dim name,number
name = Trim(Request.Form("cname"))
number = Trim(Request.Form("cnmber"))

If name = "" Or number = "" Then
Response.Write "不能为空"
Response.End
End If

'数据合法,进行数据库操作

'连接数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Sever.MapPath("数据库相对路径/数据库名称.mdb")&""

'构建查询语句和记录集
Dim sql,rs
sql = "SELECT * FROM 数据库表名称 WHERE name="&name&" and xuehao="&number&""

Set rs = conn.Execute(sql)
If rs.Eof Then
Response.Write "没有数据"
Else
Response.Write "ID:"&rs("id")&"
"
Response.Write "姓名:"&rs("name")&"
"
Response.Write "学号:"&rs("xuehao")&"
"
Response.Write "时间:"&rs("time")&"
"
Response.Write "学历:"&rs("xueli")&"
"
Response.Write "照片:"
End If

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

大体是这个思路,你可以自己再丰富一下.

<%
'首先接受并难数据
Dim name,number
name = Trim(Request.Form("cname"))
number = Trim(Request.Form("cnmber"))

If name = "" Or number = "" Then
Response.Write "不能为空"
Response.End
End If

'数据合法,进行数据库操作

'连接数据库
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Sever.MapPath("数据库相对路径/数据库名称.mdb")&""

'构建查询语句和记录集
Dim sql,rs
sql = "SELECT * FROM 数据库表名称 WHERE name="&name&" and xuehao="&number&""

Set rs = conn.Execute(sql)
If rs.Eof Then
Response.Write "没有数据"
Else
Response.Write "ID:"&rs("id")&"
"
Response.Write "姓名:"&rs("name")&"
"
Response.Write "学号:"&rs("xuehao")&"
"
Response.Write "时间:"&rs("time")&"
"
Response.Write "学历:"&rs("xueli")&"
"
Response.Write "照片:"
End If

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

-----
备注：
sql查询语句中
where a=1 and b=2 就是要 a=2而且还要b=2才能满足条件
where a=1 or b=2 只要a=2,b=2其中一个满足就行

<%
cname=trim(Request.form("cname"))
cnumber=trim(Request.form("cnumber"))
if cname="" or cnumber="" then
Response.write("姓名或者学号为空")
Response.end
end if
dim conn
dim connstr
startime=timer()
db="你的数据库地址.mdb
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(""&db&"")
conn.Open connstr
dim Rs,Sql
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from 你的数据库表名 where name='"&cname&"' and xuehao='"&cnumber&"'"
Rs.Open Sql,conn,1,1
if Rs.bof and Rs.eof then
Response.write("对不起，数据库中没有对应数据")
else
Response.Write Rs("name") & "
"
Response.Write Rs("xuehao") & "
"
Response.Write Rs("time") & "
"
Response.Write Rs("xueli") & "
"
Response.Write Rs("photo") & "
"
'name， xuehao， time， xueli， photo。
end if
Rs.close
Set Rs=nothing
conn.close
Set conn=nothing
'其它的，你自己添加吧。
%>