全讯网百家乐全讯网全讯网全讯网全讯网皇冠皇冠正网皇冠网全讯网全讯网五湖四海全讯网皇冠网皇冠网全讯网皇冠网现金网皇冠网全讯网全讯网博彩通乐透乐博彩论坛全讯网博彩网博彩网皇冠现金网太阳城新网开户太阳城新网开户百家乐体育吧皇冠网开户博狗tt娱乐城
皇冠
'=================================================
'过程名：ShowSmallClass_Down_Tree
'作 用：树形目录方式显示栏目
'参 数：无
'=================================================
sub ShowSmallClass_Down_Tree()
if rsBigClass_Down.bof and rsBigClass_Down.eof then
response.Write "栏目正在建设中……"
else
dim sqlClass,rsClass,strTree,BigClassNum,i,j
rsBigClass_Down.movefirst
BigClassNum=rsBigClass_Down.recordcount
i=1
do while not rsBigClass_Down.eof
if i
"
strTree= strTree & ""
strTree= strTree & "| "
strTree= strTree & " | "
strTree= strTree & ""
strTree= strTree & ""
strTree=strTree & rsBigClass_Down("BigClassName")
strTree=strTree & " | "
'strTree=strTree & ""
strTree= strTree & "
"
strTree=strTree & ""
strTree=strTree & " | "
strTree=strTree & "
"
strTree=strTree & ""
SmallClassNum=rsClass.recordcount
j=1
do while not rsClass.eof
rsClass.movenext
j=j+1
loop
response.write strTree
rsBigClass_Down.movenext
i=i+1
loop
rsClass.close
set rsClass=nothing
end if
end sub
'=================================================
'过程名：ShowVote
'作 用：显示网站调查
'参 数：无
'=================================================
sub ShowVote()
dim sqlVote,rsVote,i
sqlVote="select top 1 * from Vote where IsSelected=True"
Set rsVote= Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
if rsVote.bof and rsVote.eof then
response.Write " 没有任何调查"
else
response.write "
On the internet procuring is more and even more style now, and also you can see that if you can obtain trend
herve leger online, you'll be able to be the focus. You'll be able to also bring
gucci handbags of excellent
Mulberry Handbags. We are certain that you're going to delight in this kind of experience. We can seel you well-liked
Herve Leger Bandage Dress, and when you also like listenning to the audio, you'll be able to require our
monster beats by dr.dre into your consideration. All of our items are so ideal you can not miss them. In case you wanna see far more items, you'll be able to appear to our on the web
小说网 store r items are so ideal yo
小说网 All of our items are so ideal
小说网 to get a glance.
用户登陆