[求助]关于一段asp程序(页 1) - ◇代码人生

zhuangboy 发表于 2005-4-1 13:20

[求助]关于一段asp程序

tSub main()
      ';在conn.asp中定义temolate为一个对象
      ';所以在下面中有不明的地方，请大家慷慨解答小弟的问题，谢谢！！
      ';在下面的代码是在index中，其中代替block是如何进行的呢？只是把"{$***}"关键字用Zhuangboy.SiteSeting(*)替换掉吗？
dim block
block = template.block(1)
block = replace(block,"{$mail}","<ahref=';mailto:"&Zhuangboy.SiteSetting(11)&"';>"&Zhuangboy.SiteSetting(11)&"</a>")  ';
block = replace(block,"{$webmaster}",Zhuangboy.SiteSetting(10))
block = replace(block,"{$intro}",Zhuangboy.SiteSetting(12))
block = replace(block,"{$logo_2}",Zhuangboy.SiteSetting(2))
block = replace(block,"{$code1}",template.code1)
block = replace(block,"{$code2}",template.code2)
block = replace(block,"{$FriendLink}",Zhuangboy.GetFriendSite(1))
block = replace(block,"{$FriendLink_2}",Zhuangboy.GetFriendSite(2))
block = replace(block,"{$FriendLink_3}",Zhuangboy.GetFriendSite(3))
for i = 1 to 5
block = replace(block,"{$ad"&i&"}",Zhuangboy.GetAD(i))
next
block = replace(block,"{$online}",Zhuangboy.Online)
block = replace(block,"{$IP}",Zhuangboy.LocalIP)
block = replace(block,"{$platform}",Zhuangboy.platform)
block = replace(block,"{$browser}",Zhuangboy.browser&Zhuangboy.Version)
block = replace(block,"{$news}",GetNews())
block = replace(block,"{$article}",GetContents("article"))
block = replace(block,"{$downloads}",GetContents("downloads"))
block = replace(block,"{$picture}",GetPic())
block = replace(block,"{$announce}",GetAnnounce())
block = replace(block,"{$GetVote}",Zhuangboy.GetVote())
block = replace(block,"{$n_art}",Zhuangboy.SiteSetting(34))
block = replace(block,"{$n_down}",Zhuangboy.SiteSetting(35))
block = replace(block,"{$n_pic}",Zhuangboy.SiteSetting(36))
block = replace(block,"{$n_music}",Zhuangboy.SiteSetting(37))
block = replace(block,"{$a_items}",Zhuangboy.GetItems(1,"<br>","top 5"))
block = replace(block,"{$d_items}",Zhuangboy.GetItems(2,"<br>","top 5"))
block = replace(block,"{$p_items}",Zhuangboy.GetItems(4,"<br>","top 5"))
block = replace(block,"{$m_items}",Zhuangboy.GetItems(5,"<br>","top 5"))
response.Write block
end sub

很爱很爱你 发表于 2005-6-23 02:53