<% ShowSmallClassType=ShowSmallClassType_Article dim ID ID=trim(request("ID")) if Id="" then response.Redirect("Download.asp") 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()'"%>

用户登陆

<% call ShowUserLogin() %>

下载列表

<% call ShowSmallClass_Down_Tree() %>

下载中心

<% response.write "| " & rs("BigClassName") & " >> " if rs("SmallClassName") & ""<>"" then response.write "" & rs("SmallClassName") & " >> " end if response.write rs("Title") %>

<%=rs("Content")%>

点击数：<%=rs("Hits")%> <%= FormatDateTime(rs("UpdateTime"),2) %> 【返回】

<% end if rs.close set rs=nothing call CloseConn() %>