sub main_user_vip(bbbb,cccc,dddd)
dim tmp1,sexpic
sql="select top "&bbbb&" * from user_data where hidden=1 order by power desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof ...

查看更多...

'点击排行 竖排音乐

sub main_center_musik(vgen,c_num,w_num)
dim osql,id,name,pnum,hits,i
select case vgen...

查看更多...

１，代码修改
在文件include下找到con_news.asp里的
sub news_left(nt,n_num,c_num,n_title)
将下面的代码替换：
...

查看更多...

（1）定义：
在index2.asp 文件的最后一个 end sub 后插入下面的代码：

sub main_left_update()
dim tmp1,topic,word ...

查看更多...

分两步
if uppath="face" then
upload_type="gif,jpg"
up_name="face_"&login_id
end if...

查看更多...

经过修改，修改成和新闻显示一样的方式：
...

查看更多...

sub index_images(n)
dim temp1,per_num,n_topic,id,topic,c_num
temp1=""
sql="select top "&n&" id,topic,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)...

查看更多...

"
sql="select top "&n&" id,name,spic from gallery where hidden=1 order by id desc"...

查看更多...