เว็บรวม แต่ง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()
%>
|
<%
'---- ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง 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
%>
<%
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
%>
<% =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%>
|
<%
rowCount = rowCount + 1
rs.MoveNext
Loop
Else
%>
ไม่พบที่คุณค้นหา ลองเปลี่ยนคำค้นหาดู |
<%
End If
%>
|
|
|
|
หน้าที่
<%
Call ShowPageNum(rs.PageCount, Page, "default.asp", ans, sSearch)
rs.Close
Set rs = Nothing
Call DisconnectDB()
%>
|
|
|