这个函数是什么意思

iloveabcyou 2010-05-08 11:44:26
Function FYBar_skin(sk_name,sk_id,sk_num,sk_type)
If sk_type = 0 Then
FYBar_skin = Split(Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0),"{$$$}")(sk_num)
Else
FYBar_skin = Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0)
End If
End Function

特别里面的(0),{$$$}
...全文
44 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
不耐烦 2010-05-08
  • 打赏
  • 举报
回复
先看这句
Split(Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0),"{$$$}")(sk_num)
分解一下
Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0)
获得是sk_name(这十个变量) 这个字段的值
然后通过Split用 {$$$}分成数组
(sk_num)这个是取数组里面第sk_num(也是变量)个
-------------------------------------------------------------------

FYBar_skin = Split(Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0),"{$$$}")(sk_num)

分开写的话
set rs=Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")
a=Split(rs(0),"{$$$}")
FYBar_skin=a(sk_num)
就这样了

挨踢直男 2010-05-08
  • 打赏
  • 举报
回复
特别里面的(0),{$$$}

$$$这东西好像是html替换用的 以前见过 现在忘了

(0)这个是数组里的第0项吧
toury 2010-05-08
  • 打赏
  • 举报
回复
分解之后的写法:
Function FYBar_skin(sk_name,sk_id,sk_num,sk_type)
If sk_type = 0 Then
set rs=Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")
s=rs(0)
FYBar_skin = Split(s,"{$$$}")(sk_num)
Else
FYBar_skin = Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0)
End If
End Function
toury 2010-05-08
  • 打赏
  • 举报
回复
sk_num=1
s="aaa{$$$}bbbbbbbb"
arr=split(s,"{$$$}")
s1=arr(sk_num)

上面这段代码你很清楚吧?
FYBar_skin(就是s1) = Split(Conn.Execute("Select "& sk_name &" From [FY_skin] Where [contents] ='"& sk_id &"'")(0)(就是s),"{$$$}(这个是分隔符)")(sk_num)

28,391

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧