有ASP高手没有？超难的代码看一下是怎么回事

来源：百度知道 编辑：UC知道 时间：2024/09/24 05:21:21
<%
Sub Sub_ListAllArticle(Classid,Rows)'Classid,,TitlelenItemid,
Set Rsinc = Server.CreateObject("ADODB.Recordset")
Rsinc.ActiveConnection = MM_conn_STRING
sql=" select A.art_id,A.item_id,A.art_pic,A.art_title,A.art_content,A.art_laiyuan,A.art_mianji,C.GongSiName,C.Phone from tblArticle A inner join tblArticleItem B on A.item_id=B.item_id "
sql=sql + " inner join User_List C on A.User_ID=C.User_ID "
sql=sql + " where class_id='" & Classid & "' and art_sh=1 order by art_id desc "
Rsinc.Source = sql
Rsinc.CursorType = 0
Rsinc.CursorLocation = 2
Rsinc.LockType = 1
Rsinc.Open()
'Response.Write(sql)
Repeat1__numRows = Rows
Repeat1__index = 0
Rsinc_numRows = Rsinc_numRows + Repeat1__numRows
%>
请高手讲解一下上面代码的意思，问了很多朋友都不会！请达人给出详细解释！

<%
Sub Sub_ListAllArticle(Classid,Rows)'建立了一个过程，传递了两个值，应该是类别ID和行

Set Rsinc = Server.CreateObject("ADODB.Recordset") '设置服务器连接
Rsinc.ActiveConnection = MM_conn_STRING
sql=" select A.art_id,A.item_id,A.art_pic,A.art_title,A.art_content,A.art_laiyuan,A.art_mianji,C.GongSiName,C.Phone from tblArticle A inner join tblArticleItem B on A.item_id=B.item_id "
sql=sql + " inner join User_List C on A.User_ID=C.User_ID "
sql=sql + " where class_id='" & Classid & "' and art_sh=1 order by art_id desc " 'SQL语句分别打开了3个表，A表TBLARTICLE，B表TBLARTICLEITEM，C表USER LIST，好像是用的联合查询，INNER JOIN函数我用的不多
Rsinc.Source = sql 给对象的属性赋值
Rsinc.CursorType = 0 给对象的属性赋值
Rsinc.CursorLocation = 2 给对象的属性赋值
Rsinc.LockType = 1 给对象的属性赋值
Rsinc.Open() 打开对象
'Response.Write(sql)
Repeat1__numRows = Rows 这个应该是把传递来的数值赋值给Repeat1__numRows
Repeat1__index = 0 这个没啥说的
Rsinc_numRow