下面的(网站)代码是什么意思?

<%
SortID=CheckStr(Request.QueryString("SortID"))
sql="select * from Sort where ID="&SortID&""
Set Rs=conn.execute (sql)
Sortname=Rs("names")
Rs.close
set Rs=nothing
ClassID=CheckStr(Request.QueryString("ClassID"))
sqlc="select * from Sort where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
Classname=Rsc("names")
WJ_CalssInfo=Rsc("Info")
B_ID=Rsc("B_ID")
sqls="select * from Sort where ID="&B_ID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
Title ="<a href=Sort.asp?SortID="&B_ID&">" &SortName & "</a>"& " >> " & Classname
Rs.close
set Rs=nothing
%>
<%
Dim TopSortSql,RsTopSort,daohang,hide
TopSor

<%
SortID=CheckStr(Request.QueryString("SortID")) 获取sortID
sql="select * from Sort where ID="&SortID&"" 查询sort中有没有ID为sortID值的记录
Set Rs=conn.execute (sql) 执行sql
Sortname=Rs("names") 把rs("names")值给sortname
Rs.close 关闭rs
set Rs=nothing
ClassID=CheckStr(Request.QueryString("ClassID"))
sqlc="select * from Sort where ID="&ClassID&""
Set Rsc=conn.execute (sqlc)
Classname=Rsc("names")
WJ_CalssInfo=Rsc("Info")
B_ID=Rsc("B_ID")
sqls="select * from Sort where ID="&B_ID&""
Set Rss=conn.execute (sqls)
SortName=Rss("names")
Title ="<a href=Sort.asp?SortID="&B_ID&">" &SortName & "</a>"& " >> " & Classname
Rs.close
set Rs=nothing
%>
<%
Dim TopSortSql,RsTopSort,daohang,hide