<% response.charset="utf-8" %> <% call SiteInfo %> Download
Downloads
    <%=WebMenu(0,0,2)%>

<%=WebLocation()%>

<%=WebContent("NwebCn_Download",request.QueryString("ID"))%>
<% function WebMenu(ParentID,i,level) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_DownSort where ViewFlag order by ID asc" rs.open sql,conn,1,1 do while not rs.eof response.write "
  • "&rs("SortName")&"
  • " rs.movenext loop rs.close set rs=nothing end function function WebLocation() if request.QueryString("ID")="" then WebLocation="Downloads" elseif not IsNumeric(request.QueryString("ID")) then WebLocation="Downloads" elseif conn.execute("select * from NwebCn_Download Where ViewFlag and ID="&request.QueryString("ID")).eof then WebLocation="Downloads" else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Download where ViewFlag and ID="&request.QueryString("ID") rs.open sql,conn,1,1 WebLocation=SortPathTXT("NwebCn_DownSort",rs("SortID")) rs.close set rs=nothing end if end function function SortPathTXT(DataFrom,ID) dim rs,sql Set rs=server.CreateObject("adodb.recordset") sql="Select * From "&DataFrom&" where ViewFlag and ID="&ID rs.open sql,conn,1,1 if not rs.eof then SortPathTXT=SortPathTXT(DataFrom,rs("ParentID"))&""&rs("SortName") end if rs.close set rs=nothing end function function WebContent(DataFrom,ID) if ID="" or not IsNumeric(ID) then response.write "
    No details
    " elseif conn.execute("select * from "&DataFrom&" Where ViewFlag and ID="&ID).eof then response.write "
    No details
    " else dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from "&DataFrom&" where ViewFlag and ID="&ID rs.open sql,conn,1,3 response.write "
    " &_ "

    "&rs("DownName")&"

    "&_ "

    File size: "&rs("FileSize")&"    Update time: "&FormatDate(rs("UpdateTime"),13)&"    "&_ "Download address:DOWNLOAD

    "&_ rs("Content") &_ "
    " &_ "
    " &_ "| The view:"&rs("ClickNumber")&_ "
    " rs("ClickNumber")=rs("ClickNumber")+1 rs.update rs.close set rs=nothing end if end function %>