更新
作者:cmscn 日期:2007-01-19
网摘统计修正
作者:cmscn 日期:2007-01-18
管理后台经常自动退出
作者:cmscn 日期:2007-01-17
书库调用
作者:cmscn 日期:2007-01-14
sub book()
dim cid,dateandtime,title,b_name,sql1,rs1,articleid,b_id,sql3,rs3,classid,temp1,sql2,c_name,zuozhe,c_id,rs2,tiime
%>
<table cellspacing=0 cellpadding=4 class=table>
<tr><td class=td> 最新更新</td></tr>
<tr class=bg_td><td align=center>
<table border=0 width='100%'>
<%
sql="select * from bb_class order by tiime desc"
set rs=joekoe_cms.exec(sql,1)
for i=1 to 6
if rs.eof then exit for
zuozhe=rs("zuozhe")
tiime=rs("tiime")
%>
<tr>
<%
cid=rs("c_id")
sql3="select * from jk_class where c_id="&cid
set rs3=joekoe_cms.exec(sql3,1)
b_id=rs("b_id")
response.write"<td> [<a href='book_list.asp?id="&rs3("c_id")&"'>"&rs3("c_name")&"</a>] <a href='book_view.asp?b_id="&b_id&"'>"&rs("b_name")&"</a> "
rs3.close
sql2="select * from b_article where b_id="&b_id&" and page=1 order by articleid desc"
set rs2=joekoe_cms.exec(sql2,1)
if rs2.eof and rs2.bof then
response.write "暂无内容更新"
else
dateandtime=rs2("dateandtime")
title=rs2("title")
articleid=rs2("articleid")
c_id=rs2("c_id")
rs2.close
sql1="select * from bc_class where c_id="&c_id
set rs1=joekoe_cms.exec(sql1,1)
c_name=rs1("c_name")
rs1.close
response.write" <a href='book_jie.asp?b_id="&b_id&"&aid="&articleid&"'><font class=gray>"&c_name&" "&title&"</font></a></td>"
end if
response.write"<td><a href='book_show.asp?word="&zuozhe&"'><font class=blue>"&zuozhe&"</font></td><td class=tims align=right><"&mid(tiime,6,4)&"></td>"
response.write"</tr>"
rs.movenext
next
rs.close
response.write"</table>"&...
dim cid,dateandtime,title,b_name,sql1,rs1,articleid,b_id,sql3,rs3,classid,temp1,sql2,c_name,zuozhe,c_id,rs2,tiime
%>
<table cellspacing=0 cellpadding=4 class=table>
<tr><td class=td> 最新更新</td></tr>
<tr class=bg_td><td align=center>
<table border=0 width='100%'>
<%
sql="select * from bb_class order by tiime desc"
set rs=joekoe_cms.exec(sql,1)
for i=1 to 6
if rs.eof then exit for
zuozhe=rs("zuozhe")
tiime=rs("tiime")
%>
<tr>
<%
cid=rs("c_id")
sql3="select * from jk_class where c_id="&cid
set rs3=joekoe_cms.exec(sql3,1)
b_id=rs("b_id")
response.write"<td> [<a href='book_list.asp?id="&rs3("c_id")&"'>"&rs3("c_name")&"</a>] <a href='book_view.asp?b_id="&b_id&"'>"&rs("b_name")&"</a> "
rs3.close
sql2="select * from b_article where b_id="&b_id&" and page=1 order by articleid desc"
set rs2=joekoe_cms.exec(sql2,1)
if rs2.eof and rs2.bof then
response.write "暂无内容更新"
else
dateandtime=rs2("dateandtime")
title=rs2("title")
articleid=rs2("articleid")
c_id=rs2("c_id")
rs2.close
sql1="select * from bc_class where c_id="&c_id
set rs1=joekoe_cms.exec(sql1,1)
c_name=rs1("c_name")
rs1.close
response.write" <a href='book_jie.asp?b_id="&b_id&"&aid="&articleid&"'><font class=gray>"&c_name&" "&title&"</font></a></td>"
end if
response.write"<td><a href='book_show.asp?word="&zuozhe&"'><font class=blue>"&zuozhe&"</font></td><td class=tims align=right><"&mid(tiime,6,4)&"></td>"
response.write"</tr>"
rs.movenext
next
rs.close
response.write"</table>"&...
逆风音乐插件 图文调用
作者:cmscn 日期:2007-01-13
sub main_center_music(cs_tnum,cs_cnum)
dim tmp1,tmp_topic,tmp_url
tmp1=vbcrlf&"<tr align=center>"
sql="select top 4 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(1)
tmp_url="music_disk_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),4,tmp_url)&"</td></tr>" & _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td>"
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='519'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong
end sub
dim tmp1,tmp_topic,tmp_url
tmp1=vbcrlf&"<tr align=center>"
sql="select top 4 id,name,singer,s_id,n_id,lang,ptim,words,hits,pic from music_disk order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(1)
tmp_url="music_disk_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),4,tmp_url)&"</td></tr>" & _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td>"
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='519'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong
end sub
音乐 电影频道文字调用
作者:cmscn 日期:2007-01-13
case "video"
tmp_title="影视频道"
tmp_tit="影视标题"
tmp_count="浏览次数"
type1=""
tmp_img="video"
tmp_table="video"
tmp_record="id,name,username,tim,counter"
case "music"
tmp_title="音乐频道"
tmp_tit="音乐频道"
tmp_count="浏览次数"
tmp_img="music"
type1=""
tmp_table="mv_special"
tmp_record="SpecialID,name,NClass,tim,tims,hits"