 |
|
พี่ครับ Code Login รัน ผ่าน แต่พอกรอก ข้อมูล Login มันติดอยู่ที่เดียวอ่ะครับ ช่วยหน่อยครับ |
|
 |
|
|
 |
 |
|
เป็น sql ทำไมไปใช้ oledb
LoginForm.aspx
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LoginForm.aspx.vb" Inherits="LoginForm" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<div style="position: relative; margin: 12px 12px 12px 12px; width: 250px;">
<div style="background: URL(images/greenTop.gif) repeat-x top; position: absolute; left: 0px; top: -12px; height: 12px; width: 100%;"></div>
<div style="background: URL(images/greenTopLeft.gif) no-repeat left top; position: absolute; left: -12px; width: 12px; top: -12px; height: 12px;"></div>
<div style="background: URL(images/greenTopRight.gif) no-repeat right top; position: absolute; right: -12px; width: 12px; top: -12px; height: 12px;"></div>
<div style="background: URL(images/greenLeft.gif) repeat-y left; position: absolute; left: -12px; width: 12px; top: 0px; bottom: 0px; height: 100%; _height: expression(eval(this.parentNode.clientHeight) + 'px');"></div>
<div style="background: URL(images/greenRight.gif) repeat-y right; position: absolute; right: -12px; width: 12px; top: 0px; bottom: 0px; height: 100%; _height: expression(eval(this.parentNode.clientHeight) + 'px');"></div>
<div style="background: URL(images/greenBottom.gif) repeat-x bottom; position: absolute; left: 0px; bottom: -12px; height: 12px; width: 100%;"></div>
<div style="background: URL(images/greenBottomLeft.gif) no-repeat left bottom; position: absolute; left: -12px; width: 12px; bottom: -12px; height: 12px;"></div>
<div style="background: URL(images/greenBottomRight.gif) no-repeat right bottom; position: absolute; right: -12px; width: 12px; bottom: -12px; height: 12px;"></div>
<div style="padding: 4px;">
<div>
<span style="position: static; float: left;">
<asp:Label ID="lblUsername" runat="server" Text="UserName:"></asp:Label>
</span>
<span style="position: static; float: right;">
<asp:TextBox ID="txtUsername" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ErrorMessage="*" ControlToValidate="txtUsername"></asp:RequiredFieldValidator>
</span>
</div>
<div style="clear: both; height: 5px;"></div>
<div>
<span style="position: static; float: left;">
<asp:Label ID="lblPassword" runat="server" Text="Password:"></asp:Label>
</span>
<span style="position: static; float: right;">
<asp:TextBox ID="txtPassword" runat="server" TextMode="Password"></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ErrorMessage="*" ControlToValidate="txtPassword"></asp:RequiredFieldValidator>
</span>
</div>
<div style="clear: both; height: 10px;"></div>
<div style="text-align: right;">
<asp:Button ID="btnLogin" runat="server" Text="Login" />
</div>
</div>
</div>
</div>
</form>
</body>
</html>
LoginForm.aspx.vb
Imports System.Data.SqlClient
Partial Class LoginForm
Inherits System.Web.UI.Page
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If IsUser() Then
Response.Redirect("testSQL.aspx")
Else
MessageBox("Invalid Username & Password", "LoginFail")
End If
End Sub
Protected Function IsUser() As Boolean
Dim HaveUser As Boolean = False
Dim user As Integer = 0
Dim connectionString As String = "Data Source=DELL_BLUE-PC;Initial Catalog=UTCCResearch;Integrated Security=SSPI;"
Dim objConnection As New SqlConnection(connectionString)
Dim commandString As String = "Select Count(*) From [admin] Where [Username]=@Username And [Password]=@Password"
Dim objCommand As New SqlCommand(commandString, objConnection)
objCommand.Parameters.AddWithValue("@Username", txtUsername.Text)
objCommand.Parameters.AddWithValue("@Password", txtPassword.Text)
Try
objConnection.Open()
user = CInt(objCommand.ExecuteScalar())
objCommand.Clone()
If user > 0 Then
HaveUser = True
End If
Catch ex As Exception
MessageBox(String.Format("Error: {0}", ex.Message), "ErrorMessage")
Exit Try
End Try
Return HaveUser
End Function
Protected Sub MessageBox(ByVal Message As String, ByVal MessageName As String)
Dim ClientScript As ClientScriptManager = Page.ClientScript
If Not ClientScript.IsClientScriptBlockRegistered(Me.GetType(), MessageName) Then
ClientScript.RegisterClientScriptBlock(Me.GetType(), MessageName, String.Format("alert('{0}')", Message), True)
End If
End Sub
End Class
|
 |
 |
 |
 |
Date :
2010-05-30 20:40:38 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
รูปสำหรับ border
greenBottom.gif = 
greenBottomLeft.gif = 
greenBottomRight.gif = 
greenLeft.gif = 
greenRight.gif = 
greenTop.gif = 
greenTopLeft.gif = 
greenTopRight.gif = 

|
 |
 |
 |
 |
Date :
2010-05-30 20:46:40 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณนะครับ พี่ แต่ยังติดปัญหานิดหน่อยครับ รบกวนด้วยครับ
ตอนนี้ลอง รันดู ไม่มี Error ครับ ถ้าเราไม่ใส่ มันจะมี ดอกจันทร์ เตือน
แต่คราวนี้ พอเรา ลองใส่ ผิด ๆ ดู มันไม่ขึ้นเตือนครับ จะเด้งกลับหน้าเดิม
ถ้าใส่ถูก ก็ไม่ไปหน้าที่เราตั้งไว้ ก็จะกลับมาหน้าเดิมครับ
ขอบพระคุณอย่างสูงครับ
|
 |
 |
 |
 |
Date :
2010-05-30 21:52:46 |
By :
ang89gunner |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (VB.NET)
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If IsUser() Then
Response.Redirect("testSQL.aspx")
Else
MessageBox("Invalid Username & Password", "LoginFail")
End If
End Sub
เป็น logic หลัก ไม่น่าจะเกิดดังที่คุณแจ้งนะคะ
ถ้าถูกควรจะ redirect ไปที่ "testSQL.aspx"
นอกจากว่า page นี้ไม่มี สะกดชื่อผิดหรือ path ผิด
อันนี้มาจาก code ที่คุณให้มาตอนแรก
ส่วนถ้าป้อนผิด จะมี popup window ที่มาจาก javascript เตือนอยู่แล้ว
คุณลอง trace debug ค่าต่างให้แน่ใจแล้วหรือยังคะ
หรือตัว username password เองแน่ใจนะคะว่าถูกต้อง
|
 |
 |
 |
 |
Date :
2010-05-31 06:27:15 |
By :
blurEyes |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
T_T ตรงไหน ลองเช็คดูแล้ว
ค่าที่ อิงมาจาก SQL server ชื่อ พาส ถูกแล้ว
ลองใส่ผิดแล้วไม่เด้งเตือนครับ
ไม่รู้ทำไมยังไม่ได้
|
 |
 |
 |
 |
Date :
2010-05-31 09:16:30 |
By :
ang89gunner |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
อาการแบบว่า ไม่เข้าสักเงื่อนไข (-_-")
ได้แฮนเดิลปุ่ม login หรือยัง
Code (VB.NET)
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
|
 |
 |
 |
 |
Date :
2010-05-31 09:22:49 |
By :
tungman |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ครับผม ใส่
Code (VB.NET)
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
แล้วครับ
แล้วก็ ถ้าใส่ผิด มันขึ้นเตือน Error แล้วครับ พอดี ใส่ชื่อ ตาราง ข้อมูลผิด จาก admin เป็น admid
ตอนนี้ขาดแต่ ใส่ถูก แล้วมัน ไม่ ไปต่ออีกหน้า
|
 |
 |
 |
 |
Date :
2010-05-31 09:43:27 |
By :
ang89gunner |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|