<%@ Language=VBScript %>
<%
dim allow
dim refer
dim Username
dim Passwd
Username = Request.form("login")
Passwd = Request.form("password")
if Username <> "" AND Passwd <> "" then
dim Conn
dim cm
dim to_day
to_day = (Date)
' database connection script นี้ไม่ต้องเปลี่ยน เพราะคนเก่าเขียนเอาไว้แล้ว
Set Conn = Server.CreateObject("ADODB.Connection")
Set cm = Server.CreateObject("ADODB.Command")
Conn.Open "DBQ=" & Server.Mappath("/cgi-bin/tstockno1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
cm.ActiveConnection = Conn
sql = "select * from members where login='"&Username&"' and password='"&Passwd&"'"
cm.CommandText = sql
Set RS = cm.Execute
' end script
if not RS.eof then
refer="ok"
Response.cookies("login")("username")=Username
Response.cookies("login")("allow")="ok"
Response.cookies("login").Expires=(Date)+1
' database connection script นี้ไม่ต้องเปลี่ยน เพราะคนเก่าเขียนเอาถูกไว้แล้ว
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "select * from members where memid = "&RS("memid"), "DBQ=" & Server.Mappath("/cgi-bin/tstockno1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};", 1, 3
rs2("counter") = rs("counter") + 1
rs2.Update
RS2.close
set RS2 = nothing
set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open "select * from logs", "DBQ=" & Server.Mappath("/cgi-bin/tstockno1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};", 1, 3
rs3.addnew
rs3("sdate") = now
rs3("memid") = rs("memid")
rs3("name") = rs("name")
rs3.Update
rs3.close
set rs3 = nothing
' end script
end if
end if
%>
Welcome to ThaiStockTimes.com and บัญชรหุ้น, ป.ดัชนี , MetaStock, วิเคราะห์ราคาทองคำ
<%
allow = Request.Cookies("login")("allow")
if allow="ok" then
response.write ("
")
response.write ("
")
response.write ("
คุณได้ login แล้ว
")
response.write ("
")
else
response.write (" ")
end if
set Conn=nothing
set cm=nothing
set to_day=nothing
set allow=nothing
set Username=nothing
set Passwd=nothing
set refer=nothing
%>
ตลาดทองคำ 
