<%
id=request("id")
if id="" or not checknum(id) then
call msg("Parameter error","")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from down_co where id="&id&" and pass='yes' "
rs.open sql,conn,1,3
if rs.eof then
call msg("This information does not exist or has been deleted","")
else
rs("read_num")=rs("read_num")+1
rs.update()
lm=rs("lm")
title=rs("title_en")
wtime=rs("wtime")
read_num=rs("read_num")
z_body=rs("z_body_en")
dow_sl=rs("dow_sl")
end if
rs.close
set rs=nothing
set rsa=server.CreateObject("adodb.recordset")
sql="select id_lm,title_lm_en from down_lm where id_lm="&lm&" "
rsa.open sql,conn,1,1
if not rsa.eof then
title_lm=rsa("title_lm_en")
dao=""&rsa("title_lm_en")&""
end if
rsa.close
set rsa=nothing
%>
<%call getCoHead("down_co",id,"down_lm")%>
<%=Mtitle%>
