<%
set rs=server.CreateObject("ADODB.RecordSet")
TT=TT & "软件首页"
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' ht 2004-9-12 \\\\\\\\\\
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
if request("id")<>"" then
strSQL = "select * from downtype where id="&AllStr2Database(request("id"),"num")
set rs = conn.Execute(strSQL)
if not rs.EOF then
TN=rs("tname")
TI=rs("ID")
TS=rs("ts")
TT=TT & ">> "&TN&""
tj=rs("tj")
end if
rs.close
end if
'thistype=TT
'取出当前最层的Class
strPathInfo = Request.ServerVariables("PATH_INFO")
strPathInfo = "http://" & Request.ServerVariables("SERVER_NAME") &":"& Request.ServerVariables("SERVER_PORT") & Left(strPathInfo,InstrRev(strPathInfo,"/"))
'Response.Write(strPathInfo)
'Response.End
dim arrClass
strSQL = "select * from downtype where tn=0 order by ID"
set rs = conn.Execute(strSQL)
if not rs.EOF then arrClass = rs.GetRows()
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
