<%
if request.QueryString("log")="in" then
Function CheckPwd( user, pass )
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dataa.mdb")
sql = "Select * From member Where m_mail='" & user & "' And m_password = '" & pass & "'"
Set rs = conn.Execute( sql )
If rs.EOF Then
CheckPwd = False
Else
CheckPwd = True
End If
End Function
user = Request("user")
pass = Request("pass")
If user = "" Or pass = "" Then%>
<%ElseIf CheckPwd( user, pass )=false Then%>
<%
Else
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select * from member where m_mail='"& request("user") &"'"
rs1.Open Sql1,conn,3,3
Session("Pass") = True
Session("user")= user
session("idd")=rs1("m_id")
session("aaa")= date()
session("identify")=rs1("m_identify")
Response.Redirect "guestbook.asp"
rs.close
conn.close
End If
end if
%>
主人呢絨-會員登入
