<%@language=vbscript%>
<% option explicit %>
<% response.buffer=true %>
<%
'open ptyhdata.dmb,rs
dim temp1,temp2,conn,SQLstr,rs
Temp1=trim(Request.Form("ptyhusername"))
Temp2=Request.Form("ptyhuserpassword")
Session("username")=Temp1
Session("password")=Temp2
Session("flag")=False
'连接数据库
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("rldata.mdb")
'查询数据库select
SQLstr="SELECT*FROM ptyhdata where name='"&Temp1&"'and password='"&Temp2&"'"
Set rs=Conn.Execute(SQLstr)
[COLOR=red]if Not rs.EOF then
session("flag")=true
response.redirect"display.asp"
else
response.redirect"error.html"
end if
rs.close[/COLOR]
%> | 
