郁闷我N天的问题!急求大师帮忙
看看错在哪里了?
<%

dim xh,rs,sousuo
if Request.Form("action")="true" then
xh=request.Form("xuehao")
Set rs=Server.CreateObject("adodb.recordset")
sql="select * from student where xuehao="& xh &""
rs.Open sql,conn,1,1
if rs.eof then
sousuo=false
else
sousuo=true
End if
rs.close
conn.close
end if
%>
<% if sousuo=true then
Response.Redirect("sousuo_result.asp?xuehao="&xuehao)
else
Response.Redirect("sousuo.asp")
end if

%>

<%
option explicit
dim connstr,conn,Database,rsa,admin,password,sql,rst
'定义数据库路径
Database="wzdb.asa"
connstr="DBQ="&Server.Mappath(""&Database&"")&";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.Createobject("ADODB.CONNECTION")
conn.open connstr
'----------------------------------------------------------
if err <>0 then
response.Write"数据库错误"
end if
'-----------------------------------
set rsa=server.CreateObject("adodb.recordset")
rsa.open "select * from admin",conn,1,1
admin=rsa("admin")
password=rsa("password")
%>

呵呵
我今晚有点事,刚回来.
不好意思啊!
谢谢了