asp 代码解析

来源：百度知道 编辑：UC知道 时间：2024/06/01 01:53:31
<%

Function WebLocation(ID)
Dim rs,sql,LocationText
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From Ameav_ProductSort where ViewFlag and ID="&ID
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "<img src='../Images/Arrow_02.gif' align='absmiddle'>错误"
exit function
end if
LocationText="<img src='../Images/Arrow_02.gif' align='absmiddle'><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"
if rs("ParentID")<>0 then WebLocation rs("ParentID")
response.write LocationText
End Function

<%Function WebLocation(ID)'函数(参数ID)
Dim rs,sql,LocationText'声明变量
Set rs=server.CreateObject("adodb.recordset")'创建rs对象
sql="Select * From Ameav_ProductSort where ViewFlag and ID="&ID
'读取 Ameav_ProductSort表中 字段id等于变量id的所有记录ViewFlag没有判断条件 估计要报错了,应该是ViewFlag=XX 吧?
rs.open sql,conn,1,1'打开记录集
if rs.bof and rs.eof then'如果没查到记录
response.write "<img src='../Images/Arrow_02.gif' align='absmiddle'>错误"'输出错误提示图片和文字
exit function'退出函数
end if
LocationText="<img src='../Images/Arrow_02.gif' align='absmiddle'><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"'给LocationText赋值成要输出的html
if rs("ParentID")<>0 then
WebLocation rs("ParentID")'这