Question

高手请进 ASP查询 在线等

有数据库 字段如下 id， name， xuehao， time， xueli， photo。
我要做一个查询页面，一个显示页面。要求输入name和xuehao 两者缺一不可，查询过程中两者不一样也不显示。
查询如下：
<td align="center"><form action="show.asp" method="get" name="cf">
<table border="0" cellpadding="0" cellspacing="0" width="368">
<tr><td width="90" rowspan="9">
<img src="images/t4.gif">
</td>
<td width="210"><STRONG>学生查询</STRONG></td>
</tr>
<tr>
<td>姓 名：</td>
</tr>
<tr>
<td><input name="cname" type="text" maxlength="12" ></td>
</tr>
<tr>
<td>编号： </td>
</tr>
<tr>
<td><input name="cnumber" type="text" maxlength="20" ></td>
</tr>
<tr>
<td>(注意大小写字母)</td>
</tr>
<tr>
<td><input type="button" value="提交" onClick="malert()">
<input type="reset" value="重置"></td>
</tr>
</table> </form></td>

请问show.asp怎么写？ 在线等。。。。

Answer 1

<%
'首先接受并难数据
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")&"<br />"
Response.Write "姓名:"&rs("name")&"<br />"
Response.Write "学号:"&rs("xuehao")&"<br />"
Response.Write "时间:"&rs("time")&"<br />"
Response.Write "学历:"&rs("xueli")&"<br />"
Response.Write "照片:<img src='"&rs("photo")&"'>"
End If

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

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

Answer 2

<%
'首先接受并难数据
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")&"<br />"
Response.Write "姓名:"&rs("name")&"<br />"
Response.Write "学号:"&rs("xuehao")&"<br />"
Response.Write "时间:"&rs("time")&"<br />"
Response.Write "学历:"&rs("xueli")&"<br />"
Response.Write "照片:<img src='"&rs("photo")&"'>"
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其中一个满足就行

Answer 3

<%
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") & "<br />"
Response.Write Rs("xuehao") & "<br />"
Response.Write Rs("time") & "<br />"
Response.Write Rs("xueli") & "<br />"
Response.Write Rs("photo") & "<br />"
'name， xuehao， time， xueli， photo。
end if
Rs.close
Set Rs=nothing
conn.close
Set conn=nothing
'其它的，你自己添加吧。
%>