UC知道帮忙解释这段asp代码的意思
来源：百度知道 编辑：UC知道 时间：2024/06/09 23:57:46
帮忙解释这段代码的意思，最好详细点，不要用太多的术语解释，就说成普通人都能理解的。还有就是，我想要读出的数据分成三个一行显示。谢谢。
sub video_istop(n_num,c_num,b_num,t_num)
dim types,role,remark
response.write vbcrlf&"<tr valign=top><td width='30%' ></td><td width='70%'></td></tr>"
sql="select top "&n_num&" id,pic,name,types,star,counter,emoney,power,role,genre,lang,remark from video where star=5 and hidden=1 order by tim desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
types=rs("types")
types=type_view(types)
role=joekoe_cms.code_html(rs("role"),1,b_num)
remark=joekoe_cms.code_html(rs("remark"),1,t_num)
response.write vbcrlf&video_view_body(c_num,rs("id"),int(rs("counter")),int(rs("emoney")),rs("power"),int(rs("star")),remark,rs("lang"),types,rs("name"),role,rs("genr
sub video_istop(n_num,c_num,b_num,t_num)
dim types,role,remark
response.write vbcrlf&"<tr valign=top><td width='30%' ></td><td width='70%'></td></tr>"
sql="select top "&n_num&" id,pic,name,types,star,counter,emoney,power,role,genre,lang,remark from video where star=5 and hidden=1 order by tim desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
types=rs("types")
types=type_view(types)
role=joekoe_cms.code_html(rs("role"),1,b_num)
remark=joekoe_cms.code_html(rs("remark"),1,t_num)
response.write vbcrlf&video_view_body(c_num,rs("id"),int(rs("counter")),int(rs("emoney")),rs("power"),int(rs("star")),remark,rs("lang"),types,rs("name"),role,rs("genr
你这是从乔客系统里摘的吧,你应当先找一找jockoe_cms这个结构的源代码,否则很难完全看懂的
没什么特别啊
只不过是一个函数调用另一个函数
Private Sub ModToCache(mod_Fields)'私有函数
sql="select top 1 "&mod_Fields&" from [video_style] where isdef=true"
set rs=joekoe_cms.exec(sql,1)
if not rs.eof then value=rs(0)
rs.close '根据查询条件判断
End Sub
'-----------取全局模板-----------
Public Sub Mod_Load()
dim main_style
Name="picurl"
if cache_chk() then ModToCache ("picurl") '调用上面函数,参数值为PICURL
Main_PicUrl=value
Name="style"
If cache_chk() Then ModToCache ("style") '同上,值不一样而已
main_style=split(value,"@@@") '用SPLIT分隔符号
Main_Html=Split(main_style(0),"|||")
End