<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set rs=fs.opentextFile(Server.MapPath("../pages/hntqcounter.txt"),1,false) fcount=rs.readline rs.close set rs=nothing set fs=nothing session("hitCount")=fcount %>

BÌA VÀ MỤC LỤC

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("../database/proceedings6.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select * from HNTQ6 ORDER BY ID", conn %> <% do until rs.EOF %><% for each x in rs.Fields %><% next %><% rs.MoveNext loop %>
ID Tên tác giả Tên bài báo Trang
<% if x.name="TenBai" then %>.pdf"> <% end if if x.name<>"TenBai" then %><% end if Response.Write(x.value) if x.name<>"TenBai" then %><% end if if x.name="TenBai" then %><% end if %>
<% rs.close conn.close %>

____________________
Lần truy cập: 
<%=session("hitCount")%>