 |
| |
มีปัญหาหน้าresult_loginค่ะ รบกวนช่วยดูทีว่าผิดตรงไหน |
| |
 |
|
|
 |
 |
|
ในส่วนของการแจ้งตัวแปร(ดูที่ลูกศรสีน้ำเงินนะครับ)
user=Request.Form("user") <----
pwd=Request.Form("pwd") <----
If user <> " " and pwd <> " " or Session("user") <> " " Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/ASP/ecommerce.mdb"),"" , ""
sql = "select * from Member where user='"& Request.Form("user") &"' and pwd='"& Request.Form("pwd") &"'"
แก้ไข
sql = "select * from Member where user='"& user &"' and pwd='" & pwd &"'"
ลองดูนะครับ
|
 |
 |
 |
 |
| Date :
25 ก.พ. 2549 12:18:44 |
By :
Jos |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ขอบคุณมากค่ะ แต่ลองนำไปแก้ตามแล้ว ผลยังเป็นเช่นเดิม result_login ใจดีให้เข้าไปหมดเลย กรอกผิดก้อให้เข้า  แก้ยังไงดีคะ
|
| |
|
|
| |
| Date :
25 ก.พ. 2549 15:01:19 |
By :
Harnetenan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองดูนะครับ น่าจะใช้ได้ เพราะผมเห็นคุณปิดแท็ก end if ผิดที่ครับ ผมแก้ให้แล้ว ข้างล่างนี้ครับ ......
<%
user=Request.Form("user")
pwd=Request.Form("pwd")
'------------------ผมขอตัดการเช็ค session ออกนะครับ เพราะว่ายังไม่จำเป็นต้องเช็คในหน้านี้---------------------
If user <> " " and pwd <> " " Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/ASP/ecommerce.mdb"),"" , ""
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Member where user='"& user &"' and pwd='" & pwd &"'"
rs.Open Sql,Conn,1,3
%>
<%
if not Rs.eof then
session("user")=rs("user") '-----ตรงนี้เอาไว้ตรวจสอบหน้าอื่นๆนะครับ ถ้าค่าว่างก็ให้เด้งไปยังหน้า Login.
%>
<div align = "center" class = text2> <font color="#CC3366"><strong>ท่านได้เข้าสู่ระบบแล้ว<br>
<a href="product.asp" herf = "product.asp">คลิกที่นี่เพื่อไปเลือกสินค้า</a></strong></font></div>
<%Else%>
<div align = "center" class = text2> <strong><font color="#CC0066">ท่านพิมพ์ Username
และ Password ไม่ถูกต้อง<br>
<a href="login.asp" herf = "login.asp">คลิกที่นี่เพื่อทำการเข้าระบบใหม่</a> </font></strong></div>
<%
End if
rs.Close : Set rs = Nothing
Conn.Close : Set Conn = Nothing
%>
<%
'------------------ปิดแท็ก end if ของ การเช็คค่าว่างของ user และ pwd ครับ
End If
%>
 
|
| |
|
|
| |
| Date :
25 ก.พ. 2549 17:16:25 |
By :
dev |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากค่ะ ..... แต่ยังใช้ไม่ได้เลยค่ะ สงสัยหน้า result เราจะใจดีจัดไปหน่อย ยอมให้เข้าไปต่อตลอดเลย
|
| |
|
|
| |
| Date :
26 ก.พ. 2549 00:41:21 |
By :
Harnetenan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อย่างนี้ดีกว่าครับ ผมว่าคุณน่าจะทำการ Redirect ไปนะครับน่าจะดีกว่า ลองดูนะครับ....
<%
user=Request.Form("user")
pwd=Request.Form("pwd")
'------------------ผมขอตัดการเช็ค session ออกนะครับ เพราะว่ายังไม่จำเป็นต้องเช็คในหน้านี้---------------------
If user <> " " and pwd <> " " Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/ASP/ecommerce.mdb"),"" , ""
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Member where user='"& user &"' and pwd='" & pwd &"'"
rs.Open Sql,Conn,1,3
if not Rs.eof then
session("user")=rs("user") '-----ตรงนี้เอาไว้ตรวจสอบหน้าอื่นๆนะครับ ถ้าค่าว่างก็ให้เด้งไปยังหน้า Login
response.redirect("main.asp") '-----------ทำการ Redirect ไปหน้าอื่นทันที
Else
Response.redirect("login.asp?err=notfound") '--------ส่งค่าตัวแปร error เอาไปเช็คหน้า login ครับ
End if
rs.Close : Set rs = Nothing
Conn.Close : Set Conn = Nothing
'------------------ปิดแท็ก end if ของ การเช็คค่าว่างของ user และ pwd ครับ
End If
%>
ลองดูครับผม 
|
| |
|
|
| |
| Date :
26 ก.พ. 2549 16:58:07 |
By :
dev |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
~>_<~ ยังมะได้เช่นเดิมค่ะ แต่เปลีย่นจากเดิมเป็นหน้าloginไม่ยอมไปหน้าresult_login เลยค่ะ
จาแก้ยังไงดีคะ
|
| |
|
|
| |
| Date :
26 ก.พ. 2549 17:31:43 |
By :
Harnetenan |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ทำได้แล้วค่ะ แบบreponse.redirect ขอบคุณมากนะคะ
จะลองปรับใช้เป็นแบบresponse.write ดู
ขอบคุณอีกครั้งค่ะ
|
| |
|
|
| |
| Date :
26 ก.พ. 2549 17:49:24 |
By :
Harnetenan |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
