帮我解释以下ASP代码。

来源:百度知道 编辑:UC知道 时间:2024/09/21 09:32:30
代码如下:
Sub GetStyleName(PID)
Set TempRs=Server.CreateObject("ADODB.RecordSet")
TempSql="select id,Style_Name from Info_Style where id="&PID
TempRs.Open TempSql,conn,1,1
Response.Write(TempRs("Style_Name"))
TempRs.Close()
Set TempRs=Nothing
End Sub

Function getIntHYID(varLXID,objCon)
Set tempRS=objCon.Execute("select * from Info_Style where parentid="&varLXID)
getIntHYID=varLXID 'tempRS("id")
If Not tempRS.Eof Then
do while not tempRS.Eof
varTempID=getIntHYID(tempRS("id"),objCon)
getIntHYID=varTempID&","&getIntHYID
tempRS.movenext
loop
else
tempRS.close()
Set tempRS=Nothing
Exit Function
End If
tempRS.close()
Set tempRS=Nothing

End Function

我是个菜鸟。请高手帮我逐行逐句的翻译,以及这些代码的作用是什么样的。

Sub GetStyleName(PID)
这个是子过程的开始,与End Sub 对应
Set TempRs=Server.CreateObject("ADODB.RecordSet")
这个是创建一个数据库记录集
TempSql="select id,Style_Name from Info_Style where id="&PID
这个是数据库SQL语句,选择id等数据
TempRs.Open TempSql,conn,1,1
Response.Write(TempRs("Style_Name"))
打开数据库,输出里面的数据: style_name字段里的数据
TempRs.Close()
Set TempRs=Nothing
释放资源
Function getIntHYID(varLXID,objCon)
这是一个函数的开始
Set tempRS=objCon.Execute("select * from Info_Style where parentid="&varLXID)
执行了一个SQL语句
If Not tempRS.Eof Then
当里面有数据

do while not tempRS.Eof
varTempID=getIntHYID(tempRS("id"),objCon)
getIntHYID=varTempID&","&getIntHYID
tempRS.movenext
loop
循环每个字段,读取数据
没有数据则释放资源并退出
tempRS.close()
Set tempRS=Nothing
最后,释放资源
tempRS.close()
Set tempRS=Nothing