<%
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
if Id="" then
response.Redirect("Download.html")
end if
sql="select * from Download where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write""
else
rs("Hits")=rs("Hits")+1
rs.update
if rs("hits")>=HitsOfHot then
rs("Hot")=True
rs.update
end if
BigClassName=rs("BigClassName")
SmallClassName=rs("SmallClassName")
%>
<%if not(rsBigClass.bof and rsBigClass.eof) and ShowSmallClassType="Menu" then response.write " onmousemove='HideMenu()'"%>
当前位置：首页>>
<%
if owen2="" then
response.Write(owen1)
else
response.Write(owen2)
end if
%>
<%
set rs_fy=server.createobject("adodb.recordset")
sqltext4="select * from SmallClass_New where BigClassName='学习园地' "
rs_fy.open sqltext4,conn,1,1
do while not rs_fy.eof
%>
资源下载
