<%@ language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open"driver=microsoft access driver (*.mdb);dbq="&Server.MapPath("access.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from duser where (uname='"& user &"' and upassword='" & pass & "')",conn,1,3
if rs.bof or rs.eof then
response.write "<center><b>用户名或密码错误</b></center>"
rs.close
set rs=nothing
else
rs.close
set rs=nothing
conn.close
set conn = nothing
Response.Redirect "yhcx.html"
end if
<%@ language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open"driver=microsoft access driver (*.mdb);dbq="&Server.MapPath("access.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from duser where (uname="&user&"and upassword="&pass&")",conn,1,3
if rs.bof or rs.eof then
response.write "<center><b>用户名或密码错误</b></center>"
rs.close
set rs=nothing
else
rs.close
set rs=nothing
conn.close
set conn = nothing
Response.Redirect "yhcx.html"
end if
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from tuser where user_name='"&request.form("user_name")&"' and user_password='"&request.form("user_password")&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write ("用户名或密码错误!")
else
response.write ("用户名或密码正确!")
end if
%>