<%@ codepage=874%> <% Option Explicit %> <%Session.LCID = 1054%> รอบรู้เรื่องรถยนต์ รถแต่ง รูปรถ รถเเต่ง ราคารถ รถโบราณ รถเก่า








<% Dim sqlBanner1, sqlBanner2 Call ConnectDB(dbPath) sqlBanner1 = "select * from Banners where Show1 in (1, 2)" sqlBanner2 = "select * from Banners where Show2 in (1, 2)" Set rs = conn.Execute(sqlBanner1) If Not rs.EOF Then Response.Write "
" & rs("Banner1") & "

" rs.Close Set rs = Nothing Set rs = conn.Execute(sqlBanner2) If Not rs.EOF Then If rs("Banner2") <> "" Then Response.Write "
" & rs("Banner2") & "
" rs.Close Set rs = Nothing Call DisconnectDB() %>
   หน้าแรกรถยนต์
ค้นหา " size="15">



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

<% '---- ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล ---- Call ConnectDB(dbPath) sql="select * from questions where QRecommend = 1 order by QNumber DESC" Set rs = conn.Execute(sql) If Not rs.EOF Then %> <% Do While Not rs.EOF %> <% rs.MoveNext Loop %>
  รอบรู้เรื่องรถแนะนำ
- <% =rs("QTopic") %>   อ่านต่อ
<% End If rs.Close Set rs = Nothing Call DisconnectDB() %> <% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch, Qch '---------------------------------------------------------------------------- ' 2.Validate ตัวแปรที่เก็บค่าของหน้าในการแสดงผล RecordSet page = Trim(Request.QueryString("page")) If page = "" Then page = 1 sSearch = Trim(Request.QueryString("search")) ans = Trim(Request.QueryString("ans")) If sSearch = "" Then If IsNumeric(ans) Then If ans=1 Then sWhere = " where nanswer>=1" If ans=0 Then sWhere = " where nanswer=0" If ans=2 Then sWhere = " order by nanswer DESC, qnumber DESC" If ans=3 Then sWhere = " order by nanswer, qnumber DESC" If ans=4 Then sWhere = " order by answers.adate DESC, questions.qdate DESC" If ans=5 Then sWhere = " order by nview DESC, qnumber DESC" Else sWhere = "" End If Else sWhere = " where qtopic like '%"& doQuote(sSearch) &"%' Or qnote like '%"& doQuote(sSearch) &"%'" End If '----------------------------------------------------------------- ' 3.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Drama Q มาแสดงผล Call ConnectDB(dbPath) 'Sql="Select * from questions where Qch Like = " & Qch & " order by QNumber desc" sql="select * from questions" & sWhere & " order by QNumber DESC" If ans="2" Or ans="3" Or ans="5" Then sql="select * from questions" & sWhere ElseIf ans = "4" Then sql = "SELECT DISTINCTROW Questions.QNumber, Questions.Qch, Questions.QTopic, Questions.QName, Questions.QDate, Questions.NAnswer, Questions.NView, Questions.QIP FROM Questions LEFT JOIN Answers ON Questions.QNumber = Answers.QNumber" & sWhere End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic ' กำหนดจำนวนเรคคอร์ดที่จะแสดงในแต่ละหน้า rs.PageSize = 10 rs.Open sql,conn If Not rs.EOF Then ' กำหนดว่าต้องการแสดงผลลัพธ์จากหน้าไหน rs.AbsolutePage = CInt(page) rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %> <% rowCount = rowCount + 1 rs.MoveNext Loop Else %> <% End If %>
 
  รอบรู้เรื่องรถ
- <% =rs("QTopic") %> <%If replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%> <%elseif rs("nanswer") <> 0 then%> <%else%> <%end if%>  อ่านต่อ
ไม่พบที่คุณค้นหา ลองเปลี่ยนคำค้นหาดู





















หน้าที่ <% Call ShowPageNum(rs.PageCount, Page, "car.asp", ans, sSearch) rs.Close Set rs = Nothing Call DisconnectDB() %>

   หน้าแรกรถยนต์
ค้นหา " size="15">