<html>
<title>check</title>
<%
name=request.form("name")
code=request.form("code")
connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &_
"G:/project/check.mdb"
set conn=server.createobject("adodb.connection")
conn.open connectionstring
if code="" then
response.write "先注册"
else
set objrs=server.createobject("adodb.recordset")
sql="select * from check where name='"&name&"'"
sql=sql& "and code='"&code&"'"
objrs.open sql,conn
objrs.close
set objrs=nothing
end if
set objrs=server.createobject("adodb.recordset")
sql="select * from check where name='"&name&"' and code='"&code&"'"
objrs.open sql,conn,1,3
if objrs.eof then
response.write"无此人 "
response.write"<a href ='main.htm'>返回主页</a>"
else
response.redirect"website.htm"
end if
objrs.close
set objrs=nothing
%>
