อยากสร้างฟอร์ม login Username และ Password โดยเมื่อใส่ Username และ Password ถูกต้องให้เข้าสู่ระบบ หากใส่ผิดให้ขึ้นข้อความว่าใส่ผิดกรุณาใส่ใหม่ หากไม่ใส่ให้บอกว่ากรุณาใส่ Username และ Password ด้วยค่ะ ฐานข้อมูล Microsoft Access 2003 windows xp webserver IIS มีชื่อตาราง PasswordAdmin
ID,USERNAME,PASSWORD
NAKE.PE NAKE.PE
Tag : - - - -
Date :
9 Sep 2547 08:44:34
By :
nokpituk
View :
5572
Reply :
6
No. 1
Guest
อันนี้เป็นของ ASP นะครับ และ Save ตัวไฟล์เป็น Default.asp ยังไงก็ลองเล่นดู
<%
Dim conn
Function ConnectDB()
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("ที่อยู่database.mdb")
If Err.Number = 0 Then
ConnectDB = True
Else
ConnectDB = False
End If
End Function
%>
<%
Dim usr, pwd, sql, rs, errmsg
usr = Request.Form("user")
pwd = Request.Form("pwd")
If usr = "" Or pwd = "" Then
Session("user") = ""
End If
If usr <> "" And pwd <> "" Then
On Error Resume Next
If ConnectDB() = True Then
sql = "Select UserName, Password" & _
"From PasswordAdmin " & _
"Where UserName='" & usr & "' And " & _
"Password='" & pwd & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Session("user") = rs("UserName")
errmsg = ""
Response.Redirect "เมื่อผ่านแล้วจะไปหน้าไหน.asp"
Else
Session("user") = ""
errmsg = "<p align=center class=defaultred><font color='red'>Please input sign in again.</font></p>"
End If
Else
Response.Write ConnectDB()
Response.Write "<p align=center class=defaultred><font color='red'>Not Connect Please input sign in again.</font></p>"
Response.End
End If
End If
%>
<SCRIPT language=JavaScript>
<!--
function chkInvalid(form)
{
if (frmcall.user.value.length < 1) {
alert("Please input Username again.");
frmcall.user.focus();
return (false);
}
if (frmcall.pwd.value.length < 1) {
alert("Please input Password again.");
frmcall.pwd.focus();
return (false);
}
return (true);
}
-->
</SCRIPT>
<html>
<head><title>www.Tax-Thai.com</title></head>
<body>
