|
<%
sql1 ="select Hinhtam.hinh,Hinhtam.stt from Hinhtam join Tindang on Hinhtam.stt=Tindang.stt where Tindang.trangthai='HinhAd' order by Tindang.stt"
rs1.Open sql1
%>
|
|
|
|
|
|
|
|
|
<%
sql = " select * from DanhMuc order by TenDM "
rs.Open sql
%>
<%
do until rs.EOF
%>
<%
rs.MoveNext
loop
%>
|
|
|
Liên kết website
|
<%
sql3 ="select * from HinhQuangCao where vitri ='trai'"
rs3.Open sql3
%>
<%do until rs3.EOF%>
|
|
<%rs3.MoveNext
loop%>
|
|
|
|
Thông báo |
THƯ - NGỎ
www.thegioimienphi.com là trang web chứa đựng những thông tin giúp bạn có thể tiếp cận, sử dụng và thưởng thức những chủ đề đã được sưu tầm khắp nơi trên Thế Giới được cung cấp miễn phí hay hầu như miễn phí.
Đến với trang web thegioimienphi.com bạn có thể: rao vặt,, tìm kiếm việc làm, mua bán nhà đất, laptop, điện thoại di động , nghe nhạc, xem phim, xem truyền hình online, đọc báo , đọc truyện, chơi game, hát karaoke online, kết bạn bốn phương, chat online, học ngoại ngữ, học nấu ăn, xem tử vi - tướng số - phong thuỷ và nhiều nữa … được thế giới cung cấp hoàn toàn miễn phí.
Ngoài ra bạn còn có thể download hình ảnh , video , font chữ , phầm mềm các loại miễn phí,.. và những địa chỉ cần thiết để phục vụ cho việc học tập và làm việc.
Chúng tôi rất mong đón nhận sự góp ý của các bạn để trang web ngày càng hoàn thiện hơn, nhằm mục đích phục vụ các bạn một cách tốt nhất !
Chúc sức khoẻ và thành công
Ban quản trị thegioimienphi.com. |
|
TIN RAO
VẶT
|
Tiêu Đề |
Ngày |
Nơi Rao |
<%
//'If there are no records
If rs4.EOF Then
Response.write "Khong co tin"
Else
//'this moves the record pointer to the first record of the current page
rs4.AbsolutePage = CurrPage
//the below loop will loop until all the records of the current page have been
//displayed or it has reached the end of the recordset
Do Until rs4.AbsolutePage <> CurrPage OR rs4.Eof %>
|
" title="<%=rs4("TieuDe")%>"><%=rs4("TieuDe1")%> ...(<%=rs4("SoLanXemTin")%>) |
<%=rs4("ngay")%>.<%=rs4("thang")%>
|
<%=rs4("Noirao")%>
|
<%rs4.MoveNext%>
<%loop
end if%>
<%
//the next 2 lines setup the page number for the "previous" and "next" links
RSPrevPage = CurrPage -1
RSNextPage = CurrPage + 1
//find out the number of pages returned in the recordset
//if the Next10 page number is greater than the recordset page count
//then set Next10 to the recordset pagecount
If Next10 > rs4.PageCount Then
Next10 = rs4.PageCount
End If
//the variable start determines where to start the page number navigation
// i.e. 1, 10, 20, 30 and so on.
If prev10 = 1 AND next10 - 1 < 10 Then
start = 1
Else
start = Next10 - 10
If right(start, 1) > 0 Then
start = replace(start, right(start, 1), "0")
start = start + 10
End If
End If
//This checks to make sure that there is more than one page of results
If rs4.PageCount > 1 Then
//Work out whether to show the Previous 10 '<<'
If currpage > 1 Then
response.write(" << ")
End If
//Work out whether to show the Previous link '<'
If NOT RSPrevPage = 0 then
response.write(" < ")
End If
//Loop through the page number navigation using P as our loopcounter variable
For P = start to Next10
If NOT P = CurrPage then
response.write(" " & P & " ")
Else
//Don't hyperlink the current page number
response.write(" " & P & " ")
End If
Next
//this does the same as the "previous" link, but for the "next" link
If NOT RSNextPage > rs4.PageCount Then
response.write(" > ")
End If
//Work out whether to show the Next 10 ">>"
If NOT Next10 = rs4.PageCount Then
response.write(" >>")
End If
End If
%>
|
|
<%
sql2 = "select * from HinhQuangCao where vitri ='phai'"
rs2.Open sql2
%>
|
Quảng cáo
|
<%do until rs2.EOF%>
|
|
<%rs2.MoveNext
loop%>
|
|
<%// Có tổng cộng
//sql10 = "select count(ID_TV) as TV from ThanhVien"
//rs10.Open sql10
//Response.Write rs10("TV")
%>
<%//người đăng tin và
//sql11 = "select count(STT) as stt,sum(SoLanXemTin) as lanxem from TinDang"
//rs11.Open sql11
//Response.Write rs11("stt")
//tin rao
// . Đã có
%>
<%//=rs11("lanxem")lần xem%>
Hiện đang có <%=Application("So_Nguoi_Online")%> người online và đã có <%=Application("So_Luot_Truy_Cap")%> khách truy cập
|
|
Copyright © 2007 by
The Gioi Mien
Phi. Design by AMERICAN WEB DESIGN. |
|
|
| |
")
else
Response.Write (""&rs("TenDM")&"")
End if
%>