%@ codepage ="936" %>
<%
dim sql
dim rs
dim rstype
if not isEmpty(request("id")) then
id=request("id")
else
id=1
end if
set rs=server.createobject("adodb.recordset")
sql1="update qyml set click=click+1 where id="+cstr(id)+""
rs.open sql1,conn,1,1
sql2="select * from qyml where id="+cstr(id)+""
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql2,conn,1,1
%>
<% if rs.eof or rs.bof then
response.write""
end if %>
<%
dim sql_hangyeleibie, rs_hangyeleibie
sql_hangyeleibie = "select distinct qylb from qyml where qylb <> ''"
set rs_hangyeleibie = conn.execute(sql_hangyeleibie)
%>
<%
dim sql_top10, rs_top10
sql_top10 = "select top 10 qymc, id from (select qymc, id from qyml order by idate desc)"
set rs_top10 = conn.execute(sql_top10)
%>