|
<%
Dim sqlBanner1, sqlBanner2, rsBanner
sqlBanner1 = "select * from Banners where Show1 in (1, 3)"
sqlBanner2 = "select * from Banners where Show2 in (1, 3)"
Set rsBanner = conn.Execute(sqlBanner1)
If Not rs.EOF Then Response.Write " " & rsBanner("Banner1") & " "
rsBanner.Close
Set rsBanner = Nothing
Set rsBanner = conn.Execute(sqlBanner2)
If Not rsBanner.EOF Then If rsBanner("Banner2") <> "" Then Response.Write "" & rsBanner("Banner2") & " "
rsBanner.Close
Set rsBanner = Nothing
%>
|
|
|
ชุดวิชา
<%=Server.HTMLEncode(RS("QTopic"))%> |
<%
Dim sNote, sPicture
sNote = RS("QNote")
'--- ค้นหาเครื่องหมายคำสั่ง html และแทนด้วยสัญลักษณ์ ascii ---
sNote = Replace(sNote, "<", "<")
sNote = Replace(sNote, ">", ">")
sNote = Replace(sNote, "<" & "br" & ">", " ")
'--- ค้นหาสัญลักษณ์และแทนด้วยรูปภาพ ---
sNote = Replace(sNote, "(Y)", "")
sNote = Replace(sNote, "(N)", "")
sNote = Replace(sNote, ":-[", "")
sNote = Replace(sNote, ":-)", "")
sNote = Replace(sNote, ":-D", "")
sNote = Replace(sNote, ":-O", "")
sNote = Replace(sNote, ":-P", "")
sNote = Replace(sNote, ";-)", "")
sNote = Replace(sNote, ":-(", "")
sNote = Replace(sNote, "rof", "")
sNote = Replace(sNote, ":-|", "")
sNote = Replace(sNote, "lol", "")
sNote = Replace(sNote, ":-@", "")
sNote = Replace(sNote, "(G)", "")
sNote = Replace(sNote, "(F)", "")
sNote = Replace(sNote, "(P)", "")
sNote = Replace(sNote, "(~)", "")
sNote = Replace(sNote, "(T)", "")
sNote = Replace(sNote, "(@)", "")
sNote = Replace(sNote, "(&)", "")
sNote = Replace(sNote, "(C)", "")
sNote = Replace(sNote, "(I)", "")
sNote = Replace(sNote, "(S)", "")
sNote = Replace(sNote, "(*)", "")
sNote = Replace(sNote, "(8)", "")
sNote = Replace(sNote, "(E)", "")
sNote = Replace(sNote, "(^)", "")
sNote = Replace(sNote, "(O)", "")
sNote = Replace(sNote, "(M)", "")
'--- พิมพ์ข้อความออกทางเว็บบราวเซอร์ ---
Response.Write CreateLink(sNote)
sPicture = rs("QPicture")
If sPicture <> "" Then Response.Write "
"
%> |
จาก <%=Server.HTMLEncode(RS("QName"))%>
<% If rs("QIP") <> "" Then Response.Write " (" & rs("QIP") & ") " %>
วันที่
<% =rs("qdate") %>
|
|
|
<%
RS.Close
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql2,Conn,1,3
do while not rs.EOF
ans_num = ans_num + 1
%>
|
|
ตอบ No. <%=ans_num%> |
<%
sNote = RS("ANote")
'--- ค้นหาเครื่องหมายคำสั่ง html และแทนด้วยสัญลักษณ์ ascii ---
sNote = Replace(sNote, "<", "<")
sNote = Replace(sNote, ">", ">")
sNote = Replace(sNote, "<" & "br" & ">", " ")
'--- ค้นหาสัญลักษณ์และแทนด้วยรูปภาพ ---
sNote = Replace(sNote, "(Y)", "")
sNote = Replace(sNote, "(N)", "")
sNote = Replace(sNote, ":-[", "")
sNote = Replace(sNote, ":-)", "")
sNote = Replace(sNote, ":-D", "")
sNote = Replace(sNote, ":-O", "")
sNote = Replace(sNote, ":-P", "")
sNote = Replace(sNote, ";-)", "")
sNote = Replace(sNote, ":-(", "")
sNote = Replace(sNote, "rof", "")
sNote = Replace(sNote, ":-|", "")
sNote = Replace(sNote, "lol", "")
sNote = Replace(sNote, ":-@", "")
sNote = Replace(sNote, "(G)", "")
sNote = Replace(sNote, "(F)", "")
sNote = Replace(sNote, "(P)", "")
sNote = Replace(sNote, "(~)", "")
sNote = Replace(sNote, "(T)", "")
sNote = Replace(sNote, "(@)", "")
sNote = Replace(sNote, "(&)", "")
sNote = Replace(sNote, "(C)", "")
sNote = Replace(sNote, "(I)", "")
sNote = Replace(sNote, "(S)", "")
sNote = Replace(sNote, "(*)", "")
sNote = Replace(sNote, "(8)", "")
sNote = Replace(sNote, "(E)", "")
sNote = Replace(sNote, "(^)", "")
sNote = Replace(sNote, "(O)", "")
sNote = Replace(sNote, "(M)", "")
'--- พิมพ์ข้อความออกทางเว็บบราวเซอร์ ---
Response.Write CreateLink(sNote)
sPicture = rs("APicture")
If sPicture <> "" Then Response.Write "
"
%>
|
จาก <%=Server.HTMLEncode(RS("AName"))%>
วันที่ <%=rs("adate")%> |
|
|
<%
rs.movenext
loop
RS.Close
Set rs = Nothing
Call DisconnectDB()
%>
|
| |