宇宙牧起手留牌:求 车辆查询 asp源码

第一步：打开数据库
conn.asp
<%
dim connstr,mysql,myconn
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.mappath("车辆违法.mdb")
set myconn=server.createobject("adodb.connection")
myconn.connectionstring=connstr
myconn.open
%>

第二步：提交查询页面
index.htm
<form method="POST" action="chaxun.asp">
<p>输入违章车辆车牌号：<input type="text" name="T1" size="20">
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>

第三步：显示查询结果
chaxun.asp

<!-- #include file=conn.asp -->
<%

dim cpbh
cpbh=request.form("T1") //接受车牌编号

mySQL="select * from car where car_id='" & cpbh& "'"
set myRes=myconn.execute(mySQL)

if myres.bof and myres.eof then //车牌编号不存在
response.write"车牌编号不存在，或没有违章信息"
else
%>

<%=car_id %> //车牌编号
<%=car_name %> //车辆名称
<%=car_yy %> //车辆违章原因

.................
<%end if%>

思路：根据车牌查数据库，比较简陋，抛砖引玉