<%@ codepage=874%> <% Option Explicit %> <%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 "car.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 %> <%=Server.HTMLEncode(RS("QTopic"))%>








<% 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 %>

Option
  หน้าแรกรอบรู้เรื่องรถ
 
  ตั้งเป็นหน้าแรก
  พิมพ์หน้านี้
  ส่งให้เพื่อน


<% Do While Not rs.EOF %> <% rs.MoveNext Loop %>
  <%=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, "(B)", "") sNote = Replace(sNote, "(D)", "") sNote = Replace(sNote, "(X)", "") sNote = Replace(sNote, "(Z)", "") sNote = Replace(sNote, "(6)", "") sNote = Replace(sNote, ":-[", "") sNote = Replace(sNote, "(})", "") 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, ":-S", "") sNote = Replace(sNote, ":-|", "") sNote = Replace(sNote, ":--(", "") sNote = Replace(sNote, ":-$", "") sNote = Replace(sNote, "(H)", "") sNote = Replace(sNote, ":-@", "") sNote = Replace(sNote, "(A)", "") sNote = Replace(sNote, "(L)", "") sNote = Replace(sNote, "(K)", "") sNote = Replace(sNote, "(G)", "") sNote = Replace(sNote, "(F)", "") sNote = Replace(sNote, "(W)", "") 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 sPicture = rs("QPicture") If sPicture <> "" Then Response.Write "


" Response.Write CreateLink(sNote) %>




 Tag : "><%=Server.HTMLEncode(RS("QName"))%>
( view : <%=RS("NView")%>)