<%@ codepage=874%> <% Option Explicit %> <%Session.LCID = 1054%> แต่งhi5 แต่งhi5ให้สวย โค้ด รวมโค้ดแต่งhi5 โค้ดhi5 มากมาย รวม css code codeแต่งhi5 โค้ดhi5 และ โค้ดแต่งhi5 สำหรับ ตกแต่ง hi5 ด้วย โค้ด hi5 จากเรา แถม โค้ดสกินhi5 hi5 ดารา






เว็บรวม แต่งhi5 แต่งhi5ให้สวย รวมโค้ดแต่งhi5 มากมาย รวม css code สำหรับ แต่งhi5 จากเรา แถม โค้ดสกินhi5 และ hi5 ดารา

<% 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() %>
   หน้าแรก โค้ดแต่งhi5
ค้นหา " 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 %>
  โค้ดแต่งhi5 แนะนำ
<% =rs("QName") %>
<% End If rs.Close Set rs = Nothing Call DisconnectDB() %> <% '---------------------------------------------------------------------------- ' 1.ประกาศตัวแปร Dim page, rowCount, i, ans, sWhere, sSearch '---------------------------------------------------------------------------- ' 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.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง 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.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 = 29 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 %>
 
  โค้ดแต่งhi5
<% =rs("QName") %> <%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, "default.asp", ans, sSearch) rs.Close Set rs = Nothing Call DisconnectDB() %>

   หน้าแรก โค้ดแต่งhi5
ค้นหา " size="15">