<%if not(request.servervariables("HTTP_REFERER")="") then
select case Request("Menu")
case ""
aa=Split(request.servervariables("HTTP_REFERER"),"/")(5)
bb=Split(aa,".")(0)
m_ID = bb
if IsNumeric(m_ID)=True then
m_SQL = "UPDATE Chnet_Eng_info SET count=count+1 WHERE id=" & m_ID
conn.Execute(m_SQL)
end if
%>
document.write('
');
document.write('
Latest news headlines
');
document.write('
');
<%dqtime=now()-7
set rsd=server.createobject("adodb.recordset")
sql = "select top 5 * from Chnet_Eng_info where online='True' and adddate>'"&dqtime&"' order by count desc,adddate desc"
rsd.open sql,conn,1,1
if not(rsd.eof and rsd.bof) then
do while not rsd.eof
%>
document.write('
');
<%
rsd.movenext
loop
end if
rsd.close
set rsd=Nothing%>
document.write('
');
<%case "pohto"%>
document.write('
');
<%dqtime=now()-7
set rsd=server.createobject("adodb.recordset")
sql = "select top 8 * from Chnet_Eng_info where online='True' and images<>'0' order by adddate desc"
rsd.open sql,conn,1,1
if not(rsd.eof and rsd.bof) then
i=0
do while not rsd.eof
i=i+1
if i=1 then response.write "document.write('
');
<%
rsd.movenext
loop
end if
rsd.close
set rsd=Nothing%>
document.write('
');
<%case "newsold"%>
document.write('
');
document.write('
Latest news headlines
');
document.write('
');
<%dqtime=now()-7
set rsd=server.createobject("adodb.recordset")
sql = "select top 5 * from Chnet_Eng_info where online='True' and adddate>'"&dqtime&"' order by count desc,adddate desc"
rsd.open sql,conn,1,1
if not(rsd.eof and rsd.bof) then
do while not rsd.eof
%>
document.write('
');
<%
rsd.movenext
loop
end if
rsd.close
set rsd=Nothing%>
document.write('
');
<%case "pohtox"%>
document.write('
');
document.write('
Photo Gallery
');
document.write('
');
<%
set rsd=server.createobject("adodb.recordset")
sql = "select top 4 * from Chnet_Eng_info where online='True' and images<>'0' order by adddate desc"
rsd.open sql,conn,1,1
if not(rsd.eof and rsd.bof) then
i=0
do while not rsd.eof
i=i+1
if i=1 then response.write "document.write('