UC知道求代码翻译，高手来
来源：百度知道 编辑：UC知道 时间：2024/05/31 20:44:19
function HotProduct()
Dim rs,sql,PArr,tmpArr(10),ProductName,SmallPicPath,i
Set rs=server.CreateObject("adodb.recordset")
sql="select top 10 pro_name,pro_tiexinjia,pro_shichangjia,pro_txb,pro_smallpic,id,pro_be_id,pro_se_id,pro_th_id from shop_product where 1=1 and viewflag=1 order by clickcount desc"
rs.open sql,conn,1,1
PArr=rs.GetRows()
start=true
for i=0 to 10
if i<=ubound(PArr,2) then
if len(PArr(0,i))<=10 then
ProductName=PArr(0,i)
else
ProductName=Left(PArr(0,i),10)
end if
SmallPicPath=PArr(4,i)
if start= true then
start = false
Dim rs,sql,PArr,tmpArr(10),ProductName,SmallPicPath,i
Set rs=server.CreateObject("adodb.recordset")
sql="select top 10 pro_name,pro_tiexinjia,pro_shichangjia,pro_txb,pro_smallpic,id,pro_be_id,pro_se_id,pro_th_id from shop_product where 1=1 and viewflag=1 order by clickcount desc"
rs.open sql,conn,1,1
PArr=rs.GetRows()
start=true
for i=0 to 10
if i<=ubound(PArr,2) then
if len(PArr(0,i))<=10 then
ProductName=PArr(0,i)
else
ProductName=Left(PArr(0,i),10)
end if
SmallPicPath=PArr(4,i)
if start= true then
start = false
这个函数整体上实现的功能是,展示热点产品.
代码中比较有特色和难度的是直接把记录集赋值给了二维数组.PArr=rs.GetRows() .然后在程序中对数组中的元素进行相应控制.
你只需要了解两个关键点:
1.recordset的getrows属性的作用是将记录放到一个二维数组中.
2.二维数组的使用方法
ubound(PArr,2)获取数组的最大下标.
ary( col, row ) 访问具体的某个值.
功能hotproduct （ ）黯淡的RS时， SQL ， parr ， tmparr （ 10 ） ，产品名称， smallpicpath ，我设置的RS = Server.CreateObject的（ “ adodb.recordset ” ）的SQL = “选择前10名
pro_name ， pro_tiexinjia ， pro_shichangjia ， pro_txb ， pro_smallpic ，身份证， pro_be_id ， pro_se_id ， pro_th_id从shop_product ，其中1 = 1和viewflag = 1秩序clickcount递减“ rs.open SQL ，并且连通， 1,1
parr = rs.getrows （ ） =真正的开始，因为我= 0至10 ，如果我< = ubound （ parr ， 2 ） ，然后如果伦（ parr （ 0 ，我） ） < = 10然后的ProductName = parr （ 0 ，我）
否则的ProductName =左（ parr （ 0 ，我） ， 10 ）年底，如果smallpicpath = parr （ 4 ， i ）若=真正的开始，然后启动=虚假