Chào các
bạn! Mình mới học lập trình web, mình đang thiết kết 1 trang web để cho
người dùng xem tin tức, mình thiết kết bảng (Table) dùng để lưu trữ tin
tức hàng ngày của mình như sau:
BAIVIET(ID,tieude,NDTomtat,NDChitiet,Tacgia,Ngayviet) trong đó ID là
khóa và mình cũng viết được trang web như sau:
nhìn cũng khá đẹp đúng không các bạn, nhưng mình muốn cải tiến trang
web của mình theo giống như trang web bên dưới đây:
mình muốn mỗi bài nó có 2 hoặc 3 tin con nằm bên dưới nó ví dụ trong
trang web trên thì tin đầu tiên là:"Dự đoán kết quả MC-MU...." xong bên
dưới nó có hai tin nữa là:
Công bố kết quả dự đoán trận RM - Bẩc.
Công bố kết quả dự đoán trận MU-Chease.
khi nhấp vào nút xem thêm bên phải mỗi tin đó thì hiện ra toàn bộ các
tin túc giống như thế này:
Còn khi nhấp vào từng tin con bên dưới thì nó sẽ mở ra nội dung của
tin đó.
Mong các bạn giúp dùm mình, vì mình đang rất muốn học cách viết như
thế. mong các bạn HD mình thiết kế CSDL để lưu trữ tin và các lập trình
để được kết quả như trên.
còn đây là code của mình viết để tạo trang như hình 1:
<%Session.Codepage=65001%>
<%
StrSQL="Select * from Baiviet ORDER BY Mabaiviet DESC"
rs.cursorLocation=3
rs.Pagesize=10
rs.open strSQL,oConn,0,1
if request("ViewPage")<>"" then
Session("CurrentPage")=cint(request("ViewPage"))
else
Session("CurrentPage")=cint(Session("CurrentPage"))+Request("Page")
end if
if cint(session("CurrentPage"))<1 then
session("CurrentPage")=1
end if
if cint(session("CurrentPage"))>rs.pagecount then
session("CurrentPage")=rs.pagecount
end if
if not rs.eof then
rs.absolutePage=session("CurrentPage")
end if
%>
Tin tức
style="border-collapse:collapse" bordercolor="#00FF00">
height="1">size="7">
TIN TỨC
&nbs
p; NEWS
>
Trang
<%=Session("CurrentPage")%>/<%=rs.pagecount%>
Bài
viết
Quản lý bài
viết
<%
while not rs.eof and rs.absolutePage=session("CurrentPage")
%>
href=NDChitiet.asp?IDBaiviet=<%=rs.fields("Mabaiviet")%>
target="_blank">
color="#0000FF"><%=rs.fields("Tieude")%>
<% if rs("File")<>"" then%>
"
width="112" height="109" hspace="3" alt="" vspace="1">
<%else%>
hspace="3" alt="" vspace="1">
<%end if%>
colspan="2"><%=rs.fields("NDTomTat")%>
<%
rs.movenext
wend
%>
<%if cint(session("CurrentPage"))>1 then%>
[You must be registered and logged in to see this link.]
<%end if%>
<%
if (cint(session("CurrentPage"))+2)<=rs.pagecount
then
for i=cint(session("CurrentPage")) to
cint(session("CurrentPage"))+2
'response.write " "
%>
>
<%=i%>
<%
next
else
for i=cint(session("CurrentPage")) to rs.pagecount
'response.write " ; "
%>
>
<%=i%>
<%
next
end if
%>
...
bordercolor="#CCFF00">
<%if cint(session("CurrentPage"))
[You must be registered and logged in to see this link.]
<%
end if
rs.close
%>
Rất mong các bạn giúp đỡ, cám ơn!
Chào trân trọng!
bạn! Mình mới học lập trình web, mình đang thiết kết 1 trang web để cho
người dùng xem tin tức, mình thiết kết bảng (Table) dùng để lưu trữ tin
tức hàng ngày của mình như sau:
BAIVIET(ID,tieude,NDTomtat,NDChitiet,Tacgia,Ngayviet) trong đó ID là
khóa và mình cũng viết được trang web như sau:
nhìn cũng khá đẹp đúng không các bạn, nhưng mình muốn cải tiến trang
web của mình theo giống như trang web bên dưới đây:
mình muốn mỗi bài nó có 2 hoặc 3 tin con nằm bên dưới nó ví dụ trong
trang web trên thì tin đầu tiên là:"Dự đoán kết quả MC-MU...." xong bên
dưới nó có hai tin nữa là:
Công bố kết quả dự đoán trận RM - Bẩc.
Công bố kết quả dự đoán trận MU-Chease.
khi nhấp vào nút xem thêm bên phải mỗi tin đó thì hiện ra toàn bộ các
tin túc giống như thế này:
Còn khi nhấp vào từng tin con bên dưới thì nó sẽ mở ra nội dung của
tin đó.
Mong các bạn giúp dùm mình, vì mình đang rất muốn học cách viết như
thế. mong các bạn HD mình thiết kế CSDL để lưu trữ tin và các lập trình
để được kết quả như trên.
còn đây là code của mình viết để tạo trang như hình 1:
<%Session.Codepage=65001%>
<%
StrSQL="Select * from Baiviet ORDER BY Mabaiviet DESC"
rs.cursorLocation=3
rs.Pagesize=10
rs.open strSQL,oConn,0,1
if request("ViewPage")<>"" then
Session("CurrentPage")=cint(request("ViewPage"))
else
Session("CurrentPage")=cint(Session("CurrentPage"))+Request("Page")
end if
if cint(session("CurrentPage"))<1 then
session("CurrentPage")=1
end if
if cint(session("CurrentPage"))>rs.pagecount then
session("CurrentPage")=rs.pagecount
end if
if not rs.eof then
rs.absolutePage=session("CurrentPage")
end if
%>
TIN TỨC
&nbs
p; NEWS
>
Trang
<%=Session("CurrentPage")%>/<%=rs.pagecount%>
Bài
viết
Quản lý bài
viết
<%
while not rs.eof and rs.absolutePage=session("CurrentPage")
%>
href=NDChitiet.asp?IDBaiviet=<%=rs.fields("Mabaiviet")%>
target="_blank">
color="#0000FF"><%=rs.fields("Tieude")%>
<% if rs("File")<>"" then%>
"
width="112" height="109" hspace="3" alt="" vspace="1">
<%else%>
hspace="3" alt="" vspace="1">
<%end if%>
href=NDChitiet.asp?IDBaiviet=<%=rs.fields("Mabaiviet")%>
target="_blank">Chi tiết...
<%
rs.movenext
wend
%>
<%if cint(session("CurrentPage"))>1 then%>
[You must be registered and logged in to see this link.]
<%end if%>
<%
if (cint(session("CurrentPage"))+2)<=rs.pagecount
then
for i=cint(session("CurrentPage")) to
cint(session("CurrentPage"))+2
'response.write " "
%>
>
<%=i%>
<%
next
else
for i=cint(session("CurrentPage")) to rs.pagecount
'response.write " ; "
%>
>
<%=i%>
<%
next
end if
%>
...
<%if cint(session("CurrentPage"))
[You must be registered and logged in to see this link.]
<%
end if
rs.close
%>
Rất mong các bạn giúp đỡ, cám ơn!
Chào trân trọng!