<%@ codepage="874" %> <% Session.LCID = 1054 %> <% ' ---- ประกาศตัวแปรและกำหนดค่าเริ่มต้นให้กับตัวนับจำนวนผู้ตอบ Dim ans_num, gID, Sql1, Sql2 ans_num = 0 on error resume next ' ---- ส่วนรับข้อมูลจาก form gID=Request.QueryString("GID") ' ---- หากไม่ได้ส่งค่าหมายเลขกระทู้คำถาม ให้ไปหน้าแสดงกระทู้คำถามรวมก่อน If Not IsNumeric(gID) Or gID <= 0 Then Response.Redirect "aspboard.asp" ' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถามและคำตอบเฉพาะที่ต้องการ Call ConnectDB(dbPath) Sql1="Select * from Questions where QNumber =" & gID Sql2="Select * from Answers where QNumber=" & gID &" order by ADate" Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql1,Conn,1,3 %> คำถาม #<%=Right(("00000" & RS("QNumber")), 5)%>

 

<% 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() %>
ผู้ตอบ :
ข้อความ :
สัญลักษณ์ :

 
<%Response.Write CreateCAPTCHA%> พิมพ์รหัสส่งข้อมูลที่เห็นในช่องนี้ (ตัวพิมพ์ใหญ่)--> ">