| |
 |
|
| |
|
|
|
 |
|
 |
| |
<%
function HTMLFormat(sInput)
dim sAns
sAns = replace(sInput, " ", " ")
sAns = replace(sAns, chr(34), """)
sAns = replace(sAns, "", "-->")
HTMLFormat = sAns
end function
Function ChkString(str)
Set dbbad=Server.CreateObject("ADODB.Connection")
strbad="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath("blessTheKing.mdb")
dbbad.Open strbad,"",""
sqlbad = "select * from badword"
set rsbad = dbbad.execute (sqlbad)
do until rsbad.eof
badword = rsbad("bad")
goodword = rsbad("good")
str = replace(str, badword , goodword , 1, -1, 1)
rsbad.movenext
loop
rsbad.close
str = replace(str, "<", "<", 1, -1, 1)
str = replace(str, ">", ">", 1, -1, 1)
ChkString = str
End Function
'InitDB
'Dim blessText
blesserName = ChkString(Request.Form("Txt_Name"))
blessTextNo = cInt(Request.Form("Txt_Detail"))
Select Case blessTextNo
Case 1:
blessText = "สฺวาคตนฺเต มหาราช : ขอพระองค์ทรงพระสิริสวัสดิ์"
Case 2:
blessText = "ขออานุภาพแห่งคุณพระศรีรัตนตรัยอภิบาลรักษาพระองค์ตลอดไป"
Case 3:
blessText = "ขอพระองค์ทรงพระเจริญด้วยจตุรพิธพรชัย อายุ วรรณะ สุขะ พละ เทอญ"
Case 4:
blessText = "ขอทรงพระเจริญด้วยพระจตุรพิธพรชัยและพระราชสิริสวัสดิ์ทุกประการ"
Case 5:
blessText = "ขอพระราชสิริสวัสดิพิพัฒนมงคล จงมีแด่พระองค์ตลอดไป"
Case 6:
blessText = "ขอน้อมเกล้าถวายพระพรชัยแด่พระเจ้าอยู่หัวด้วยความจงรักภักดี"
Case 7:
blessText = "ขอความสุขและความดีจงมีแด่พระเจ้าอยู่หัวของเราตลอดไป"
Case 8:
blessText = "ขอจงทรงพระเจริญด้วยพระกุศลและพระบารมีตลอดไป"
Case 9:
blessText = "ขอพ่อหลวงจงทรงพระเจริญยิ่งยืนนาน"
Case 10:
blessText = "ขอพระราชสิริสวัสดิ์จงมีแด่พ่อหลวงของเรา"
Case 11:
blessText = "ขอพระองค์จงทรงเจริญพระชนมายุยิ่งยืนนาน"
Case 12:
blessText = "ขอพระราชสิริสวัสดิ์จงมีแด่พระองค์ตลอดไป"
Case 13:
blessText = "ขอน้อมเกล้าถวายพระจตุรพิธพรชัยแด่พระเจ้าอยู่หัว"
Case 14:
blessText = "ทีฆายุโก โหตุ มหาราชา"
Case 15:
blessText = "LONG LIVE THE KING"
Case 16:
blessText = "ขอทรงพระเจริญพระราชสิริสวัสดิพิพัฒนมงคล พระชนมสุขทุกประการ"
Case 17:
blessText = "ขอทรงดำรงในพระมไหศวริยสมบัติยิ่งยืนนาน"
Case 18:
blessText = "ขอสรรพสิริมงคลจงดลบันดาลให้ทรงพระเจริญยิ่ง ๆ เทอญ"
Case 19:
blessText = "ขอสรรพสิ่งศิกดิ์สิทธิ์ในสากลบันดาลให้ทรงพระเจริญยิ่ง ๆ เทอญ"
Case 20:
blessText = "ขอทรงเจริญพระชนมายุยิ่งยืนนานพระบารมีแผ่ไพศาล ตลอดจิรกาล"
Case 21:
blessText = "ขอทรงพระเจริญด้วยพระชนมายุและยิ่งด้วยพระบารมี"
Case 22:
blessText = "ขอทรงยิ่งด้วยพระบารมีเป็นที่พึ่งของปวงข้าแผ่นดินตลอดไป"
Case 23:
blessText = "ขอทรงยิ่งด้วยพระชนมพรรษาและยิ่งด้วยพระบารมีตลอดไป"
Case 24:
blessText = "ขอถวายพระพรและความจงรักภักดีแด่พ่อหลวงของแผ่นดิน"
Case 25:
blessText = "ขอทรงยิ่งด้วยพระยศ ยิ่งด้วยพระบารมี เจริญพระชนมายุยิ่งยืนนาน"
Case 26:
blessText = "อายุวฑฺฒโก โหตุ มหาราชา ขอจงทรงพระเจริญพระชนมายุยิ่งยืนนาน"
Case 27:
blessText = "สิริวฑฺฒโก โหตุ มหาราชา ขอจงทรงพระเจริญพระสิริสวัสดิ์ยิ่งยืนนาน"
Case 28:
blessText = "ขอพระกุศลบารมีบันดาลให้ทรงยิ่งด้วยพระชนมสุขตลอดไป"
Case 29:
blessText = "วสฺสสตํ ชีวตุ ขอทรงเจริญพระชนมายุยิ่งร้อยปี"
End Select
isSubmit = Request.Form("submit")
If isSubmit = "1" Then
Session("isSubmit") = cInt(Session("isSubmit")) + 1
'response.write "Session value = " & Session("isSubmit")
End if
'response.write blesserName & " " & blessText
If blesserName <> "" and Session("isSubmit") >= 1 Then
if Session("isSubmit") > 1 Then
Session("isSubmit") = 1
'Session.Abandon()
End if
Set dbBlessTheKing = Server.CreateObject("ADODB.Connection")
dbBlessTheKingConn = "Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath("blessTheKing.mdb")
dbBlessTheKing.Open dbBlessTheKingConn
Set rsBlessTheKing = Server.CreateObject("ADODB.RecordSet")
sqlDB = "SELECT * FROM blessTheKing ORDER BY blessID DESC"
rsBlessTheKing.Open sqlDB, dbBlessTheKingConn, 1, 3
Dim CurrentHit
If rsBlessTheKing.EOF Then
CurrentHit = 1
else
CurrentHit = rsBlessTheKing("blessID")
CurrentHit = CurrentHit + 1
end if
rsBlessTheKing.AddNew
rsBlessTheKing("blessID") = CurrentHit
rsBlessTheKing("blesserName") = ChkString(Request.Form("Txt_Name"))
rsBlessTheKing("blessText") = blessText
rsBlessTheKing("blessImageID") = Request.Form("ImageID")
rsBlessTheKing("blessDate") = Now()
rsBlessTheKing("blesserIP") = Request.ServerVariables("Remote_Addr")
rsBlessTheKing.Update
rsBlessTheKing.Close
Set rsBlessTheKing = Nothing
dbBlessTheKing.Close()
Set dbBlessTheKing = Nothing
End If
Dim dbPageSize, dbCurrentPage, dbPageCount
dbPageSize=10
dbCurrentPage=Cint(Request.QueryString("page"))
if dbCurrentPage="" then
dbCurrentPage=1
else
dbCurrentPage=Cint(Request.QueryString("page"))
end if
strSQL="SELECT * FROM blessTheKing ORDER BY blessID DESC"
Set db=Server.CreateObject("ADODB.Connection")
str="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath("blessTheKing.mdb")
db.Open str,"",""
Set RS=Server.CreateObject("ADODB.Recordset")
RS.PageSize = dbPageSize
RS.CacheSize = dbPageSize
RS.Open strSQL,str,1,3
totalReccord=RS.RecordCount
dbPageCount=RS.PageCount
if dbCurrentPage > dbPageCount then
dbCurrentPage = dbPageCount
end if
if dbCurrentPage < 1 then
dbCurrentPage = 1
end if
IF NOT RS.EOF Then
RS.AbsolutePage = dbCurrentPage
End If
dbRecordsShown = 0
DO WHILE dbRecordsShown < dbPageSize And Not RS.EOF
detail = HTMLFormat(RS("blessText"))
detail = replace(detail, " ", " ")
detail = replace(detail, vbcrlf, "
")
imageNo = RS("blessImageID")
%>
 |
| <%=detail%> |
<%
Response.write RS("blesserName") & "
"
Response.write "วันที่: " & FormatDateTime(RS("blessDate"), 1)
Response.write " เวลา: " & FormatDateTime(RS("blessDate"), 3) & " น."
%>
|
|
<%
dbRecordsShown = dbRecordsShown + 1
RS.MoveNext
Loop
%>
|
|
 |
|
 |
|
|
|
|
<%
FOR I = 1 TO dbPageCount
IF I = dbCurrentPage Then
if dbPageCount > 1 Then
Response.Write "" & I & " | "
else
Response.Write "" & I & ""
end if
Else
IF I < dbPageCount Then
Response.Write "" & I & " | "
'Response.Write I & " | "
Else
Response.Write "" & I & ""
End If
END IF
NEXT
%>
|
 |
|
|
|
|
|
|
|
|
|
