曾老師程式設計館

原始碼程式範例

好站相報

技術論壇

易尋網

原始程式碼

<%@ Page Language="VB" Debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        'Response.Write(Session("Account") & "<BR>")
        'Response.Write(Session("Password") & "<BR>")
        'Response.End()
        
        '建立資料連接
        Dim objConn As New OleDbConnection()
        objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Server.MapPath("~/App_Data/data.mdb")
        objConn.Open()

'建立DataReader物件
        Dim SQLstr As String = "Select * from member where account = '" & Session("account") & "'"
        'Response.Write(SQLstr)
        'Response.End()
        Dim objCmd As New OleDbCommand(SQLstr, objConn)
        Dim objReader As OleDbDataReader = objCmd.ExecuteReader
        
        If objReader Is Nothing Then
            Session("account") = ""
            Session("password") = ""
            Session("ErrMessage") = "帳號密碼不正確!!"
            Response.Redirect("login.aspx")
        End If
       
               
        
        If objReader.Read() Then
           
        
            If (objReader("password")) <> Session("password") Then
                Session("account") = ""
                Session("password") = ""
                Session("ErrMessage") = "帳號密碼不正確!!"
                Response.Redirect("login.aspx")
            Else
               
                
                '####################
                '### 登入成功
                '####################
                Session("account") = ""
                Session("password") = ""
                Session("ErrMessage") = ""
                Session("member") = objReader("user_name")
                Session("ip") = Request.ServerVariables("Remote_Addr")
                Response.Redirect("default.aspx")
                
            End If
            
        Else
            Session("account") = ""
            Session("password") = ""
            Session("ErrMessage") = "帳號密碼不正確!!"
            Response.Redirect("default.aspx")
        End If
        objReader.Close()
        objConn.Close()
        
    End Sub
</script>

	1. 請點選此處複製以上資料
	2. 請按ctrl-c複製到剪貼簿
	3. 切換到ASP的原始內碼區
	4. 請按ctrl-v貼上所有資料