ขอเสนอ แนวความคิด เรื่องโค๊ดไม่ชัวร์ครับ
1 ทำฟอร์มกรอก user และ password ใส่ ใน ฐานข้อมูลที่คุณใช้(สมัคร)
2.หลังจากนั้น ก็ สร้างหน้าเว็ป ไว้กรอก user และ password (login)
ใส่โค๊ด
<!--#include file="include/dbconnect.asp" -->(ที่เก็บ ฐานข้อมูลสมาชิกของคุณ)
<%
Dim user, pwd
Dim sql, rs
user = Request.Form("username")
pwd = Request.Form("password")
If user <> "" Or pwd <> "" Then
If ConnectDB() = True Then
sql = "select * from admin " & _
"where username='" & user & "' And " & _
"password='" & pwd &"'"
Set rs = Conn.Execute(sql)
If rs.BOF Or rs.EOF Then
'กรณีไม่พบข้อมูล
Response.Write "ไม่มีผู้ใช้ในระบบ<br>"
Response.Write "<a href=admin.asp>Back</a>"
Response.End
Else
' กรณีพบข้อมูล
Session("User") = rs("username")
Session("IsAdmin") = rs("Admin")
rs.Close
Set rs = Nothing
Response.Redirect "boardadmin.asp"
End If
End If
End If
%>
<html>...(ฟอร็ม กรอก user และ password ) ที่คุณ กรอกสมัคร เมื่อข้อที่ 1)คุณออกแบบเองนะ เพียง กำหนด
ชือ (name ) ของ input user และ password ให้ตรงกับค่าตัวแปรที่กำหนดไว้
3. คุณต้องใส่โค๊ด บนไฟล์ทุกไพล์ ใน webboard ของคุณ
<%
' คุณต้องกรอกlogin ก่อนใช้
If Session("user") = "" Then Response.Redirect "admin.asp"
%>
