<%
dim rs
dim sql
dim conn
dim zkzh
dim sj
zkzh=request("zkzh")
sj=request("sj")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("ks.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
if request("zkzh")<>"" then
sql="select * from kscj where zkzh='" &zkzh& "'and sj like '"&sj&"'"
else
Response.Write "请填入正确的准考证号!"
end if
rs.Open sql,conn,1,1
totalput=rs.RecordCount
if rs.EOF and rs.BOF then
Response.Write "请填入正确的准考证号!"
else
%>
页面index.asp上是
tr>
<td width="471" height="1"><font size="2">准考证号:</font>
</td>
</tr>
<tr>
<td width="471" height="1"><input name="zkzh" type="text" size="12">
</td>
</tr>
<tr>
<td width="471" height="1"><font size="1"><select name="sj" type="text">
<option value="200806">200806</option>
</select>
</font>
</td>
</tr>
<tr>
<td width="471" height="1">
<input name="submit" type="submit" value="提交">
为什么用不起来???