%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('- /<%=lenid(rsd("id"))%>.html"><%=replace(rsd("title"),"'","’")%>
')
document.write('<%=DateEng(rsd("adddate"))%> ');
<%
rsd.movenext
loop
end if
rsd.close
set rsd=Nothing%>
document.write('
');
<%case "pohto"%>
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('- /<%=lenid(rsd("id"))%>.html"><%=replace(rsd("title"),"'","’")%>
')
document.write('<%=DateEng(rsd("adddate"))%> ');
<%
rsd.movenext
loop
end if
rsd.close
set rsd=Nothing%>
document.write('
');
<%case "pohtox"%>
document.write('');
document.write('
Photo Gallery
');
document.write('
');
document.write('
');
<%end select
end if%>