<%
'does user click logout?
If Request.QueryString("Logout")="True" Then
Session.Abandon
End If
' Checking page stage
If Not IsEmpty(Request.Form("Send")) Then
Username=Request.Form("UserName")
Password=Request.Form("Password")
'Open database
Set dbConn = Server.CreateObject("ADODB.Connection")
'SQL Server
'dbConn.Open "ContactsOnLine","col","841023"
'MS Access
dbConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/BauerChina.mdb") & ";Persist Security Info=False")
'Open recordset
sSQL="Select * From Login Where Username= '" & Username & "'"
Set rsResults = Server.CreateObject("ADODB.Recordset")
rsResults.Open sSQL, dbConn, 1, 2
'Check if we have found one user
If rsResults.EOF Then
Error="User Does Not Exist, Please try again or Sign up as a new user"
Response.Redirect "C_AfterSales.asp?MesPass=" & Error
Else
If rsResults("Password") <> Password Then
Error="The password is incrrect, Please try again or click forget password to have your password emailed to you "
Response.Redirect "C_AfterSales.asp?MesPass=" & Error
Else
Session("ID")=rsResults("ID")
Session("Name")=rsResults("Name")
Session("Company")=rsResults("Company")
Response.Redirect "C_MembersPage.asp"
End If
End If
rsResults.Close
Set rsResults=Nothing
dbConn.Close
Set dbConn=Nothing
Else
Message=Request.Querystring("MesPass")%>
德国宝峨公司
