过程:
'---------------------------博客调用开始----------------------------
sub blog()
Dim ConnOther,RsOther,SqlOther,tmp1,tmp_img,tmp_url
Set ConnOther= Server.createObject("ADODB.Connection") ...
sub main_broad()
dim tmp1,topic
tmp1="暂时没有网站公告!"
sql="select top 4 id,topic,tim from bbs_cast where sort='news' order by id desc"
set rs=joekoe_cms.exec(sql,1)...